[R] Persons with objects –> Objects and persons

[David Winsemius]

On Mar 15, 2015, at 3:46 AM, Jim Lemon wrote:

> 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"

This would be another way of approaching this:

> data.frame( pobjects= 
             with( table1, tapply(object, person, FUN=paste, collapse=";")))
  pobjects
1      A;B
2  A;B;C;E
3  A;B;C;E
4    A;D;E
5    A;C;E

You could also use Jim's data example to build an object that looks more like your input:

test <- data.frame( opersons= with(table1, tapply(person, object, paste, collapse=";")))
test
   opersons
A 1;2;3;4;5
B     1;2;3
C     2;3;5
D         4
E   2;3;4;5

And this would let you recover Jim's input object:

> stack( sapply(test$opersons, strsplit, ";") )
   values ind
1       1   A
2       2   A
3       3   A
4       4   A
5       5   A
6       1   B
7       2   B
8       3   B
9       2   C
10      3   C
11      5   C
12      4   D
13      2   E
14      3   E
15      4   E
16      5   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
>> 

And don't forget that Nabble is not Rhelp:

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.

-- 

David Winsemius
Alameda, CA, USA