为 R 中 tbl_summary 函数的 gtsummary 包中的分类变量和连续变量设置主题

Question

我对 gtsummary 包以及如何设置默认主题有疑问：

东风：

library(tidyverse)
library(gtsummary)
library(gapminder)

gap <- gapminder %>% 
  dplyr::mutate_all(~ifelse(
    sample(c(TRUE, FALSE), size = length(.), replace = TRUE, prob = c(0.8, 0.2)),
    as.character(.), 
    NA)
  ) %>% 
  dplyr::mutate_at(vars(year:gdpPercap), ~as.numeric(.)
  ) 

my_theme <-   
  list(
    "tbl_summary-str:default_con_type" = "continuous2",
    "tbl_summary-str:continuous_stat" = c("{median} ({p25} - {p75})",
                                          "{mean} ({sd})", 
                                          "{min} - {max}",
                                          "{N_miss} ({p_miss}%)"),
    "tbl_summary-str:categorical_stat" = "{n} / {N} ({p}%)",
    "style_number-arg:big.mark" = ""
  )

gtsummary::set_gtsummary_theme(my_theme)

gap[, -1] %>% 
  gtsummary::tbl_summary(
    
    # remove default missing values because we specified them in 
    # the theme above already
    missing = "no"
  )

当我将大陆作为分类变量包含时，上面给出了一个错误，并且没有显示 table 以及该大陆的汇总统计数据。我必须在 tbl_summary 函数中指定一些参数，还是必须在主题函数中指定 add/remove 一些参数？谢谢！

Answer 1

非常感谢您报告这一意外行为。这确实是一个错误，它已在开发版本中修复（您可以从 github 安装）。

remotes::install_github("ddsjoberg/gtsummary", quiet = TRUE)
library(gtsummary)
packageVersion("gtsummary")
#> [1] '1.3.5.9003'

my_theme <-   
  list(
    "tbl_summary-str:default_con_type" = "continuous2",
    "tbl_summary-str:continuous_stat" = c("{median} ({p25} - {p75})", "{mean} ({sd})"),
    "tbl_summary-str:categorical_stat" = "{n} / {N} ({p}%)"
  )

set_gtsummary_theme(my_theme)

tbl <-
  gapminder::gapminder[, 2:3] %>% 
  tbl_summary()

^{由 reprex package (v0.3.0)}

于 2020-10-25 创建

为 R 中 tbl_summary 函数的 gtsummary 包中的分类变量和连续变量设置主题

Set theme for categorical and continuous variables in gtsummary package for tbl_summary function in R

r

gtsummary