R语言画热图时图例(legend)过多超出画图边界

Stella981
• 阅读 1613
用R语言的pheatmap 包画热图可以给行或者列添加注释,比如添加个分组信息

示例代码

test = matrix(rnorm(200), 20, 10)test[1:10, seq(1, 10, 2)] = test[1:10, seq(1, 10, 2)] + 3test[11:20, seq(2, 10, 2)] = test[11:20, seq(2, 10, 2)] + 2test[15:20, seq(2, 10, 2)] = test[15:20, seq(2, 10, 2)] + 4colnames(test) = paste("Test", 1:10, sep = "")rownames(test) = paste("Gene", 1:20, sep = "")annotation_col<-data.frame(group=factor(c(rep("A",5),rep("B",5))))rownames(annotation_col)<-paste0("Test",1:10)library(pheatmap)pheatmap(test,cluster_rows = F,cluster_cols = F,         annotation_col = annotation_col)

R语言画热图时图例(legend)过多超出画图边界

image.png

但是如果添加多组注释信息的话,他的图例是从上到下依次排列,如果太多图例就会超过绘图边界,比如

annotation_col<-data.frame(group=factor(c(rep("A",5),rep("B",5))),                           group_1=factor(LETTERS[1:10]),                           group_2=factor(letters[1:10]),                           group_3=factor(rep(c("CT1","CT2"),5)))rownames(annotation_col)<-paste0("Test",1:10)pheatmap(test,cluster_rows = F,cluster_cols = F,         annotation_col = annotation_col)

R语言画热图时图例(legend)过多超出画图边界

image.png

我有四个图例需要展示,但是这张图只出现了3个

当然可以通过增加图片的高度让第四个图例显示出来R语言画热图时图例(legend)过多超出画图边界

但是如果注释信息再多也不能够一直拉长图片高度呀! 

有一个办法是更改图例的大小,但是没有找到参数来调节。 

还有一个办法是:现在图例的单列,能不能改为多列显示?也没有找到参数调节

还有一个办法是不用这个函数了,换ComplexHeatmap包中的Heatmap函数 示例代码

mat = matrix(rnorm(100), 10)rownames(mat) = paste0("R", 1:10)colnames(mat) = paste0("C", 1:10)library(ComplexHeatmap)Heatmap(mat)column_ha = HeatmapAnnotation(foo1 = runif(10),                              foo2=rep(c("A","B"),5),                              foo3=rep(letters[1:5],2),                              foo4=LETTERS[1:10],                              foo5=letters[1:10],                              foo6=LETTERS[1:10])column_haHeatmap(mat,top_annotation = column_ha,        cluster_columns = F,        cluster_rows = F)

R语言画热图时图例(legend)过多超出画图边界

他的图例自动就换为两列了

调整图例的大小

https://jokergoo.github.io/ComplexHeatmap-reference/book/legends.html

但是具体的用法还得仔细看看。

欢迎大家关注我的公众号

小明的数据分析笔记本R语言画热图时图例(legend)过多超出画图边界

本文分享自微信公众号 - 小明的数据分析笔记本()。
如有侵权,请联系 support@oschina.cn 删除。
本文参与“OSC源创计划”,欢迎正在阅读的你也加入,一起分享。

点赞
收藏
评论区
推荐文章
blmius blmius
3年前
MySQL:[Err] 1292 - Incorrect datetime value: ‘0000-00-00 00:00:00‘ for column ‘CREATE_TIME‘ at row 1
文章目录问题用navicat导入数据时,报错:原因这是因为当前的MySQL不支持datetime为0的情况。解决修改sql\mode:sql\mode:SQLMode定义了MySQL应支持的SQL语法、数据校验等,这样可以更容易地在不同的环境中使用MySQL。全局s
Easter79 Easter79
3年前
swap空间的增减方法
(1)增大swap空间去激活swap交换区:swapoff v /dev/vg00/lvswap扩展交换lv:lvextend L 10G /dev/vg00/lvswap重新生成swap交换区:mkswap /dev/vg00/lvswap激活新生成的交换区:swapon v /dev/vg00/lvswap
皕杰报表之UUID
​在我们用皕杰报表工具设计填报报表时,如何在新增行里自动增加id呢?能新增整数排序id吗?目前可以在新增行里自动增加id,但只能用uuid函数增加UUID编码,不能新增整数排序id。uuid函数说明:获取一个UUID,可以在填报表中用来创建数据ID语法:uuid()或uuid(sep)参数说明:sep布尔值,生成的uuid中是否包含分隔符'',缺省为
待兔 待兔
4个月前
手写Java HashMap源码
HashMap的使用教程HashMap的使用教程HashMap的使用教程HashMap的使用教程HashMap的使用教程22
Jacquelyn38 Jacquelyn38
3年前
2020年前端实用代码段,为你的工作保驾护航
有空的时候,自己总结了几个代码段,在开发中也经常使用,谢谢。1、使用解构获取json数据let jsonData  id: 1,status: "OK",data: 'a', 'b';let  id, status, data: number   jsonData;console.log(id, status, number )
Wesley13 Wesley13
3年前
mysql设置时区
mysql设置时区mysql\_query("SETtime\_zone'8:00'")ordie('时区设置失败,请联系管理员!');中国在东8区所以加8方法二:selectcount(user\_id)asdevice,CONVERT\_TZ(FROM\_UNIXTIME(reg\_time),'08:00','0
Wesley13 Wesley13
3年前
00:Java简单了解
浅谈Java之概述Java是SUN(StanfordUniversityNetwork),斯坦福大学网络公司)1995年推出的一门高级编程语言。Java是一种面向Internet的编程语言。随着Java技术在web方面的不断成熟,已经成为Web应用程序的首选开发语言。Java是简单易学,完全面向对象,安全可靠,与平台无关的编程语言。
Stella981 Stella981
3年前
Django中Admin中的一些参数配置
设置在列表中显示的字段,id为django模型默认的主键list_display('id','name','sex','profession','email','qq','phone','status','create_time')设置在列表可编辑字段list_editable
Wesley13 Wesley13
3年前
MySQL部分从库上面因为大量的临时表tmp_table造成慢查询
背景描述Time:20190124T00:08:14.70572408:00User@Host:@Id:Schema:sentrymetaLast_errno:0Killed:0Query_time:0.315758Lock_
Python进阶者 Python进阶者
9个月前
Excel中这日期老是出来00:00:00,怎么用Pandas把这个去除
大家好,我是皮皮。一、前言前几天在Python白银交流群【上海新年人】问了一个Pandas数据筛选的问题。问题如下:这日期老是出来00:00:00,怎么把这个去除。二、实现过程后来【论草莓如何成为冻干莓】给了一个思路和代码如下:pd.toexcel之前把这