如何使用compareGroups包显示中间值？

我有以下代码：

data("ToothGrowth")
res<-compareGroups(supp~len, data = ToothGrowth)
restab<-createTable(res, show.p.overall = FALSE, extra.labels=c("","",""))
print(restab, which.table = "descr")

---

问题：如何使其同时输出中值？我需要HTML格式的平均中值和标准偏差的分组汇总。你可以添加任何你想要的统计数据

library(dplyr)

data("ToothGrowth")

df<-ToothGrowth %>%
  group_by(supp) %>%
  summarize(mean = mean(len), 
            median = median(len),
            sd = sd(len),
            count = n())

df

# # A tibble: 2 x 5
# supp   mean median    sd count
# <fct> <dbl>  <dbl> <dbl> <int>
# 1 OJ     20.7   22.7  6.61    30
# 2 VC     17.0   16.5  8.27    30

---

这是一个很好的例子，但我需要将其导出为html，以便将其作为表包含在Word文件中（这就是我使用CompareGroup的原因）。是否可以添加生成html表的代码（带或不带附加包）？@vasili111我已经在回答中添加了用html格式化表的代码。如果这对您有效，那么您是否可以编辑您的问题以反映您试图实现的目标--在html表中按组汇总？

library(dplyr)

data("ToothGrowth")

df<-ToothGrowth %>%
  group_by(supp) %>%
  summarize(mean = mean(len), 
            median = median(len),
            sd = sd(len),
            count = n())

df

# # A tibble: 2 x 5
# supp   mean median    sd count
# <fct> <dbl>  <dbl> <dbl> <int>
# 1 OJ     20.7   22.7  6.61    30
# 2 VC     17.0   16.5  8.27    30

knitr::kable(df, format = "html", digits = 2)

# <table>
#   <thead>
#   <tr>
#   <th style="text-align:left;"> supp </th>
#   <th style="text-align:right;"> mean </th>
#   <th style="text-align:right;"> median </th>
#   <th style="text-align:right;"> sd </th>
#   <th style="text-align:right;"> count </th>
#   </tr>
#   </thead>
#   <tbody>
#   <tr>
#   <td style="text-align:left;"> OJ </td>
#   <td style="text-align:right;"> 20.66333 </td>
#   <td style="text-align:right;"> 22.7 </td>
#   <td style="text-align:right;"> 6.605561 </td>
#   <td style="text-align:right;"> 30 </td>
#   </tr>
#   <tr>
#   <td style="text-align:left;"> VC </td>
#   <td style="text-align:right;"> 16.96333 </td>
#   <td style="text-align:right;"> 16.5 </td>
#   <td style="text-align:right;"> 8.266029 </td>
#   <td style="text-align:right;"> 30 </td>
#   </tr>
#   </tbody>
#   </table>
#   > kable(df, format = "html", digits = 2)
# <table>
#   <thead>
#   <tr>
#   <th style="text-align:left;"> supp </th>
#   <th style="text-align:right;"> mean </th>
#   <th style="text-align:right;"> median </th>
#   <th style="text-align:right;"> sd </th>
#   <th style="text-align:right;"> count </th>
#   </tr>
#   </thead>
#   <tbody>
#   <tr>
#   <td style="text-align:left;"> OJ </td>
#   <td style="text-align:right;"> 20.66 </td>
#   <td style="text-align:right;"> 22.7 </td>
#   <td style="text-align:right;"> 6.61 </td>
#   <td style="text-align:right;"> 30 </td>
#   </tr>
#   <tr>
#   <td style="text-align:left;"> VC </td>
#   <td style="text-align:right;"> 16.96 </td>
#   <td style="text-align:right;"> 16.5 </td>
#   <td style="text-align:right;"> 8.27 </td>
#   <td style="text-align:right;"> 30 </td>
#   </tr>
#   </tbody>
#   </table>