如何实现一页多图与子母图？

在R中实现一页多图，如果用R基础函数绘图，相对比较容易，如果用ggplot2绘图，实现起来相对比较麻烦，我给大家介绍下两种情况下的实现方法：

1. R基础绘图一页多图之par函数

R基础函数绘图，可以通过par函数的mfcol或者mfrow参数设置，mfcol按照列排列，mfrow按照行排列；

比如par(mfcol = c(2, 2))，表示2行2列，共4幅图，并且按照列排列；

以iris数据集作为示例：

#保存图片pdf("test.pdf")#通过par函数的mfcol参数设置绘图排版，mai参数设置每幅图的边距par(mfcol = c(2,2), mai=c(0.7,0.7,0.3,0.2))#绘制第一幅图plot(iris$Sepal.Length, iris$Sepal.Width, main = "This is first plot")#绘制第二幅图plot(iris$Sepal.Length, iris$Sepal.Width,xlab = "Sepal.Length",ylab="Sepal.Width",main="This is second plot")#绘制第三幅图plot(iris$Sepal.Length, iris$Sepal.Width,xlab = "Sepal.Length",ylab="Sepal.Width",main="This is third plot",pch=16,col = iris$Species)#绘制第四幅图plot(iris$Sepal.Length, iris$Sepal.Width,xlab = "Sepal.Length",ylab="Sepal.Width",main="This is fourth plot",pch=16,col = iris$Species)#给第四幅图添加图例legend("topright",legend=unique(iris$Species),pch=16:19,col=unique(iris$Species))dev.off()

2. ggplot一页多图绘制之gridExtra

ggplot要想实现一页多图，最简单的办法是，借助于工具包gridExtra(当然也可以用grid实现，不过比较复杂，但是可以控制细节，也可以完成复杂度高的组合图形)，在此主要介绍gridExtra的实现方式：

 p1 <- ggplot(iris, aes(Species, Sepal.Width, fill = Species)) +    geom_boxplot() +    ggtitle("This is first plot") +    theme(axis.title = element_text(size = 14),          axis.text = element_text(size = 12),          plot.title = element_text(hjust = 0.5)) p2 <- ggplot(iris, aes(Species, Sepal.Width, fill = Species)) +    geom_boxplot() +    theme_bw() +    ggtitle("This is second plot") +    theme(axis.title = element_text(size = 14),          axis.text = element_text(size = 12),          plot.title = element_text(hjust = 0.5))  p3 <- ggplot(iris, aes(Sepal.Length, Sepal.Width, col = Species, shape = Species)) +    geom_point() +    ggtitle("This is third plot") +    theme(axis.title = element_text(size = 14),          axis.text = element_text(size = 12),          plot.title = element_text(hjust = 0.5)) p4 <- ggplot(iris, aes(Sepal.Length, Sepal.Width, col = Species, shape = Species)) +    geom_point() +    theme_bw() +    ggtitle("This is fourth plot") +    theme(axis.title = element_text(size = 14),          axis.text = element_text(size = 12),          plot.title = element_text(hjust = 0.5))#保存图片pdf("test_ggplot.pdf")#排列图形，ncol，nrow分别设着行列放置几张图grid.arrange(p1, p2, p3, p4, ncol = 2, nrow = 2)#关闭图形设备dev.off()

3. 再来一个子母图绘制工具--viewport

ggplot也可以实现子母图，可以通过viewport实现，viewport是grid绘图体系用于排版的函数（ggplot是基于grid绘图原理设计的）：

viewport主要的参数有4个，x和y设置中心位点相对于父图层的位置，width和height设置子图形的大小，如下图所示：

实战

p5 <- ggplot(iris, aes(Sepal.Length, Sepal.Width, col = Species, shape = Species)) +    geom_point(size = 2) +    theme_bw() +    ggtitle("This is main plot") +    xlim(4, 10) +    theme(axis.title = element_text(size = 16),          axis.text = element_text(size = 14),          plot.title = element_text(hjust = 0.5),          legend.position = "none")p6 <- ggplot(iris, aes(Species, Sepal.Width, fill = Species)) +    geom_boxplot() +    theme_bw() +    ggtitle("This is submain plot") +    theme(axis.title = element_blank(),          axis.text = element_text(size = 8),          plot.title = element_text(hjust = 0.5),          legend.position = "none") pdf("test_main.pdf")subvp <- viewport(x = 0.78, y = 0.3, width = 0.4, height = 0.4)p5print(p6, vp = subvp)def.off()

／End.

推荐阅读

点击下方图片即可阅读

扫码关注，获取更多精彩内容

我

是

彩

蛋

喜马拉雅FM搜索并订阅：生信者言；收听内容：

《一分钟听懂NGS基础概念》，让生信分析不再遥不可及

《亲爱的姑娘，你值得被温柔以待》，11个真实的人物故事

《众病之王：癌症传》，一起聆听人类对抗癌症的斗争史

回复文字：果然科学，看一篇好玩的科普文。