R语言绘制相关性热图：只保留半侧内容

以下是使用R语言绘制相关性热图，只保留半侧的示例代码：

# 生成随机数据
set.seed(123)
data <- matrix(rnorm(100), nrow=10)

# 计算相关系数矩阵
corr_mat <- cor(data)

# 绘制相关性热图，只保留下三角部分
library(ggplot2)
library(reshape2)

corr_mat_melt <- melt(corr_mat, varnames = c('row', 'col'))
ggplot(corr_mat_melt, aes(x=row, y=col, fill=value)) +
  geom_tile(data=subset(corr_mat_melt, row<=col), color='white') +
  scale_fill_gradient2(low='blue', mid='white', high='red', midpoint=0) +
  theme_minimal() +
  theme(axis.text.x = element_text(angle = 45, hjust = 1),
        panel.grid.major = element_blank(),
        panel.grid.minor = element_blank(),
        panel.border = element_blank(),
        axis.line = element_blank(),
        axis.ticks = element_blank())

输出结果如下：