ggplot2绘制热图并添加注释信息—科研工具箱

请关注公众号【叨客学习资料】 在使用网站的过程中有疑问,请来公众号进行反馈哦

绘制热图一般可以使用pheatmap包快速绘制,但是使用ggplot2可以实现更多自定义设置,下面代码使用自带mtcars包进行热图绘制,并添加列注释(y轴标签在最外面)

标签显示在最外面的原理很简单,就是热图不显示axis.text.y,而是添加的注释的那个条条添加axis.text.y,如果有多个,只有最外面的显示axis.text.y

library(ggplot2)
library(aplot)
library(tidyr)
##library(ggtree) ##绘制聚类树使用

p <- scale(mtcars) %>% data.frame()
p$mtxars <- rownames(p)
#宽表转长表
p1 <- gather(p, 1:11, key=\"condition\", value=\'expr\')
#绘制热图
pp1 <- ggplot(p1,aes(condition,mtxars)) +
  geom_tile(aes(fill=expr),colour = \"white\")+ 
  scale_fill_gradientn(values = seq(0,1,0.2),colours =  c(\'#6699CC\',\'#FFFF99\',\'#CC3333\'))+
  theme_minimal()+
  scale_y_discrete(position=\"right\")+
  xlab(NULL) + ylab(NULL)+
  theme(axis.text.y = element_blank())
pp2 <- ggplot(p1,aes(condition,mtxars)) +
  scale_color_gradientn(values = seq(0,1,0.2),colours =  c(\'#6699CC\',\'#FFFF99\',\'#CC3333\'))+
  theme_bw()+
  geom_point(aes(size=expr,color=expr))+
  theme(panel.grid = element_blank(),axis.text.x =element_text(angle =90,hjust =0.5,vjust = 0.5))+
  xlab(NULL) + ylab(NULL)+
  theme(panel.border = element_rect(fill=NA,color=\"black\", size=1, linetype=\"solid\"),
        axis.text.y = element_blank())



Type_A <- rownames(p) %>% as.data.frame() %>%
  mutate(group=rep(c(\"A\",\"B\",\"C\"),
                   times=c(10,10,12))) %>%
  mutate(p=\"\")%>%
  ggplot(aes(p,.,fill=group))+
  geom_tile() + 
  scale_y_discrete(position=\"right\") +
  theme_minimal()+xlab(NULL) + ylab(NULL) +
  theme(axis.text.y = element_blank())+
  labs(fill = \"Type_A\")
Type_B <- rownames(p) %>% as.data.frame() %>%
  mutate(group=rep(c(\"D\",\"E\",\"F\"),
                   times=c(6,12,14))) %>%
  mutate(p=\"\")%>%
  ggplot(aes(p,.,fill=group))+
  geom_tile() + 
  scale_y_discrete(position=\"right\") +
  theme_minimal()+xlab(NULL) + ylab(NULL)+
  labs(fill = \"Type_B\")

pp1 %>%
  insert_left(Type_A, width = .05)%>%
  insert_left(Type_B,width=.05)

图片[1]-ggplot2绘制热图并添加注释信息—科研工具箱-叨客学习资料网
pp2 %>%
  insert_left(Type_A, width = .05)%>%
  insert_left(Type_B,width=.05)
图片[2]-ggplot2绘制热图并添加注释信息—科研工具箱-叨客学习资料网
© 版权声明
THE END
喜欢就支持一下吧
点赞0 分享
评论 抢沙发
头像
请输入有效评论哦,肆意灌水或者乱打评论是不会通过的,会影响您评论后获得资源哦~~
提交
头像

昵称

取消
昵称表情

    暂无评论内容