代码之家 › 专栏 › 技术社区 › Brian Brummer

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

gtsummary r

0

Brian Brummer · 技术社区 · 3 周前

我经常发现自己在更改gtsummary对象post函数的标签:

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

我更改的标签 gtsummary 对象 table1 " 手动 "

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())

1 回复 | 直到 3 周前

1

2

Edward 3 周前

您可以使用 modify_table_body helper函数:

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