Merge or combine by rownames

Question

In the example below I have two datasets  Z and A   I want to merge or combine these sets by the ILMN numbers  If there is no match  fill in NA    z  lt - matrix c 0 0 1 1 0 0 1 1 0 0 0 0 1 0 1 1 0 1 1 1 1 0 0 0  RND1   WDR    PLAC8   TYBSA   GRA   TAF    nrow 6      dimnames list c  ILMN 1651838   ILMN 1652371   ILMN 1652464   ILMN 1652952   ILMN 1653026   ILMN 1653103   c  A   B   C   D   symbol      t lt -matrix c  GO 0002009   8  342  1  0 07  0 679  0  0  1  0            GO 0030334   6  343  1  0 07  0 065  0  0  1  0           GO 0015674   7  350  1  0 07  0 065  1  0  0  0   nrow 10  dimnames  list c  GO ID   LEVEL   Annotated   Significant   Expected   resultFisher   ILMN 1652464   ILMN 1651838   ILMN 1711311   ILMN 1653026       The result will be like this                  1            2            3            4  GO ID         GO 0002009   GO 0030334   GO 0015674   NA LEVEL         8            6            7            NA Annotated     342          343          350          NA Significant   1            1            1            NA Expected      0 07         0 07         0 07         NA resultFisher  0 679        0 065        0 065        NA ILMN 1652464  0            0            1            PLAC8 ILMN 1651838  0            0            0            RND1 ILMN 1711311  1            1            0            NA ILMN 1653026  0            0            0            GRA

User · Answer

you can wrap -Andrie answer into a generic function

mbind<-function(...){
 Reduce( function(x,y){cbind(x,y[match(row.names(x),row.names(y)),])}, list(...) )
}

Here, you can bind multiple frames with rownames as key

User · Answer

Use match to return your desired vector  then cbind it to your matrix  cbind t  z    symbol   match rownames t   rownames z                     1            2            3            4     GO ID         GO 0002009   GO 0030334   GO 0015674  NA      LEVEL         8            6            7           NA      Annotated     342          343          350         NA      Significant   1            1            1           NA      Expected      0 07         0 07         0 07        NA      resultFisher  0 679        0 065        0 065       NA      ILMN 1652464  0            0            1            PLAC8  ILMN 1651838  0            0            0            RND1   ILMN 1711311  1            1            0           NA      ILMN 1653026  0            0            0            GRA      PS   Be warned that t is base R function that is used to transpose matrices   By creating a variable called t  it can lead to confusion in your downstream code

User · Answer

cbind fill  lt - function x  y     xrn  lt - rownames x    yrn  lt - rownames y    rn  lt - union xrn  yrn    xcn  lt - colnames x    ycn  lt - colnames y    if is null xrn    is null yrn    is null xcn    is null ycn        stop  NULL rownames or colnames     z  lt - matrix NA  nrow length rn   ncol length xcn  length ycn     rownames z   lt - rn   colnames z   lt - c xcn  ycn    idx  lt - match rn  xrn    z  is na idx   1 length xcn    lt - x na omit idx      idy  lt - match rn  yrn    z  is na idy   length xcn   1 length ycn     lt - y na omit idy      return z

User · Answer

Using merge and renaming your t vector as tt  see the PS of Andrie      merge tt z by  row names  all x TRUE   - 5 8     Now if you would work with dataframes instead of matrices  this would even become a whole lot easier    z  lt - as data frame z  tt  lt - as data frame tt  merge tt z  symbol   by  row names  all x TRUE

User · Answer

Not perfect but close   newcol lt -sapply rownames t   function rn  z match rn  rownames z    5    cbind data frame t   newcol

[r] Merge or combine by rownames

Examples related to r

Examples related to merge

Examples related to dataframe