r combine results from two tables into one-CodePudding

My first table is like this.

               Dante      Inferno      Purgatorio    Paradiso
       A       1477       445           NA           191
       B       1427       751           359          360
       C       NA         273          3095          NA
       D       1614       NA            43           116

This is my second table

               Dante      Inferno      Purgatorio    Paradiso
       A       658        445           NA           116
       B       653        751           97           360
       C       NA         273           2095          NA
       D       703        NA            43           103

What I am trying to accomplish is a table like this

               Dante       Inferno      Purgatorio    Paradiso
       A       1477(658)   445(445)     NA            191(116)
       B       1427(653)   751(751)     359(97)       360(360)
       C       NA          273(273)     3095(2095)    NA
       D       1614(703)   NA           43(43)        116(103)

Values from the second table are within brackets for the matching column and row (same cell).

Any suggestions on how to create this table is much appriciated. Thanks in advance.

CodePudding user response：

df3 <- df1
df3[] <- sub('NA. ', 'NA', mapply(sprintf, '%s(%s)', df1, df2))

df3
      Dante  Inferno Purgatorio Paradiso
A 1477(658) 445(445)         NA 191(116)
B 1427(653) 751(751)    359(97) 360(360)
C        NA 273(273) 3095(2095)       NA
D 1614(703)       NA     43(43) 116(103)

CodePudding user response：

I'd do something like this, and worry about the NA afterwards...

A <- as.data.frame(matrix(1:16,4))  
B <- as.data.frame(matrix(17:32,4))

my_paste <- \(a,b) paste0(a," (",b,")")  
C <- mapply(my_paste,A,B)

Then you'd might do something like

C[C == my_paste(NA,NA)] <- NA

to clean up the NAs