ggplot2 一页多图

相似文件 换一批

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

通过构建multiplot函数，能够很容易地做到一页多图，该函数的具体定义附在末尾，如果它并不能完全满足你的需求，可以复制它并在它的基础上进行修改。

首先，构建一系列图像，但不直接去渲染它们，图像的具体细节并不重要，我们只需要将这些图像对象全部存储为变量。

1. library(ggplot2)
   
2.    
   
3.     # 下面的例子用到了ggplot2包中自带的示例数据集ChickWeight
   
4.     # 首先创建图像，第一幅图像——折线图
   
5.     p1 <- ggplot(ChickWeight, aes(x=Time, y=weight, colour=Diet, group=Chick)) +
   
6.         geom_line() +
   
7.         ggtitle("Growth curve for individual chicks")
   
8.    
   
9.     # 第二幅图像——密度分布图
   
10.     p2 <- ggplot(ChickWeight, aes(x=Time, y=weight, colour=Diet)) +
    
11.         geom_point(alpha=.3) +
    
12.         geom_smooth(alpha=.2, size=1) +
    
13.         ggtitle("Fitted growth curve per diet")
    
14.    
    
15.     # 第三幅图像——带拟合线的散点图
    
16.     p3 <- ggplot(subset(ChickWeight, Time==21), aes(x=weight, colour=Diet)) +
    
17.         geom_density() +
    
18.         ggtitle("Final weight, by diet")
    
19.    
    
20.     # 第四幅图像——分面直方图
    
21.     p4 <- ggplot(subset(ChickWeight, Time==21), aes(x=weight, fill=Diet)) +
    
22.         geom_histogram(colour="black", binwidth=50) +
    
23.         facet_grid(Diet ~ .) +
    
24.         ggtitle("Final weight, by diet") +
    
25.         theme(legend.position="none")        # 无图例（在这幅图中，图例显得太冗余了）

复制代码

接下来，我们可以用multiplot函数对创建的图像进行渲染，将它们展示为两行。

1. multiplot(p1, p2, p3, p4, cols=2)
   
2.     #> 载入需要grid包
   
3.     #> geom_smooth: method="auto" and size of largest group is <1000, so using loess. Use 'method = x' to change the smoothing method.

复制代码

下面是multiplot函数的具体定义，你可以把任意数量的图像名作为其参数，或者构建一个图像列表作为函数中的plotlist。

1. # Multiple plot function
   
2.     #
   
3.     # ggplot objects can be passed in ..., or to plotlist (as a list of ggplot objects)
   
4.     # - cols:   Number of columns in layout
   
5.     # - layout: A matrix specifying the layout. If present, 'cols' is ignored.
   
6.     #
   
7.     # If the layout is something like matrix(c(1,2,3,3), nrow=2, byrow=TRUE),
   
8.     # then plot 1 will go in the upper left, 2 will go in the upper right, and
   
9.     # 3 will go all the way across the bottom.
   
10.     #
    
11.     multiplot <- function(..., plotlist=NULL, file, cols=1, layout=NULL) {
    
12.       library(grid)
    
13.    
    
14.       # Make a list from the ... arguments and plotlist
    
15.       plots <- c(list(...), plotlist)
    
16.    
    
17.       numPlots = length(plots)
    
18.    
    
19.       # If layout is NULL, then use 'cols' to determine layout
    
20.       if (is.null(layout)) {
    
21.         # Make the panel
    
22.         # ncol: Number of columns of plots
    
23.         # nrow: Number of rows needed, calculated from # of cols
    
24.         layout <- matrix(seq(1, cols * ceiling(numPlots/cols)),
    
25.                         ncol = cols, nrow = ceiling(numPlots/cols))
    
26.       }
    
27.    
    
28.      if (numPlots==1) {
    
29.         print(plots[[1]])
    
30.    
    
31.       } else {
    
32.         # Set up the page
    
33.         grid.newpage()
    
34.         pushViewport(viewport(layout = grid.layout(nrow(layout), ncol(layout))))
    
35.    
    
36.         # Make each plot, in the correct location
    
37.         for (i in 1:numPlots) {
    
38.           # Get the i,j matrix positions of the regions that contain this subplot
    
39.           matchidx <- as.data.frame(which(layout == i, arr.ind = TRUE))
    
40.    
    
41.           print(plots[[i]], vp = viewport(layout.pos.row = matchidx$row,
    
42.                                           layout.pos.col = matchidx$col))
    
43.         }
    
44.       }
    
45.     }

复制代码

以上内容转自 数析学院 ，还有更多免费的资源，感兴趣的同学可以直接访问查看

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏4 回帖

关键词：ggplot2 gplot plot GPL Library library

gridExtra package 也可以看看

Thanks for sharing with us this invaluable resource.

suzhzh 发表于 2017-1-11 11:52
Thanks for sharing with us this invaluable resource.

好好好好

r-bloggers上看到过，多谢楼主分享。

谢谢分享~~

thanks for sharing