使用gtsummary::tbl_summary
时,如果需要在tab_stat_fmt()
中使用字符操作函数,可以先在tbl_summary()
中使用trl_fmt()
指定行格式,如下所示:
library(gtsummary)
data(trial)
tbl <- tbl_summary(
trial,
by = grade,
# 指定行格式
trl_fmt = list(
"/^Grade/ ~ ` ` ~ level"
)
) %>%
# 继续进行统计分析
tab_stat_fmt(
list(
# 使用字符操作函数
stat_by_grade2 ~ "{n} ({p}%)"
),
# 在此指定 tabs 数组
exclude = c("Age", "Sex", "response"),
label = list(
`stat_by_grade2` = "**Variable**\nGrade %{grade}"
),
# 将 tab_row_names 设为 NULL
tab_row_names = NULL
)
在tab_stat_fmt()
中,将tab_row_names
设为NULL即可。注意:此时行名会消失,若需要将新的行名添加至表格,可以在label
参数中使用"\n"
来换行,将新的行名与原先的行名以及统计量进行排版。