如何将带有百分比的频率表编织到 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()