如何将基于mtcars数据集的单因素ANOVA检验结果导出至Excel文件？

首先说明：oneway.test()返回的是htest类对象，不是直接可导出的表格格式，需要先转换成结构化的数据框，再导出到Excel。下面是几种实用方法：

方法1：用broom+writexl快速导出 #

这是最省心的方式，broom能自动把检验结果规整成数据框，writexl直接生成xlsx文件，不需要依赖Java。

# 首次使用先装包
install.packages(c("broom", "writexl"))

# 加载包
library(broom)
library(writexl)

# 把htest对象转成数据框
results_df <- tidy(results)

# 导出到Excel
write_xlsx(results_df, "anova_results.xlsx")

导出后的表格会包含statistic（F值）、parameter1（分子自由度）、parameter2（分母自由度）、p.value等关键信息，列名清晰。

方法2：用openxlsx自定义导出格式 #

如果需要自定义表格内容（比如添加变量说明、修改列名），可以用openxlsx手动构建数据框后导出，还能设置单元格格式：

# 安装并加载包
install.packages("openxlsx")
library(openxlsx)

# 手动提取结果信息，构建更易读的数据框
results_df <- data.frame(
  检验类型 = "单因素ANOVA",
  分组变量 = "gear",
  响应变量 = "mpg",
  F值 = results$statistic,
  分子自由度 = results$parameter[1],
  分母自由度 = results$parameter[2],
  p值 = results$p.value
)

# 创建工作簿并写入数据
wb <- createWorkbook()
addWorksheet(wb, "ANOVA结果")
writeData(wb, "ANOVA结果", results_df)
# 可选：设置表头样式
addStyle(wb, "ANOVA结果", createStyle(textDecoration = "bold"), rows = 1, cols = 1:ncol(results_df))
saveWorkbook(wb, "anova_results_custom.xlsx", overwrite = TRUE)

方法3：基础CSV导出（无需额外包） #

如果不想装新包，可以先导出成CSV格式，再用Excel打开：

# 用broom转成数据框（或者手动构建）
results_df <- tidy(results)

# 导出CSV
write.csv(results_df, "anova_results.csv", row.names = FALSE)

CSV是通用格式，Excel直接就能打开编辑，适合临时快速导出的场景。

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