在r gtsummary::tbl_summary中计算总观测值的百分比？

library(gtsummary)

# 创建一个示例数据框
data <- data.frame(
  var1 = c("A", "B", "C", "A", "B", "C"),
  var2 = c("X", "Y", "Z", "X", "Y", "Z")
)

# 使用tbl_summary()函数创建摘要表格
tbl <- tbl_summary(data)

# 使用add_p()函数计算总观测值的百分比
tbl <- tbl %>%
  add_p(type = "column", 
        location = "label",
        pattern = "{p}%")

# 打印摘要表格
tbl