在R中用corrplot()绘制相关矩阵时遇“无法合并col1与correlation”错误

你遇到的Can't combine col1 and correlation错误，是因为corrplot需要的是宽格式的相关系数矩阵（行、列都是变量名，单元格是对应相关系数），但你的test是长格式的tidy数据（三列：变量对、相关系数），两种格式不兼容导致类型混合报错。

下面提供两种可行的可视化方案：

方案一：用corrplot绘制（先转宽格式矩阵） #

先把长格式的test转回宽格式矩阵，再传入corrplot：

# 加载所需包
library(tidyverse)
library(corrplot)

# 将长格式数据转换为宽格式矩阵
cor_matrix <- test %>%
  pivot_wider(names_from = col2, values_from = correlation) %>%
  column_to_rownames(var = "col1") %>%
  as.matrix()

# 填充缺失值（未达阈值的相关系数设为0，也可保留NA，corrplot会自动处理）
cor_matrix[is.na(cor_matrix)] <- 0

# 绘制相关矩阵图
corrplot(cor_matrix, 
         method = "color", 
         type = "upper", # 仅显示上三角区域
         tl.col = "black", # 变量名颜色
         title = "高相关系数矩阵（阈值>0.6）")

若不需要填充0，直接保留NA即可，corrplot会自动将NA对应的位置留空。

方案二：用ggplot2绘制热力图（适配长格式数据） #

如果不想转换格式，直接用长格式数据绘制热力图更直观，适合展示筛选后的高相关变量对：

library(ggplot2)

ggplot(test, aes(x = col1, y = col2, fill = correlation)) +
  geom_tile(color = "white") +
  geom_text(aes(label = round(correlation, 2)), size = 3) + # 显示保留两位小数的相关系数
  scale_fill_gradient(low = "#f0f9e8", high = "#006d2c") + # 自定义颜色渐变
  theme_minimal() +
  theme(axis.text.x = element_text(angle = 45, hjust = 1)) + # 旋转x轴标签避免重叠
  labs(title = "变量高相关对热力图（阈值>0.6）",
       x = "", y = "", fill = "相关系数")

额外优化建议 #

你的get_cor函数用cor作为参数名，容易和R内置的cor()函数冲突，建议改为threshold避免潜在问题：

get_cor <- function(df, threshold) {
    cor_df <- df %>% 
        as.matrix %>%
        cor %>%
        as.data.frame %>%
        rownames_to_column(var = 'col1') %>%
        pivot_longer(-col1, names_to = "col2", values_to = "correlation") %>%
        filter(col1 != col2, correlation > threshold)
    return(cor_df)
}

test <- get_cor(college_df_num, .6)

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