[R] Persons with objects –> Objects and persons

[Jim Lemon]

Hi mareki,
The transformation is not too difficult, but the table format in your
example will cause a bit of difficulty. The following function from the
plotrix package:

categoryReshape<-function(x) {
 dimx<-dim(x)
 if(is.null(dimx) || dimx[2]==1)
  stop("Can only reshape a matrix or data frame with at least two columns")
 row_values<-sort(unique(x[,1]))
 column_values<-sort(unique(x[,2]))
 newx<-

as.data.frame(matrix(0,nrow=length(row_values),ncol=length(column_values)))
 for(row in 1:dimx[1]) {
  row_index<-which(row_values %in% x[row,1])
  column_index<-which(column_values %in% x[row,2])
  newx[row_index,column_index]<-1
 }
 names(newx)<-column_values
 rownames(newx)<-row_values
 return(newx)
}

will take a matrix or data frame like this:

table1<-read.table(text="object,person
A,1
A,2
A,3
A,4
A,5
B,1
B,2
B,3
C,2
C,3
C,5
D,4
E,2
E,3
E,4
E,5",sep=",",header=TRUE)

and transform it into a data frame like this:

 categoryReshape(table1)
  1 2 3 4 5
A 1 1 1 1 1
B 1 1 1 0 0
C 0 1 1 0 1
D 0 0 0 1 0
E 0 1 1 1 1

Then if you take each column and format it like this;

concat_labels<-function(x,labels)
return(paste(labels[as.logical(x)],collapse=";"))
sapply(table2,concat.labels,rownames(tables))

        1         2         3         4         5
    "A;B" "A;B;C;E" "A;B;C;E"   "A;D;E"   "A;C;E"

you have pretty much what you want.

Jim


On Sun, Mar 15, 2015 at 9:02 AM, marekl <marek.r at lutonsky.net> wrote:

> Hi,
>
> I have a table with persons in rows and objects associated to these
> persons.
> And I need to transform it to table with objects in rows and persons next
> to
> them. As it is shown on the picture.
>
> <http://r.789695.n4.nabble.com/file/n4704655/Persons%2C_Objects.png>
>
> Can you please help me how to make this transformation in R?
>
> Thank you
>
>
>
> --
> View this message in context:
> http://r.789695.n4.nabble.com/Persons-with-objects-Objects-and-persons-tp4704655.html
> Sent from the R help mailing list archive at Nabble.com.
>
> ______________________________________________
> R-help at r-project.org mailing list -- To UNSUBSCRIBE and more, see
> https://stat.ethz.ch/mailman/listinfo/r-help
> PLEASE do read the posting guide
> http://www.R-project.org/posting-guide.html
> and provide commented, minimal, self-contained, reproducible code.
>

	[[alternative HTML version deleted]]