如何编织带有百分比的频率表到 rmarkdown？

Question

我有一张这样的桌子：

1  2  3  4  5

A  B  A  B  A

C  B  B  B  B 

A  C  A  B  B

我已经能够变成这样（感谢您的帮助！）：

   A  B  C
1  2  0  1
2  0  2  1
3  2  1  0
4  0  3  0
5  1  2  0

我的下一个问题是：是否有一个包可以让我将其编织到降价文档上的格式化表格中，并按行显示百分比？让它看起来有点像这样（但可以格式化？）

有人知道 gtsummary 或 kable 是否能够进行这种百分比计算吗？也对其他包开放。谢谢！

   A       B        C
1  2 (66%) 0 (0%)   1 (33%)
2  0 (0%)  2 (66%)  1 (33%)
3  2 (66%) 1 (33%)  0 (0%)
4  0 (0%)  3 (100%) 0 (0%)
5  1 (33%) 2 (66%)  0 (0%)

Answer 1

您可以使用prop.table 计算比例，然后使用任何包显示表格。

df[] <- sprintf('%s (%s)', as.matrix(df), paste0(round(prop.table(as.matrix(df), 1), 2) * 100, '%'))
gt::gt(df)

Answer 2

您也可以使用 gtsummary tbl_cross() 函数。下面的例子！

library(gtsummary)

trial %>%
  tbl_cross(row = stage, col = trt, percent = "cell") %>%
  add_p()