本篇内容介绍了“R语言可视化图表排版中的页多图介绍”的有关知识，在实际案例的操作过程中，不少人都会遇到这样的困境，接下来就让小编带领大家学习一下如何处理这些情况吧！希望大家仔细阅读，能够学有所成！
在河南等地区，都构建了全面的区域性战略布局，加强发展的系统性、市场前瞻性、产品创新能力，以专注、极致的服务理念，为客户提供网站设计制作、做网站 网站设计制作按需求定制设计,公司网站建设,企业网站建设,品牌网站设计,成都营销网站建设,成都外贸网站建设,河南网站建设费用合理。
昨天跟大家分享了关于图表嵌套的函数用法，今天跟大家分享在多图情况下如何正确的进行图表的版面布局。
这里要分享的图表版面设计其实就是指，在做了很多图的情况下，如何将诸多图表合理的布局在一张大的版面上，而不是一幅一幅的导出最后在其他软件中手动拼凑。
这个技能在制作多图仪表盘场景下，将会特别有用：
还需要强调下这里所指的一页多图与我们之前介绍过的分面可是大有不同，分面其实是一幅图表中，将分类变量所构成的分类图表分图呈现，但是本质上所有分面内的单个图表共享标题、图例、坐标轴刻度（虽然可以手动定义）。
也就是说分面的图表类型与诸多元素都是一样的，但是分面解决不了不同图表的排版布局问题：比如单独绘制而成的一幅散点图、柱形图和一幅饼图，分面将无能为力。
R语言中可以实现多图同页布局的函数有很多（我所知道的旧有大概四五种），但是有些参数略微复杂不便记忆，这里只跟大家介绍两种：
一种是grid.layout函数（就是我们昨天所讲到的图表嵌套所用到的是同一个包），另一个是rmisc包中的multiplot函数：
grid.layout函数：
require(ggplot2)
require(grid)
绘制备用图表（这里必须给图表命名，因为最后制作汇总图的时候需要引用图表名称）
chart1 <- ggplot(mtcars, aes(mpg, wt, colour = factor(cyl))) + geom_point()
chart2 <- ggplot(diamonds, aes(carat, depth, colour = color)) + geom_point()
chart3<- ggplot(diamonds, aes(carat, depth, colour = color)) + geom_point() + facet_grid(.~color)
以上三个函数定义了三个图表对象，如果想要查看图表则只需给出图表名称然后回车即可：
grid.newpage() ###新建图表版面
pushViewport(viewport(layout = grid.layout(2,2))) ####将版面分成2*2矩阵
vplayout <- function(x,y){viewport(layout.pos.row = x, layout.pos.col = y)}
###定义图表的布局规则，也就是指定画布的行显示图表的X轴，列显示图表的Y轴。
print(chart3, vp = vplayout(1,1:2)) ###将（1,1)和(1,2)的位置画图chart3
print(chart2, vp = vplayout(2,1)) ###将(2,1)的位置画图chart2
print(chart1 , vp = vplayout(2,2)) ###将（2,2)的位置画图chart1
以上函数将逐步按照之前的位置规则按照对应顺序绘制三幅图表，每打印一次你都可以看到画布上增加一个图表。
以上是该方法制作一页多图的全部过程，其实因为里面有自定义函数，看起来稍微有点儿麻烦，不过不影响理解。
multiplot函数：
library("Rmisc")
library("lattice")
library("plyr")
使用multiplot函数制作一页多图的语法非常简单，过程同样也是先制作出单个图表并命名，然后一句函数就搞定：
multiplot(chart1,chart2,chart3, cols=2)
虽然使用multiplot函数非常方便高效，但是默认情况下，它不会对单个的图表长宽比例做最优布局，我们的案例中，chart3是一个水平分面图，属于矮款型的，但是multiplot函数将它压缩成长宽近似的矩形，放在四象限的第二个位置。
整体看上去，第一种方法虽然过程复杂些，但是局部灵活些，可以调整单个图表所占的空间，第二种方式更加高效、快捷，但是布局上欠缺优化（也许是我还没有接触到内部的局部调整参数，有懂的小伙伴儿麻烦指导一下，不胜感激）！
对了，做完图之后记得使用
dev.off() #
函数关闭活动版面，否则会影响之后的其他不相关图表！
“R语言可视化图表排版中的页多图介绍”的内容就介绍到这里了，感谢大家的阅读。如果想了解更多行业相关的知识可以关注创新互联网站，小编将为大家输出更多高质量的实用文章！
