R实用绘图--相关性热图

R实用绘图系列主要是带领大家绘制一些实用、好看而又不太复杂的科研常用图形，该系列会持续更新，希望对小伙伴们有所帮助。

那我们就正式开始啦。

所需数据格式

准备好相关系数和显著性两个数据文件，数据展示如下。

相关系数矩阵

显著水平矩阵

数据处理

# 加载包
library(corrplot)

# 读取相关系数矩阵
corr <- read.csv('./corr.csv',row.names = 1)
# 读取显著水平矩阵
pvalue <- read.csv('./pvalue.csv',row.names = 1)

# 把数据由数据框转换为矩阵格式
corr <- as.matrix(corr)
pvalue <- as.matrix(pvalue)

#设置颜色
addcol <- colorRampPalette(c("red", "white", "blue"))

绘图并保存

#绘图并保存
pdf("plot.pdf", width = 8, height = 8) 
corrplot(corr, # 相关性矩阵
         method = "color", # 表示用颜色表示相关性大小
         col = addcol(100), 
         tl.col = "black", # 文本标签的颜色
         tl.cex = 0.8, # 文本标签的字符大小
         tl.srt = 90, #  文本标签的旋转角度
         tl.pos = "td", # 文本标签位置，td表示顶部和对角线 
         p.mat = pvalue, #  P 值矩阵
         diag = T, # 是否显示对角线上的相关性值
         type = 'upper', # 只绘制上三角部分
         sig.level = c(0.05), # 设置显著性水平阈值，可设置多个
         pch.cex = 1,  # 显著性标记字符大小
         pch.col = 'grey20',  # 显著性标记字符颜色
         insig = 'label_sig',
         order = 'AOE', #设置一种排序方式
         )
dev.off()

绘图效果

本期内容的数据集和代码可以通过在公众号后台回复20231130获得。喜欢的小伙伴，欢迎点赞、转发、收藏哦！

关注公众号数据之帆，成为一帆的原始粉丝，和一帆一起进步吧！