Сотовое слияние

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%)