chart.Correlation绘制相关性热图

可以同时显示相关性和显著性的热图
我们最终绘制的是如下图所示
在这里插入图片描述
首先配置的文件如下所示
在这里插入图片描述
行为样本名,列为基因名的一个表达谱
读取文件

data = read.table("cor.txt",header=T,sep="\t")
data1<-data[,-1]

#计算相关性,默认用的是pearson相关性计算

cor_matr = cor(data1)
cor_matr

#保存相关性

write.table(cor_matr, file="cor_matr.xls",row.names=F, col.names=T,quote=FALSE,sep="\t")
library(corrplot)
#绘制一个下三角的热图,这个包的使用在之前的博客写过,这里一笔带过
corrplot(cor_matr, type="upper", order="hclust", tl.col="black", tl.srt=45)

在这里插入图片描述

 library(PerformanceAnalytics)
 #该图的绘制主要是由PerformanceAnalytics包做的,使用前需要安装
  chart.Correlation(data1,histogram = TRUE,pch=19)

在这里插入图片描述

#计算显著性

library(Hmisc) rcorr(as.matrix(data1))

在这里简单介绍一下这个图怎么去看:
里面的点,代表每一个样本,*代表显著性,***代表p小于0.01,图中的数值则为相关性

  • 10
    点赞
  • 63
    收藏
    觉得还不错? 一键收藏
  • 8
    评论
chart.Correlation是一个R语言中的函数,用于绘制相关性矩阵的可视化图表。它可以通过使用PerformanceAnalytics包来实现。在使用之前,需要先安装PerformanceAnalytics包。函数的语法如下所示: chart.Correlation(data, histogram = TRUE, pch = 19) 其中,data是一个数据框或矩阵,表示要进行相关性分析的数据集。histogram参数用于指定是否在图表中包含直方图,默认为TRUE。pch参数用于指定散点图中的点的形状,默认为19。\[1\]\[2\] 这个函数可以生成一个直观、简洁的相关性矩阵图表,可以帮助我们更好地理解数据之间的相关性关系。如果需要保存相关性矩阵,可以使用write.table函数将其保存为文件,如下所示: write.table(cor_matr, file = "cor_matr.xls", row.names = FALSE, col.names = TRUE, quote = FALSE, sep = "\t") 其中,cor_matr是相关性矩阵的数据对象。保存为.xls文件时,可以使用tab分隔符作为列分隔符。\[3\] 如果你想绘制一个下三角的热图,可以使用corrplot包来实现,如下所示: library(corrplot) corrplot(cor_matr, type = "lower", order = "hclust", tl.col = "black", tl.srt = 45) 这个函数可以根据相关性矩阵绘制一个下三角的热图,其中type参数指定绘制的类型为lower,order参数指定使用层次聚类对相关性矩阵进行排序,tl.col参数指定刻度标签的颜色,tl.srt参数指定刻度标签的旋转角度。\[3\] #### 引用[.reference_title] - *1* [R语言:修改chart.Correlation()函数绘制相关性图——完美出图](https://blog.csdn.net/weixin_44510686/article/details/113704202)[target="_blank" data-report-click={"spm":"1018.2226.3001.9630","extra":{"utm_source":"vip_chatgpt_common_search_pc_result","utm_medium":"distribute.pc_search_result.none-task-cask-2~all~insert_cask~default-1-null.142^v91^insertT0,239^v3^insert_chatgpt"}} ] [.reference_item] - *2* *3* [chart.Correlation绘制相关性热图](https://blog.csdn.net/weixin_43949246/article/details/105396382)[target="_blank" data-report-click={"spm":"1018.2226.3001.9630","extra":{"utm_source":"vip_chatgpt_common_search_pc_result","utm_medium":"distribute.pc_search_result.none-task-cask-2~all~insert_cask~default-1-null.142^v91^insertT0,239^v3^insert_chatgpt"}} ] [.reference_item] [ .reference_list ]

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论 8
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值