如何在R中使用qwraps2在新行中添加组比较结果

我正在学习彼得·德维特的《关于qwraps2和汇总表的伟大著作》，但无法取得进一步进展

以下是我目前的数据和代码：

data(mtcars)

  mtcars2 <- dplyr::mutate(mtcars,
                cyl_factor = factor(cyl,
                                    levels = c(6, 4, 8),
                                    labels = paste(c(6, 4, 8), "cylinders")),
                cyl_character = paste(cyl, "cylinders"),
                gear_factor = factor(gear,
                                     levels = c(3, 4, 5),
                                     labels = paste(c(3, 4, 5), "gears")))

new_summary <- mtcars2 %>%
  dplyr::select(.data$mpg, .data$wt, .data$gear_factor) %>%
  qsummary(.)

by_cyl <- mtcars2 %>%
  dplyr::group_by(.data$cyl_factor) %>%
  summary_table(., new_summary)

所以我有两个问题：

我如何向表中添加一行并用一些内容填充它

如何运行组比较测试，将其设置为正确的格式，并将其输入到表中

我的主要问题是第一个问题，这非常重要，我现在被卡住了。如果我能得到帮助来解决这个问题，我也许可以通过摆弄DeWitt的MPVAL示例，自己解决问题2。虽然我也很乐意在问题2上得到帮助

---

到目前为止，我试图在qsummary（）中添加一个空行，但无法实现。我试图操纵summary_table创建的字符矩阵，但不知道如何操纵它。感谢您的帮助

将比较行添加到每个行组并不是

qwraps2:：summary_table

将直接支持。这是因为 这个问题与降价的局限性和交易的复杂性有关 支持所有不同的方法来实现表的跨多线程 在乳胶中

使用

qwraps2:：summary_table

生成主表是一个好方法 起点。构建输出表本身将需要一些其他方法 包裹

随着qwraps2版本0.5.0的发布，mtcars2数据已导出 数据集，不需要显式构建

库（qwraps2）
选项（qwraps2_markup=“markdown”）
摘要-属性（*，“名称”）=2个列表
#>..$：chr[1:11]“最小”“中值（IQR）”“平均值（sd）”“最大值”。。。
#>..$：chr[1:3]“6个气缸（N=7）”“4个气缸（N=11）”“8个气缸（N=14）”
#>-attr（*，“rgroups”）=命名的int[1:3]4
#>..-attr（*，“name”）=chr[1:3]“mpg”“wt”“齿轮系数”

我将报告F-统计量和p-值，而不是Choen's D 方差分析

mpg_comp[1]“$F{2,29}=22.91$*P*<0.0001”

对于构建表，有许多选项。在中跨越多个列 降价不是小事。不同风格的降价将使 不同的桌子。有些将支持多列跨越，其他风格 不会

对于降价表，我建议使用一个带有比较的新列 报道。对于

by_cyl

表，我将把F stat和p值放在 报告平均值的行。这将使统计测试和结果 在与汇总统计信息相关的行上

by_cyl2
#>| | 6个气缸（N=7）| 4个气缸（N=11）| 8个气缸（N=14）|比较|
#> |:----------------------------|:--------------------|:--------------------|:--------------------|:--------------------------------|
#>|**mpg**| | | ||
#>|最低| 17.80 | 21.40 | 10.40 ||
#>|中位数（IQR）| 19.70（18.65,21.00）| 26.00（22.80,30.40）| 15.20（14.40,16.25）||
#>|平均值（sd）| 19.74±；1.45 | 26.66和plusmn；4.51 | 15.10和plusmn；2.56 |$F{2，29}=39.70$*P*<0.0001|
#>|最大值| 21.40 | 33.90 | 19.20 ||
#>|**wt**| | | ||
#>|最低| 2.62 | 1.51 | 3.17 ||
#>|中位数（IQR）| 3.21（2.82,3.44）| 2.20（1.89,2.62）| 3.75（3.53,4.01）||
#>|平均值（sd）| 3.12±；0.36 | 2.29±；0.57 | 4.00±；0.76 |$F{2,29}=22.91$*P*<0.0001|
#>|最大值| 3.46 | 3.19 | 5.42 ||
#>|**档位系数**| | | ||
#>| 3前进档| 2（29）| 1（9）| 12（86）||
#>| 4前进档| 4（57）| 8（73）| 0（0）||
#>| 5前进档| 1（14）| 2（18）| 2（14）||

相反，如果比较是新的一行，我喜欢使用 如果要添加空白行，则将比较添加到空白行。

summaries[[1]]|：--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------|
#>|**mpg**| | ||
#>|最低| 17.80 | 21.40 | 10.40|
#>|中位数（IQR）| 19.70（18.65,21.00）| 26.00（22.80,30.40）| 15.20（14.40,16.25）|
#>|平均值（sd）| 19.74±；1.45 | 26.66和plusmn；4.51 | 15.10和plusmn；2.56  |
#>|最大值| 21.40 | 33.90 | 19.20|
#>|比较|$F{2,29}=39.70$*P*<0.0001 ||
#>|**wt**| | ||
#>|最低| 2.62 | 1.51 | 3.17|
#>|中位数（IQR）| 3.21（2.82,3.44）| 2.20（1.89,2.62）| 3.75（3.53,4.01）|
#>|平均值（sd）| 3.12±；0.36 | 2.29±；0.57 | 4.00±；0.76   |
#>|最大值| 3.46 | 3.19 | 5.42|
#>|比较|$F{2,29}=22.91$*P*<0.0001 ||
                 6 cylinders (N = 7)    4 cylinders (N = 11)    8 cylinders (N = 14)
mpg           
   minimum      17.80                   21.40                   10.40
   median (IQR) 19.70 (18.65, 21.00)    26.00 (22.80, 30.40)    15.20 (14.40, 16.25)
   mean (sd)    19.74 ± 1.45            26.66 ± 4.51            15.10 ± 2.56
   maximum      21.40                   33.90                   19.20
   comparison   d = 0.87, 95% CI [0.80, 0.94], p    = 0.001
wt            
   minimum      2.62                    1.51                    3.17
   median (IQR) 3.21 (2.82, 3.44)       2.20 (1.88, 2.62)       3.75 (3.53, 4.01)
   mean (sd)    3.12 ± 0.36             2.29 ± 0.57             4.00 ± 0.76
   maximum      3.46                    3.19                    5.42
   comparison   d = 0.87, 95% CI [0.80, 0.94], p    = 0.001