热点新闻
跟着Nature学作图:R语言pheatmap包做热图
2023-07-08 21:19  浏览:4792  搜索引擎搜索“养老之家”
温馨提示:信息一旦丢失不一定找得到,请务必收藏信息以备急用!本站所有信息均是注册会员发布如遇到侵权请联系文章中的联系方式或客服删除!
联系我时,请说明是在养老之家看到的信息,谢谢。
展会发布 展会网站大全 报名观展合作 软文发布

论文是

Environmental factors shaping the gut microbiome in a Dutch population

数据和代码的github主页链接

https://github.com/GRONINGEN-MICROBIOME-CENTRE/DMP

这个也是数据代码的下载链接,可以看目录结构

https://zenodo.org/record/5910709#.YmAcp4VBzic

今天的推文重复一下论文中的 Extended Data Fig. 10




image.png

论文中做数据计算和做这个图定义了一个很长很长的函数,这里只介绍作图代码,数据计算的过程我还看不懂

这里主要有两个数据,一个是热图颜色的数据,另外一个是加减号的文本数据,部分示例数据集如下




image.png




image.png

读取数据

dat01<-read.csv("ExtendedFig10_01.csv", header=TRUE, row.names = 1) dat02<-read.csv("ExtendedFig10_02.csv", header=TRUE, row.names = 1)

他这里还设置了一些额外参数,我保存到abc.Rdata这个数据集里了,加载这个数据集

load("abc.Rdata")

作图代码

pheatmap(dat01, annotation_row = NULL, annotation_names_row = T, labels_row = rownames(dat01), legend = T, show_rownames = T, cluster_rows = clusterFeatures, cluster_cols = clusterPhenos, angle_col = 90, fontsize_number = textSize, border_color = "#EEEEEE", na_col = "white", fontsize = legendTextSize, treeheight_row = 0, treeheight_col = 0, legend_labels = "sig*log(p-value)", color = myColor, fontsize_col = colTextSize, fontsize_row = rowTextSize, display_numbers = dat02, breaks = myBreaks, cellwidth = cellWidth, cellheight = cellHeight, filename = NA)


image.png

这里参数有点多,就不在推文里介绍了,争取录制视频介绍吧

示例数据和代码可以在公众号后台回复 20220531 获取

欢迎大家关注我的公众号

小明的数据分析笔记本

小明的数据分析笔记本 公众号 主要分享:1、R语言和python做数据分析和数据可视化的简单小例子;2、园艺植物相关转录组学、基因组学、群体遗传学文献阅读笔记;3、生物信息学入门学习资料及自己的学习笔记!




image.png

发布人:17de****    IP:61.145.37.***     举报/删稿
展会推荐
让朕来说2句
评论
收藏
点赞
转发