将函数传递给 gtsummary 中的标签参数

Question

我经常发现自己更改 gtsummary 对象后函数的标签：

library(gtsummary)
table1 <- trial %>%
tbl_summary()

我“手动”更改

gtsummary

对象的标签

table1[["table_body"]][["label"]] <- table1[["table_body"]][["label"]] %>% str_to_title()

我已经将这部分变成了一个函数：

clean_tbl_labels <- function(tbl) {
  tbl[["table_body"]][["label"]] <- tbl[["table_body"]][["label"]] %>% 
                                     gsub("_", " ", .) %>% str_to_title()
  tbl
}

但是一定有更简单的方法来做到这一点吗？

我正在思考一些类似的事情：

table1 <- trial %>%
    tbl_summary(., 
                label = list(.x ~ str_to_title())

Answer 1

您可以使用

modify_table_body

辅助功能：

trial %>%
  select(age, grade, response) %>%
  tbl_summary() |>
  modify_table_body(~ .x %>% 
        dplyr::mutate(label=str_to_title(label)))