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 <mare...@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@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]]
______________________________________________
R-help@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.
