1

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

当我将大陆作为分类变量包含在内并且不显示包含大陆汇总统计数据的表格时，上述内容给了我一个错误。我必须在tbl_summary函数中指定一些参数还是必须在主题函数中添加/删除一些参数？谢谢！

4

1 回答 1

1

非常感谢您报告此意外行为。这确实是一个错误，并且已经在 dev 版本中修复（您可以从 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 包于 2020-10-25 创建(v0.3.0)

于 2020-10-26T02:09:20.557 回答