[英]How to create subheadings using summary_table R qwraps2?
我想用summary_table 生成一個匯總統計表。 這需要有副標題。
我一直在關注這個例子: https : //cran.r-project.org/web/packages/qwraps2/vignettes/summary-statistics.html
stats_summary1 <-
list("Sex (female)" =
list("number (%)" = ~ qwraps2::n_perc(.data$sex=="F", digits = 1)),
"Age" =
list("min" = ~ min(.data$age_d, digits = 1),
"max" = ~ max(.data$age_d, digits = 1),
"median (IQR)" = ~ qwraps2::median_iqr(.data$age_d, digits = 1)),
"Disease" =
list("A" = ~ qwraps2::n_perc(.data$d==1, digits = 1),
"B" = ~ qwraps2::n_perc(.data$d==2, digits = 1),
"C" = ~ qwraps2::n_perc(.data$d==3, digits = 1),
"D" = ~ qwraps2::n_perc(.data$d==4, digits = 1),
"E" = ~ qwraps2::n_perc(.data$d==5, digits = 1)),
"Disease duration" =
list("min" = ~ min(.data$dis_dur, digits = 1),
"max" = ~ max(.data$dis_dur, digits = 1),
"median (IQR)" = ~ qwraps2::median_iqr(.data$dis_dur, digits = 1))
)
whole <- summary_table(df, stats_summary1)
表格輸出不包括副標題,例如“疾病”。 它還生成帶有正斜杠的百分比,例如。 65\\%
首先,我將創建一個示例數據集以匹配提供的摘要
set.seed(42)
df <- data.frame(sex = sample(c("M", "F"), size = 100, replace = TRUE),
age_d = runif(100, 18, 80),
d = sample(1:5, size = 100, replace = TRUE),
dis_dur = runif(100, 20, 43),
stringsAsFactors = FALSE)
str(df)
#> 'data.frame': 100 obs. of 4 variables:
#> $ sex : chr "M" "M" "M" "M" ...
#> $ age_d : num 56.8 31.5 31.4 42.1 76.4 ...
#> $ d : int 2 1 4 3 5 2 4 2 3 2 ...
#> $ dis_dur: num 33.3 21.7 23.8 37 30.9 ...
加載並附加 qwraps2 命名空間
library(qwraps2)
默認情況下 qwraps2 在 LaTeX 中格式化輸出。 要將默認切換到降價設置以下選項
options(qwraps2_markup = "markdown")
更新:從 qwraps2 的 0.5.0 版開始,不再需要或推薦使用.data
代詞。
stats_summary1 <-
list("Sex (female)" =
list("number (%)" = ~ qwraps2::n_perc(sex=="F", digits = 1)),
"Age" =
list("min" = ~ min(age_d, digits = 1),
"max" = ~ max(age_d, digits = 1),
"median (IQR)" = ~ qwraps2::median_iqr(age_d, digits = 1)),
"Disease" =
list("A" = ~ qwraps2::n_perc(d==1, digits = 1),
"B" = ~ qwraps2::n_perc(d==2, digits = 1),
"C" = ~ qwraps2::n_perc(d==3, digits = 1),
"D" = ~ qwraps2::n_perc(d==4, digits = 1),
"E" = ~ qwraps2::n_perc(d==5, digits = 1)),
"Disease duration" =
list("min" = ~ min(dis_dur, digits = 1),
"max" = ~ max(dis_dur, digits = 1),
"median (IQR)" = ~ qwraps2::median_iqr(dis_dur, digits = 1))
)
whole <- summary_table(df, stats_summary1)
whole
#>
#>
#> | |df (N = 100) |
#> |:-------------------------|:-----------------|
#> |**Sex (female)** | |
#> | number (%) |56 (56.0%) |
#> |**Age** | |
#> | min |1 |
#> | max |77.6816968536004 |
#> | median (IQR) |52.8 (33.7, 64.8) |
#> |**Disease** | |
#> | A |26 (26.0%) |
#> | B |20 (20.0%) |
#> | C |15 (15.0%) |
#> | D |21 (21.0%) |
#> | E |18 (18.0%) |
#> |**Disease duration** | |
#> | min |1 |
#> | max |42.5464100171812 |
#> | median (IQR) |31.0 (25.1, 35.8) |
這可以解決百分比符號上的正斜杠問題(LaTeX 需要轉義)。 確保您設置了results = "asis"
塊選項,以便表格在您的最終文檔中呈現得很好。
對於省略的副標題, qwraps2_summary_table
對象是一個字符矩陣,具有相應的類屬性設置,並具有附加屬性rgroups
,打印方法使用它來正確格式化輸出。
str(whole)
#> 'qwraps2_summary_table' chr [1:12, 1] "56 (56.0%)" "1" "77.6816968536004" ...
#> - attr(*, "dimnames")=List of 2
#> ..$ : chr [1:12] "number (%)" "min" "max" "median (IQR)" ...
#> ..$ : chr "df (N = 100)"
#> - attr(*, "rgroups")= Named int [1:4] 1 3 5 3
#> ..- attr(*, "names")= chr [1:4] "Sex (female)" "Age" "Disease" "Disease duration"
#> - attr(*, "n")= int 100
由reprex 包(v0.3.0) 於 2020 年 9 月 14 日創建
devtools::session_info()
#> ─ Session info ───────────────────────────────────────────────────────────────
#> setting value
#> version R version 4.0.2 (2020-06-22)
#> os macOS Catalina 10.15.6
#> system x86_64, darwin17.0
#> ui X11
#> language (EN)
#> collate en_US.UTF-8
#> ctype en_US.UTF-8
#> tz America/Denver
#> date 2020-09-14
#>
#> ─ Packages ───────────────────────────────────────────────────────────────────
#> package * version date lib source
#> assertthat 0.2.1 2019-03-21 [1] CRAN (R 4.0.0)
#> backports 1.1.9 2020-08-24 [1] CRAN (R 4.0.2)
#> callr 3.4.4 2020-09-07 [1] CRAN (R 4.0.2)
#> cli 2.0.2 2020-02-28 [1] CRAN (R 4.0.0)
#> crayon 1.3.4 2017-09-16 [1] CRAN (R 4.0.0)
#> desc 1.2.0 2018-05-01 [1] CRAN (R 4.0.0)
#> devtools 2.3.1 2020-07-21 [1] CRAN (R 4.0.2)
#> digest 0.6.25 2020-02-23 [1] CRAN (R 4.0.0)
#> ellipsis 0.3.1 2020-05-15 [1] CRAN (R 4.0.0)
#> evaluate 0.14 2019-05-28 [1] CRAN (R 4.0.0)
#> fansi 0.4.1 2020-01-08 [1] CRAN (R 4.0.0)
#> fs 1.5.0 2020-07-31 [1] CRAN (R 4.0.2)
#> glue 1.4.2 2020-08-27 [1] CRAN (R 4.0.2)
#> highr 0.8 2019-03-20 [1] CRAN (R 4.0.0)
#> htmltools 0.5.0 2020-06-16 [1] CRAN (R 4.0.0)
#> knitr 1.29 2020-06-23 [1] CRAN (R 4.0.0)
#> magrittr 1.5 2014-11-22 [1] CRAN (R 4.0.0)
#> memoise 1.1.0 2017-04-21 [1] CRAN (R 4.0.0)
#> pkgbuild 1.1.0 2020-07-13 [1] CRAN (R 4.0.2)
#> pkgload 1.1.0 2020-05-29 [1] CRAN (R 4.0.0)
#> prettyunits 1.1.1 2020-01-24 [1] CRAN (R 4.0.0)
#> processx 3.4.4 2020-09-03 [1] CRAN (R 4.0.2)
#> ps 1.3.4 2020-08-11 [1] CRAN (R 4.0.2)
#> qwraps2 * 0.5.0 2020-08-31 [1] local
#> R6 2.4.1 2019-11-12 [1] CRAN (R 4.0.0)
#> Rcpp 1.0.5 2020-07-06 [1] CRAN (R 4.0.0)
#> remotes 2.2.0 2020-07-21 [1] CRAN (R 4.0.2)
#> rlang 0.4.7 2020-07-09 [1] CRAN (R 4.0.2)
#> rmarkdown 2.3 2020-06-18 [1] CRAN (R 4.0.0)
#> rprojroot 1.3-2 2018-01-03 [1] CRAN (R 4.0.0)
#> sessioninfo 1.1.1 2018-11-05 [1] CRAN (R 4.0.0)
#> stringi 1.5.3 2020-09-09 [1] CRAN (R 4.0.2)
#> stringr 1.4.0 2019-02-10 [1] CRAN (R 4.0.0)
#> testthat 2.3.2 2020-03-02 [1] CRAN (R 4.0.0)
#> usethis 1.6.1 2020-04-29 [1] CRAN (R 4.0.0)
#> withr 2.2.0 2020-04-20 [1] CRAN (R 4.0.0)
#> xfun 0.17 2020-09-09 [1] CRAN (R 4.0.2)
#> yaml 2.2.1 2020-02-01 [1] CRAN (R 4.0.0)
#>
#> [1] /Library/Frameworks/R.framework/Versions/4.0/Resources/library
由於未提供您的data
因此您的示例無法真正重現。
對我有用的是以下內容:
我沒有使用qwraps2
的匯總統計參數,而是使用carpenter
包中的參數。 這是因為在通過bookdown
包呈現的 PDF 文檔中, qwraps2::mean_sd()
將“±”符號呈現為±
在表中。 相反, carpenter::stat_meanSD()
避免使用“±”符號並使用括號代替 SD。 如果您更喜歡“±”符號,您可以使用paste()
做另一種解決方法。
在您的示例中, qwraps2
忽略了諸如Sex (female)
、 Age
等頂級標題的事實非常煩人。 我的解決方法是通過kableExtra
包手動重新引入這些標題。 在你的例子中,這將是這樣的:
.
options(qwraps2_markup = "markdown")
summary_table(df, stats_summary1) %>%
kableExtra::pack_rows("Sex (female)", 1, 1) %>%
kableExtra::pack_rows("Age", 2, 4) %>%
kableExtra::pack_rows("Disease", 5, 9) %>%
kableExtra::pack_rows("Disease duration", 10, 12)
聲明:本站的技術帖子網頁,遵循CC BY-SA 4.0協議,如果您需要轉載,請注明本站網址或者原文地址。任何問題請咨詢:yoyou2525@163.com.