r - 表 R Markdown qwraps2 和 knitr::kable。缺少列
问题描述
我有以下虚拟data.frame
set.seed(12345)
df<-data.frame(var1=floor(runif(10,1000000,5000000)), group=rep(c("A","B"),5), event=rep(c("Yes","No"),5))
并想创建一个汇总表。我试着用qwraps2
如下:
summary<-list("VAlue1" =
list("min" = ~ min(.data$var1),
"max" = ~ max(.data$var1),
"mean (sd)" = ~ qwraps2::mean_sd(.data$var1)),
"Group" =
list("Yes" = ~ qwraps2::n_perc0(.data$group == "A"),
"No" = ~ qwraps2::n_perc0(.data$group == "B")))
knitr::kable(
qwraps2::summary_table(dplyr::group_by(df, event),summary )
)
不幸的是,输出缺少要查看的变量:
| |event: No (N = 5) |event: Yes (N = 5) |
|:---------|:--------------------------------|:----------------------------------|
|min |2591303 |1315253 |
|max |4232714 |4711820 |
|mean (sd) |3,456,579.40 ± 672,665.35 |3,029,844.00 ± 1,572,709.32 |
|Yes |0 (0) |5 (100) |
|No |5 (100) |0 (0) |
如何合并类别“Value1”和“Group”?
谢谢!
也欢迎对其他软件包提出建议。
解决方案
返回的对象summary_table
是带有附加 S3 类的字符矩阵qwraps2_summary_table
。行组名称Value1
并且
Group
不是显式字符矩阵的一部分,它们是部分属性。对象的 print 方法qwraps2_summary_table
根据需要为适当的标记语言、LaTeX 或 markdown 构建表格。
对发布的示例进行两次编辑以获取您要查找的表:
添加
options(qwraps2_markup = "markdown")
到您的脚本中。默认标记语言是 LaTeX,设置此选项会将默认值更改为 markdown。不要包裹
summary_table
在knitr::kable
: 内部,这样可以防止调用所需的打印方法。
options(qwraps2_markup = "markdown")
set.seed(12345)
df <- data.frame(var1 = floor(runif(10,1000000,5000000)),
group = rep(c("A","B"),5),
event = rep(c("Yes","No"),5))
summary <- list("Value1" =
list("min" = ~ min(var1),
"max" = ~ max(var1),
"mean (sd)" = ~ qwraps2::mean_sd(var1)),
"Group" =
list("Yes" = ~ qwraps2::n_perc0(group == "A"),
"No" = ~ qwraps2::n_perc0(group == "B")))
tab <- qwraps2::summary_table(df, summaries = summary, by = "event")
str(tab)
#> 'qwraps2_summary_table' chr [1:5, 1:2] "1665487" "4958947" ...
#> - attr(*, "dimnames")=List of 2
#> ..$ : chr [1:5] "min" "max" "mean (sd)" "Yes" ...
#> ..$ : chr [1:2] "No (N = 5)" "Yes (N = 5)"
#> - attr(*, "rgroups")= Named int [1:2] 3 2
#> ..- attr(*, "names")= chr [1:2] "Value1" "Group"
tab
#>
#>
#> | |No (N = 5) |Yes (N = 5) |
#> |:----------------------|:----------------------------------|:--------------------------------|
#> |**Value1** | | |
#> | min |1665487 |2300381 |
#> | max |4958947 |4043929 |
#> | mean (sd) |3,741,784.20 ± 1,370,520.00 |3,392,933.80 ± 782,295.15 |
#> |**Group** | | |
#> | Yes |0 (0) |5 (100) |
#> | No |5 (100) |0 (0) |
由reprex 包于 2020-09-15 创建(v0.3.0)
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-15
#>
#> ─ 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-09-14 [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