如何将Mann Kendall检验结果保存至Excel？附当前执行代码

你当前的代码只是完成了检验并把结果存在Prec_45里，但这个变量是R的htest类对象（本质是嵌套列表），没法直接导出到Excel。得先把结果转换成规整的数据框，再用导出工具写入文件，步骤如下：

1. 提取检验结果到数据框 #

先把Prec_45里的关键信息（比如统计量、p值、趋势方向、方法说明等）提取出来，做成数据框：

# 假设你用的是trend包的mk.test，提取核心信息
result_df <- data.frame(
  检验方法 = Prec_45$method,
  Z统计量 = Prec_45$statistic,
  P值 = Prec_45$p.value,
  Sen斜率 = Prec_45$estimate,
  趋势方向 = ifelse(Prec_45$estimate > 0, "上升趋势", "下降趋势"),
  备择假设 = Prec_45$alternative,
  row.names = NULL
)

如果用的是其他包的mk.test，可以先运行str(Prec_45)查看结果的结构，调整提取的元素名称即可。

2. 安装并使用Excel导出包 #

推荐用writexl（轻量简单）或者openxlsx（功能丰富）来导出：

方法一：用writexl #

# 首次使用先安装包
install.packages("writexl")
library(writexl)

# 导出到指定路径的Excel文件
write_xlsx(result_df, "Mann_Kendall检验结果.xlsx")

方法二：用openxlsx（支持多工作表） #

install.packages("openxlsx")
library(openxlsx)

# 创建工作簿，添加工作表并写入数据
wb <- createWorkbook()
addWorksheet(wb, "Prec_45趋势检验")
writeData(wb, "Prec_45趋势检验", result_df)
# 保存工作簿，overwrite=TRUE覆盖已有文件
saveWorkbook(wb, "Mann_Kendall检验结果.xlsx", overwrite = TRUE)

运行完上面的代码，就能在你的工作目录下找到导出的Excel文件了。

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