如何制作不拥挤的27变量相关矩阵并导出至Word？

一、先得到规整的相关矩阵查看结果 #

先计算好标准化后的相关矩阵：

cor_mat <- round(cor(correlation_matrix_data, use = "complete.obs"), 2)

用gt包生成可交互的规整表格（RStudio内直接预览）：

# 首次使用需安装包
install.packages("gt")
library(gt)

# 生成格式化表格
gt(cor_mat) %>%
  tab_header(title = "27变量相关矩阵") %>%
  fmt_number(columns = everything(), decimals = 2)

二、直接导出至Word文档 #

推荐用flextable包，它对Office格式支持更友好，无需额外转换：

# 首次使用需安装包
install.packages("flextable")
library(flextable)

# 转换为可导出的表格对象
cor_table <- flextable(cor_mat) %>%
  set_caption("27变量Pearson相关矩阵") %>%
  autofit() # 自动适配列宽，避免内容挤压

# 导出到指定路径的Word文件
save_as_docx(cor_table, path = "相关矩阵结果.docx")

三、关于xtable报错/输出HTML代码的问题 #

你之前遇到的问题是因为xtable默认在RStudio控制台输出HTML格式代码而非可视化表格。如果一定要用xtable，需指定输出类型并保存为文件：

install.packages("xtable")
library(xtable)

xt <- xtable(cor_mat, caption = "相关矩阵")
# 导出为HTML文件，之后可复制到Word
print(xt, type = "html", file = "cor_matrix.html")
# 若用LaTeX转Word需额外工具，不如flextable高效

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