Combining cell values of multiple equal dimension matrices to a single matrix with each cell is a list as values of the input matrices in R

user_16734314 0
Viewed 26

Input: There are three input matrices of same dimensions 3 input matrices:

              GeneA             GeneB          
GeneA          31                  4           
GeneB           5                  8 

              GeneA             GeneB          
GeneA           5                 14           
GeneB           5                  8 


              GeneA             GeneB          
GeneA          30                 14           
GeneB           45                 7

output:

                GeneA             GeneB          
GeneA          {31,5,30}         {4,14,14}          
GeneB          {5,5,45}           {8,8,7}

one matrix with cell value as a list of the values from the input matrices.

r matrix
2 Answers

You can use mapply, and then assign the structure and dimnames as those from matrix1

matrix(
  mapply(paste, matrix1, matrix2, matrix3, MoreArgs=list(sep=",")), 
  nrow=nrow(matrix1),
  ncol=ncol(matrix1),
  dimnames = dimnames(matrix1)
)

Output:

      GeneA     GeneB    
GeneA "31,5,30" "4,14,14"
GeneB "5,5,45"  "8,8,7"
user_44475400

You would need to hold each resulting vector within a list in a matrix. If your matrices are called m1, m2 and m3, then you can do:

m <- `dimnames<-`(matrix(lapply(1:4, function(i) c(m1[i], m2[i], m3[i])), 2),
                  dimnames(m1))

So that we have:

m
#>       GeneA     GeneB    
#> GeneA integer,3 integer,3
#> GeneB integer,3 integer,3

and

m[1, 1]
#> [[1]]
#> [1] 31  5 30
user_125003150
Related