R语言ggplot在热图上标注相关系数的操作方法

install.packages("ggplot2")  
install.packages("reshape2")  
install.packages("corrplot") # 用于计算相关系数矩阵，但在此示例中不直接用于绘图  
library(ggplot2)  
library(reshape2)  
library(corrplot)

# 创建一个示例数据集  
set.seed(123)  
data <- data.frame(  
  A = rnorm(100),  
  B = rnorm(100, mean = 0.5),  
  C = rnorm(100, mean = -0.5),  
  D = rnorm(100)  
)  
# 计算相关系数矩阵  
cor_mat <- cor(data)

# 重塑数据为长格式  
melted_cor <- melt(cor_mat)  
# 为了在热图上添加文本，我们需要计算标签的位置  
# 这里我们使用一个简单的方法：找到每个单元格的中心  
x_pos <- rep(1:(ncol(cor_mat) - 1) / 2 + 0.5, each = nrow(cor_mat))  
y_pos <- rep(1:nrow(cor_mat), ncol(cor_mat) - 1) / 2 + 0.5  
# 创建一个数据框来保存位置信息  
text_pos <- data.frame(Var1 = names(cor_mat)[-ncol(cor_mat)],  
                       Var2 = names(cor_mat)[-1],  
                       x = x_pos,  
                       y = y_pos,  
                       label = format(melted_cor$value, digits = 2)) # 格式化标签为两位小数  
# 去除对角线上的值（因为它们总是1）  
text_pos <- text_pos[text_pos$Var1 != text_pos$Var2, ]

ggplot(melted_cor, aes(x = Var2, y = Var1, fill = value)) +  
  geom_tile() +  
  scale_fill_gradient2(low = "blue", high = "red", midpoint = 0, space = "Lab", name="Correlation\n(Pearson)") +  
  theme_minimal() +  
  theme(axis.text.x = element_text(angle = 90, hjust = 1)) +  
  geom_text(data = text_pos, aes(label = label), color = "white") + # 添加文本标签  
  xlab("") +  
  ylab("") +  
  coord_fixed() # 保持x和y轴的比例相同，这对于热图很重要

install.packages("ggplot2")  
install.packages("reshape2")  
library(ggplot2)  
library(reshape2)

# 创建一个示例数据集  
set.seed(123)  
data <- data.frame(  
  A = rnorm(10),  
  B = rnorm(10, mean = 0.5),  
  C = rnorm(10, mean = -0.5),  
  D = rnorm(10)  
)  
# 计算相关系数矩阵  
cor_mat <- cor(data)

# 重塑数据为长格式  
melted_cor <- melt(cor_mat)  
# 准备标注的位置和文本  
text_data <- melted_cor  
text_data$Var2 <- factor(text_data$Var2, levels = names(cor_mat)) # 确保x轴的顺序正确  
text_data <- text_data[!text_data$Var1 == text_data$Var2, ] # 去除对角线上的值  
# 设置文本标签的位置（这里使用简单的居中方式）  
text_data$x <- as.numeric(text_data$Var2)  
text_data$y <- as.numeric(text_data$Var1)  
text_data$label <- format(text_data$value, digits = 2) # 格式化标签

ggplot(melted_cor, aes(x = Var2, y = Var1, fill = value)) +  
  geom_tile() +  
  scale_fill_gradient2(low = "blue", high = "red", midpoint = 0, name = "Correlation\n(Pearson)") +  
  theme_minimal() +  
  theme(axis.text.x = element_text(angle = 45, hjust = 1)) +  
  xlab("") +  
  ylab("") +  
  coord_fixed() +  
  # 添加相关系数标签  
  geom_text(data = text_data, aes(label = label), color = "white") +  
  # 可选：调整标签位置以避免重叠  
  geom_text_repel(data = text_data, aes(label = label, x = x + 0.5, y = y + 0.5),  
                  color = "white", segment.color = NA, box.padding = unit(0.35, "lines"),  
                  point.padding = unit(0.5, "lines"), force = 4, seed = 123) # 使用ggrepel包（如果已安装）  
# 注意：如果我们没有ggrepel包，可以注释掉最后一行的geom_text_repel部分，  
# 但这可能会导致标签重叠，尤其是在小热图上。