向 gtsummary table 中的 "Overall" 列添加背景色
add a background color to the "Overall" column in gtsummary table
如何使用 tab_style()
为“总体”列添加背景颜色?
library(gtsummary)
trial %>% select(trt, age, grade, response) %>%
tbl_summary(by=trt) %>%
add_overall() %>%
as_gt()
首先,我将使用 show_header_names()
打印“总体”列的真实列名。您可以使用下面的代码使用 tab_style()
.
为单元格着色
您可能还想查看 gt 函数 data_color()
...我发现语法更易于使用。
快乐编程
library(gtsummary)
#> #BlackLivesMatter
tbl <-
trial %>% select(trt, age, grade, response) %>%
tbl_summary(by=trt) %>%
add_overall()
# print gtsummary column names to get overall column name
show_header_names(tbl)
#> i As a usage guide, the code below re-creates the current column headers.
#> modify_header(update = list(
#> label ~ "**Characteristic**",
#> stat_0 ~ "**Overall**, N = 200",
#> stat_1 ~ "**Drug A**, N = 98",
#> stat_2 ~ "**Drug B**, N = 102"
#> ))
#>
#>
#> Column Name Column Header
#> ------------ ---------------------
#> label **Characteristic**
#> stat_0 **Overall**, N = 200
#> stat_1 **Drug A**, N = 98
#> stat_2 **Drug B**, N = 102
# print table with shaded Overall column
as_gt(tbl) %>% # convert gtsummary table to gt
gt::tab_style( # use gt::tab_style() to shade column
style = list(gt::cell_fill(color = "grey")),
locations = gt::cells_body(columns = vars(stat_0))
)
如何使用 tab_style()
为“总体”列添加背景颜色?
library(gtsummary)
trial %>% select(trt, age, grade, response) %>%
tbl_summary(by=trt) %>%
add_overall() %>%
as_gt()
首先,我将使用 show_header_names()
打印“总体”列的真实列名。您可以使用下面的代码使用 tab_style()
.
您可能还想查看 gt 函数 data_color()
...我发现语法更易于使用。
快乐编程
library(gtsummary)
#> #BlackLivesMatter
tbl <-
trial %>% select(trt, age, grade, response) %>%
tbl_summary(by=trt) %>%
add_overall()
# print gtsummary column names to get overall column name
show_header_names(tbl)
#> i As a usage guide, the code below re-creates the current column headers.
#> modify_header(update = list(
#> label ~ "**Characteristic**",
#> stat_0 ~ "**Overall**, N = 200",
#> stat_1 ~ "**Drug A**, N = 98",
#> stat_2 ~ "**Drug B**, N = 102"
#> ))
#>
#>
#> Column Name Column Header
#> ------------ ---------------------
#> label **Characteristic**
#> stat_0 **Overall**, N = 200
#> stat_1 **Drug A**, N = 98
#> stat_2 **Drug B**, N = 102
# print table with shaded Overall column
as_gt(tbl) %>% # convert gtsummary table to gt
gt::tab_style( # use gt::tab_style() to shade column
style = list(gt::cell_fill(color = "grey")),
locations = gt::cells_body(columns = vars(stat_0))
)