如何在R中创建分对角线双数据框相关矩阵并导出Excel

1. 准备数据并计算相关矩阵 #

先确保两个数据集的变量顺序完全一致，再分别计算各自的相关系数矩阵：

# 模拟示例数据（替换成你的真实数据集）
set.seed(123)
df1 <- data.frame(v1 = rnorm(50), v2 = rnorm(50), v3 = rnorm(50), v4 = rnorm(50))
df2 <- data.frame(v1 = rnorm(50), v2 = rnorm(50), v3 = rnorm(50), v4 = rnorm(50))

# 计算两个数据集的相关矩阵
cor_df1 <- cor(df1)
cor_df2 <- cor(df2)

2. 构建组合相关矩阵 #

利用矩阵索引，将下三角（含对角线）设为第一个数据集的相关系数，上三角设为第二个数据集的：

# 初始化组合矩阵，以df1的相关矩阵为基础
combined_cor <- cor_df1

# 替换上三角区域为df2的相关系数
combined_cor[upper.tri(combined_cor)] <- cor_df2[upper.tri(cor_df2)]

# 查看格式化后的结果
round(combined_cor, 2)

注：如果两个数据集变量顺序不一致，先通过cor_df2 <- cor(df2[, colnames(df1)])对齐变量顺序，避免索引错误。

3. 导出到Excel文件 #

推荐用轻量无依赖的writexl包，或功能更丰富的openxlsx包：

方法一：使用writexl（快速导出） #

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

# 导出到指定路径
write_xlsx(as.data.frame(combined_cor), path = "组合相关矩阵.xlsx")

方法二：使用openxlsx（支持格式设置） #

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

# 创建工作簿并写入数据
wb <- createWorkbook()
addWorksheet(wb, sheetName = "相关矩阵")
writeData(wb, sheet = "相关矩阵", x = combined_cor)

# 保存文件
saveWorkbook(wb, file = "组合相关矩阵_带格式.xlsx", overwrite = TRUE)

内容的提问来源于stack exchange，提问作者Mary B.