使用"gridGraphics“包绘制多个热图

gridGraphics 包是 R 语言中的一个用于创建复杂图形布局的包，它允许用户将多个图形组合成一个单一的图形对象。热图（Heatmap）是一种数据可视化技术，用于表示矩阵数据的大小，其中颜色深浅代表数值的大小。

基础概念

热图：一种以颜色深浅表示数值大小的矩阵可视化方法。
gridGraphics：R 语言中的一个包，用于创建和管理复杂的图形布局。

类型

单热图：只显示一个矩阵的热图。
复合热图：将多个热图组合在一起，便于比较不同数据集。

应用场景

基因表达分析：比较不同条件下的基因表达水平。
社交网络分析：展示个体间的互动强度。
地理信息系统：表示不同地区的某种属性分布。

示例代码

以下是一个使用 gridGraphics 和 pheatmap 包绘制多个热图的 R 语言示例代码：

# 安装并加载必要的包
if (!requireNamespace("BiocManager", quietly = TRUE))
    install.packages("BiocManager")
BiocManager::install("pheatmap")
library(pheatmap)
library(gridGraphics)

# 创建示例数据
set.seed(123)
data1 <- matrix(rnorm(100), nrow = 10)
data2 <- matrix(rnorm(100, mean = 2), nrow = 10)

# 绘制第一个热图
pheatmap(data1, main = "Heatmap 1")

# 保存第一个热图的图形对象
grid::grid.grabExpr(grid::grid.draw(pheatmap(data1, main = "Heatmap 1", display_numbers = TRUE)))

# 绘制第二个热图
pheatmap(data2, main = "Heatmap 2")

# 保存第二个热图的图形对象
grid::grid.grabExpr(grid::grid.draw(pheatmap(data2, main = "Heatmap 2", display_numbers = TRUE)))

# 使用 gridGraphics 组合两个热图
grid.newpage()
pushViewport(viewport(layout = grid.layout(1, 2)))
print(pheatmap(data1, main = "Heatmap 1", display_numbers = TRUE), vp = viewport(layout.pos.row = 1, layout.pos.col = 1))
print(pheatmap(data2, main = "Heatmap 2", display_numbers = TRUE), vp = viewport(layout.pos.row = 1, layout.pos.col = 2))

可能遇到的问题及解决方法

问题：热图颜色不一致，导致比较困难。

原因：不同的热图可能使用了不同的颜色映射（colormap）。

解决方法：统一所有热图的颜色映射，例如使用相同的 colorRampPalette 函数定义颜色范围。

# 定义统一颜色映射
my_palette <- colorRampPalette(c("blue", "white", "red"))(n = 299)

# 在绘制热图时指定颜色映射
pheatmap(data1, main = "Heatmap 1", color = my_palette)
pheatmap(data2, main = "Heatmap 2", color = my_palette)

问题：热图标签重叠或不清晰。

原因：标签过多或字体大小不当。

解决方法：调整标签字体大小，或者使用 display_numbers 参数控制标签的显示。

pheatmap(data1, main = "Heatmap 1", fontsize_row = 8, fontsize_col = 8, display_numbers = TRUE)

通过上述方法，可以有效地解决在使用 gridGraphics 绘制多个热图时可能遇到的问题。

相关·内容

用 ComplexHeatmap 包绘制复杂热图

除了画单个热图之外，ComplexHeatmap 还支持组合多个热图，即称之为热图列表 heatmap list ，一系列热图和热图注释的集合。在热图列表周围，可设置全局级别的标题和图例。 ?...当然除了横向排列的热图列表外，还可以纵向排列。 ? ComplexHeatmap 包以面向对象的方式实现。...Heatmap() ，一行代码即可绘制默认参数下的热图： Heatmap(mat) ?...绘制更复杂的热图为基因表达矩阵加入更多信息热图常用于可视化基因表达矩阵，矩阵中的行与基因相对应，我们可以在表达热图后附加有关这些基因的更多信息。在下面的示例中，大的热图展示了基因的表达量。...在热图的最左侧，是由 anno_block() 绘制的彩色矩形，用于区分根据 k-means 聚类识别出五个聚类。

7.4K5 2

使用Python绘制点击图、热图

via: http://blog.csdn.net/wenyusuran/article pyHeatMap是一个使用Python生成热图的库，基本代码是我一年多之前写的，最近把它从项目中抠出来做成一个独立的库并开源...使用方法很简单，比如： # -*-coding:utf-8-*- import urllibfrom pyheatmap.heatmap import HeatMap def main():...目前这个库可以生成两种图片：点击图、热图。点击图效果如下： ? 热图效果如下： ? 绘制图片时，还可以指定一个底图，这个底图可以是任意图像，也可以是另一个点击图。...关于绘制热图中用到的方法，可以参考我以前的文章，比如关于网页点击热区图、 http://oldj.net/article/page-heat-map/ 关于热区图的色盘 http://oldj.net.../article/heat-map-colors/ 其中热图绘制中还用到了 Bresenham画圆算法 http://oldj.net/article/bresenham-algorithm/

3.2K4 0

热图绘制-pheatmap

热图绘制-pheatmap 概述新买的蓝牙耳机到了，试了试感觉还不错，低音也非常出色，窗外的颜色变得丰富了起来，看着街角那家咖啡店，仿佛回到了昨天，血色染红的天空在斑斓的世界之上，我匆匆茫茫的写下“

1.7K0 0

使用ComplexHeatmap绘制3D热图

起因 ComplexHeatmap包有一个densityHeatmap()函数用来对一组分布进行可视化。...在这里，区间中的频度使用热图进行可视化。那么现在，频度热图被称作是密度热图的histogram版本，但这看起来一点都不像histogram。那么可能一个3D的热图在这里更加适合。...下面一节我将会介绍如何在ComplexHeatmap包中集成3D热图功能的。 3D热图的实现首先，我们要能画3D的柱子，这可以通过新函数bar3D()实现。...下面一个例子是对一个麻疹疫苗数据集的可视化，第一张图是2D热图，第二张图是3D热图。源代码可以通过点击“阅读全文”获得。 ? ?...最后，InteractiveComplexHeatmap包可以将任何通过ComplexHeatmap生成的热图转变为一个Shiny app，那么Heatmap3D()生成的热图也同样可以。

2.2K2 0

R 热图绘制heatmap①

R.package heatmap():用于绘制简单热图的函数 heatmap.2():绘制增强热图的函数 d3heatmap:用于绘制交互式热图的R包 ComplexHeatmap:用于绘制、注释和排列复杂热图的...R&bioconductor包（非常适用于基因组数据分析）首先使用ggplot2画简单热图 data <- as.data.frame(matrix(rnorm(9*10),9,10)) rownames...使用paste对行列名简单命名。 melt函数将data转化为gene-id列，sample-variable列，以及表达值-value列。 ? ?...scale_fill_gradient2('legend name', low = 'blue', high = 'red', mid = 'white') #修改图例名字以及图中颜色大神Y叔也有画热图的

1.1K2 0

R 热图绘制heatmap②

使用pheatmap包绘制热图一般而言，pheatmap较heatmap.2等更为简洁以及易于理解，对于初学者而言是一款不错的热图绘制软件。...cluster_row = FALSE, cluster_col = FALSE treeheight_row=0, treeheight_col=0 # 在热图格子里展示文本 pheatmap(test...cluster_row = FALSE, cluster_col = FALSE是否聚类,#可设置参数display_numbers将数值显示在热图的格子中，可通过number_format设置数值的格式...#pheatmap还能够根据特定的条件将热图分隔开； # cutree_rows, cutree_cols：根据行列的聚类数将热图分隔开； pheatmap(test,cutree_rows=2,cutree_cols

1.4K5 1

「R」使用NMF包绘制热图

学习文档: https://cran.r-project.org/web/packages/NMF/vignettes/heatmaps.pdf Heatmap引擎 NMF包中的热图引擎是由aheatmap...函数实现，其余的热图函数都是基于它的修改。...数据和模型为了演示热图函数的用法，我们这里创建一个随机的NMF输入矩阵，以及一些注释和协变量。...接着，我们使用NMF模型来分解矩阵。 res = nmf(X, 3, nrun = 10) 混合系数矩阵：coefmap NMF结果的混合系数矩阵可以使用coefmap()函数进行绘制。...：aheatmap 还有很多自定义画热图的例子，使用下面的命令查看。

2.9K3 0

绘制有间隙的热图绘制-gapmap

今天小编向大家介绍一下使用gapmap和dendsort包生成带间隙的热图绘制方法及效果。...gapmap包通过调整每个叶子的位置来编码两个节点之间的相似性，两个相邻节点相似性的信息都体现树状图的分支高度中，基于相似性对叶片进行定位。...gapmap在树状图和热图的可视化中都引入了间隙，以指数方式将两个节点的距离（不相似）映射到间隙大小的比例。...install.packages("dendsort") library(dendsort) 1.绘制排序后的热图 gapmap(m = as.matrix(dataTable), d_row...小编总结： R语言中绘制聚类热图的方法有很多，比如pheatmap、heatmap还有我们今天介绍的gapmap等，小伙伴们可以比较优势，选择适合自己作图的R包哦~

1.4K2 1

circlize优雅绘制环状热图

加载R包 library(tidyverse) library(circlize) library(ComplexHeatmap) 导入数据 df <- read_tsv("data.tsv") 数据清洗...), start.degree = 165, start.degree = 0, gap.after=c(2,2,2,200)) 绘制热图...= "black",facing = "outside", niceFacing = F) }) 绘制图例...", legend_width = unit(8,"cm")) draw(lgd,x = unit(0.5,"npc"),y = unit(0.95,"npc")) ❝此图只是叠加了两层注释信息...，实际分析中有更多信息的还可以继续叠加；有需要学习数据可视化的朋友，欢迎到小编的「淘宝店铺」「R语言数据分析指南」下单购买，内容主要包括各种「高分论文的图表分析复现以及一些个性化图表的绘制」均包含数据

3924 0

R语言绘制大热图

大热图一般是高水平SCI的标准配置，可以迅速提高文章的送审和接受率。

1.2K3 0

Matplotlib如何绘制多个子图

www.cnblogs.com/chenqionghe/p/12355018.html 说明：本文经作者授权转载，禁止二次转载 Matplotlib是Python的底层绘图工具，可定制性很强，很多人刚开始使用...如何绘制多个子图的图表？这次写个小短文来讲一讲。 fig和axis的区别？相信不少小伙伴一开始都是直接用plt.plot来绘图，非常简单，但这是偷懒的做法，不建议大家这样。...fig相当于是一个大的画布，ax相当于是小的子图，一个画布可以有一个或多个子图。单个图表任何操作都是在axes对象上进行的，包括坐标轴、刻度、图例等。具体怎么用，下面讲到。...绘制多子图使用Matplotlib绘图单图相对比较容易，但有时候需要将多张图放在一张图表里，这就用到子图操作。...) # 画第4个图：条形图 ax[1][1].bar([20,10,30,25,15],[25,15,35,30,20],color='b') plt.show() 绘制不规则子图前面的两个图占了221

2.4K3 0

指定通路绘制gsea图热图和火山图

对初学者来说，跳过了大量细节，所以跟这个教程会比较吃力，有粉丝就提问了希望可以对这些通路在在具体的癌症里面细化展示，比如绘制gsea图，热图和火山图。...up_kegg_', gsub('/','-',up_kegg$Description[i]), '.pdf')) }) 然后批量针对每个通路绘制热图...gsub('/','-',up_kegg$Description[i]), '.pdf')) }) 然后批量针对每个通路绘制火山图...，把每个通路里面的基因列表标记在火山图里面，这个时候仍然是分成两步走，首先绘制一个火山图 (不同的包做差异分析得到的矩阵列名不一样，下面是DEseq2的结果举例哦 )： ## for volcano...gsub('/','-',brca_gsea$Description[i]), '.pdf')) }) 可以看到，虽然一千多个肿瘤样品跟一百多个正常样品进行差异分析

2.4K3 0

ComplexHeatmap|绘制单个热图-I

ComplexHeatmap可以绘制很复杂的热图，能满足日常以及文章所需，本次先简单的介绍单个热图绘制的内容。单个热图由热图主体和热图组件组成。...其中主体可分为行和列；组件可以是标题、树状图、矩阵名称和热图注释，在主图的四周均可，且顺序可调整。 ? 一载入数据，R包 1.1 载入ComplexHeatmap包 #if (!...去除最后几列，或者只选取列名字包含cell的（TCGA数据处理中也会经常遇到） mat = as.matrix(expr[, grep("cell", colnames(expr))]) 1.3 绘制最简单的热图...二热图修饰 2.1 颜色 1）连续型变量可以使用circle::colorRamp2()函数来生成Heatmap()中的颜色映射函数，输入参数为分割位置以及分割点上的颜色。...2.3 聚类聚类是热图可视化的关键组成部分，在ComplexHeatmap包中可以非常灵活的进行设置。

1.4K1 0

ggtree绘制离散型环状热图

❝本节来复现「nmicrobiol」上的一张图，此图有些小细节因此适用于「ggtree」绘制不需要其它扩展包；下面小编就通过一个详细的案例介绍如何绘制此图；参考文档 ❝https://yulab-smu.top.../treedata-book/chapter7.html ❞ 加载R包 library(tidyverse) library(ggtree) library(ggtreeExtra) library(ggnewscale...")+ geom_tiplab(size=2,align=T,linesize=0,color="black",offset =0.4) 导入热图数据热图中包含进化树名称，因此只需要将其转换为行名即可...df % column_to_rownames(var="label") 绘制heatmap 此处使用「color=NULL」来取消热图边框颜色...,offset设置热图与进化树直接的距离 p1 % select(1),offset=0.6,width=.1, colnames_offset_y

7701 0

【R语言】热图绘制-heatmap函数

前面给大家介绍过 1.超详细的热图绘制教程(5000余字)，真正的保姆级教程 2.R语言绘制基因表达热图（简易版） 3.一个R函数搞定风险评估散点图，热图 4.R绘制甲基化和表达谱联合分析热图...下面我们结合一个具体的例子来讲解如何使用R的heatmap函数绘制热图 #读取所有miRNA的表达矩阵 expr=read.table("miRNA_expr.txt",header=T,row.names...heatmap(data, cexCol = 1, #设置列标签字体大小 scale="row" #按行做归一化 ) 得到热图如下这个热图是使用默认配色方案来绘制的...R语言中的颜色(一) 里面提到过 R自带了5个跟颜色相关的函数，即： rainbow heat.colors terrain.colors topo.colors cm.colors 接下来我们就使用其他几种配色方案来绘制热图...(5000余字)，真正的保姆级教程 2.R语言绘制基因表达热图（简易版） 3.一个R函数搞定风险评估散点图，热图 4.R绘制甲基化和表达谱联合分析热图 5.R语言中的颜色(一)

2.4K3 0

环状注释热图-进阶绘制技巧

案例图结果图 ❝由于数据量过少因此绘制成半圆 ❞ 图形解读 ❝此类环状带注释条的热图，据小编了解大致有5种绘制方法，每一种方法各有千秋，本次所介绍代码大概是过程最为简便的，仔细阅读颇有收获。...在线同步更新 2024年案例图展示 2023年案例图展示

1661 0

R语言绘制地图热图

想到热图我们往往联想到生物信息学，其实在其他行业也存在热图。今天我们就介绍一下在地域分布热图，下面我们以中国地图的热图为例。...近代、当代地图数据国家基础地理信息中心 59 五十年代1:100万地形图近代、当代地图数据国家基础地理信息中心我们今天利用R语言基于各省边界地图数据进行热图的绘制： 1....热图所需要的R包：”mapdata”, “maptools”,“ggplot2”, “plyr”, “mapproj”, “sp”, “maps”。 2....热图已经绘制好，可是呢，似乎少了点什么。对的，每个省的名字并没有显示。...总结：基本的绘制过程如以上的情况。如果你想让你的热图更加美丽，你要做的就是有一个专业的审美，精准的配色。欢迎大家学习交流

6.3K3 1

GGplot绘制个性化热图

本文内容: ggplot2绘制热图热图展示方格为方块热图分面、添加标记换行长字符配色热图展示为点图加载R包 pkgs = c('tidyverse', 'forcats', 'gtools'...geom_tile(aes(fill = value), color = 'white', size = 1) p 2、调整方格为方块 p1 <- p + coord_fixed() p1 3、热图分面...p2 <- p1 + facet_wrap(~type.name) p2 4、热图添加标记 p3 <- p2 + geom_text(aes(label = value), color = 'black...scale_fill_simpsons() + theme(axis.text.x = element_text (angle = 45, vjust = 1, hjust=1)) 7、用点绘制热图...#CC3333')) + theme(axis.text.x = element_text (angle = 45, vjust = 1, hjust=1)) ---- 参考 [ggplot2绘制个性化热图

4241 0

R语言复杂热图的绘制

大家对热图应该都不陌生，但是混合的复杂热图在我们的应用中并不是太多见。今天给大家介绍一个绘制复杂热图的R包ComplexHeatmap。...我们看下包的主要功能，其主要通过以下布局将箱线图、散点图等整合到一起。 ? 这是其中主要的两个进行布局的功能类： HeatmapAnnotation()主要是构建绘图的annotation部分。...#下面是中间的热图提供数据，此处直接可以不绘制热图只绘制我们想要结合在一起的图。...其中主要的函数是： oncoPrint（）其为绘制热图的核心函数，其主要可以对热图的中的cell进行分割，更加细致显示数据的分布。其主要参数如下： ?...这个包还提供了一个好玩的功能那就是图形的交互函数 selectArea(mark = TRUE)#运行后，鼠标变成十字架，第一次点击是左上角，第二次点击是右下角。获取矩形的数据。

3K2 1

NC图表绘制-ggplot2绘制多组填充热图

最终结果 R包版本 ther attached packages: [1] MetBrewer_0.2.0 ggsci_3.0.0 ggnewscale_0.4.9 lubridate_

1371 0

点击加载更多

扫码

添加站长进交流群

领取专属 10元无门槛券

手把手带您无忧上云

使用"gridGraphics“包绘制多个热图

基础概念

相关优势

类型

应用场景

示例代码

可能遇到的问题及解决方法

社区

活动

资源

关于

腾讯云开发者

热门产品

热门推荐

更多推荐