R语言之可视化①①热图绘制heatmap

目录

R语言之可视化①误差棒

R语言之可视化②点图

R语言之可视化③点图续

R语言之可视化④点韦恩图upsetR

R语言之可视化⑤R图形系统

R语言之可视化⑥R图形系统续

R语言之可视化⑦easyGgplot2散点图

R语言之可视化⑧easyGgplot2散点图续

R语言之可视化⑨火山图

R语言之可视化⑩坐标系统

R语言之可视化①①热图绘制heatmap

======================================

R.package

  • heatmap():用于绘制简单热图的函数
  • heatmap.2():绘制增强热图的函数
  • d3heatmap:用于绘制交互式热图的R包
  • ComplexHeatmap:用于绘制、注释和排列复杂热图的R&bioconductor包(非常适用于基因组数据分析)

首先使用ggplot2画简单热图

data <- as.data.frame(matrix(rnorm(9*10),9,10))

rownames(data) <- paste("Gene", 1:9, sep="_")
colnames(data) <- paste("sample", 1:10, sep="_")
library(reshape2)
library(ggplot2)
data$ID <- rownames(data)
data_m <- melt(data, id.vars=c("ID"))
View(data_m)
  • data为9行10列的标准正太分布数据。
  • 使用paste对行列名简单命名。
  • melt函数将data转化为gene-id列,sample-variable列,以及表达值-value列。


p <- ggplot(data_m, aes(x=variable,y=ID)) + 
  xlab("samples") +  theme_classic() + theme(axis.ticks = element_blank(),
                axis.line = element_blank()) + 
  theme(panel.grid.major = element_blank()) + 
  theme(legend.key=element_blank())  +
  theme(axis.text.x=element_text(angle=45,hjust=1, vjust=1)) + 
  theme(legend.position="top") +  
  geom_tile(aes(fill=value)) + 
  scale_fill_gradient2("Expression",
                       low = "green", 
                       high = "red",
                      mid = "black")
p

  • theme_classic() + #去掉灰快
  • theme(axis.ticks = element_blank(),
    axis.line = element_blank()) + #去掉边框
  • xlab('row name') +
    ylab('column name') #更改行名和列名
  • scale_x_discrete(labels = 1:10, breaks = 1:10) +
    scale_y_discrete(labels = 1:10, breaks = 1:10) #修改行和列
  • scale_fill_gradient2('legend name',
    low = 'blue', high = 'red', mid = 'white') #修改图例名字以及图中颜色

推荐阅读更多精彩内容

  • 简介 文章较长,点击直达我的博客,浏览效果更好。本文内容基本是来源于STHDA,这是一份十分详细的ggplot2使...
    taoyan阅读 27,048评论 6 102
  • TaoYan 简介 本文将绘制静态与交互式热图,需要使用到以下R包和函数:heatmap():用于绘制简单热图的函...
    taoyan阅读 10,633评论 1 60
  • http://blog.sina.com.cn/s/blog_6bc5205e0102vma9.html inst...
    付德刚Q阅读 849评论 0 1
  • 作者/胄宁 带回稀稀零零的夜色, 闪过公路上的一道道灯光, 我坐在回家的包车上, 直直的眼睛显得无神, 麻木的嘴唇...
    胄宁阅读 58评论 0 3
  • 我想写点东西,回忆也好,篡改回忆也好,借一个平台让这些陪着自己走。微博微信qq都有太多熟人,难免会受限。难得地找了...
    le陪着你走mon阅读 39评论 0 0