如何为R语言中dplyr生成的summarise统计表格添加标题？

首先修正你代码里的管道符错误，应该用%>%而非%>，否则代码会报错。下面提供几种实用方法给表格添加标题：

方法1：用gt包生成带标题的可视化表格（推荐） #

gt包专门用于创建美观的可交互表格，添加标题和副标题非常方便：

library(dplyr)
library(gt)

Cholesteroldata %>%
  group_by(Genotype) %>%
  summarise(`W Stat` = shapiro.test(Cholesterol)$statistic,
            p.value = shapiro.test(Cholesterol)$p.value) %>%
  gt() %>%
  tab_header(
    title = "不同基因型组的胆固醇水平Shapiro-Wilk检验结果",
    subtitle = "用于验证各组数据的正态性"
  )

运行后，表格会在RStudio的Viewer窗口显示，自带你设置的标题和副标题。

方法2：用kable + kableExtra包生成带标题的表格 #

如果熟悉knitr生态，也可以用这套组合：

library(dplyr)
library(knitr)
library(kableExtra)

Cholesteroldata %>%
  group_by(Genotype) %>%
  summarise(`W Stat` = shapiro.test(Cholesterol)$statistic,
            p.value = shapiro.test(Cholesterol)$p.value) %>%
  kable(caption = "不同基因型组的胆固醇水平Shapiro-Wilk检验结果") %>%
  kable_styling()

同样会在Viewer窗口输出格式化的带标题表格。

方法3：控制台输出带标题的表格 #

如果只是需要在R控制台打印带标题的表格，可以先保存结果，再手动输出标题：

# 先计算得到结果表格
result_table <- Cholesteroldata %>%
  group_by(Genotype) %>%
  summarise(`W Stat` = shapiro.test(Cholesterol)$statistic,
            p.value = shapiro.test(Cholesterol)$p.value)

# 打印标题和表格
cat("=== 不同基因型组的胆固醇水平Shapiro-Wilk检验结果 ===\n")
print(result_table)

内容的提问来源于stack exchange，提问作者Natalie Prowse