逐个单元合并

Question

我在 R ：

中有一个计数表

Deg_Maj.tbl <- table(dat1$Maj,dat1$DegCat)
Deg_Maj.tbl

   B   D
A  66  5
C   2  9

和百分比表：

Deg_Maj.ptbl <- round(prop.table(Deg_Maj.tbl)*100,3)
Deg_Maj.ptbl

  B        D
A 80.48   6.10
C 2.44    10.98

我需要构建一个如下所示的表：

    B              D
A 66(80.48%)     5(6.1%)
C 2(2.44%)       9(10.98%)

我有几个表以这种方式做，所以我希望找到一个很好的简单方法来实现这一点。

Answer 1

我们可以使用paste

Deg_Maj_out <- Deg_Maj.tbl
Deg_Maj_out[] <- paste0(Deg_Maj.tbl, "(", Deg_Maj.ptbl, "%)")
Deg_Maj_out
#   B          D        
#A 66(80.48%) 5(6.1%)  
#C 2(2.44%)   9(10.98%)