matlab中一页多图,R语言之可视化①⑥一页多图（2）

目录

R语言之可视化①⑥一页多图(2)

======================================

cowplot包是ggplot2的简单附加组件。 它旨在为ggplot2提供一个出版物就绪的主题，这个主题需要最少量的轴标签尺寸，情节背景等。对'ggplot2'库的一些有用的扩展和修改。 特别是，这个软件包可以很容易地将多个'ggplot2'图组合成一个并用字母标记它们，例如 A，B，C等，这是科学出版物经常需要的。 该软件包还提供了一个流线型和干净的主题，用于Wilke实验室，因此包名称代表Claus O. Wilke的绘图库。

library(ggplot2)

require(cowplot)

plot.iris

geom_point() + facet_grid(. ~ Species) +

stat_smooth(method = "lm") +

background_grid(major = 'y', minor = "none") +

panel_border() +

labs(title = "dot-line plot")

plot.mpg

geom_point(size=2.5) +

labs(title = "dot plot")

plot.diamonds

geom_bar() +

theme(axis.text.x = element_text(angle=70, vjust=0.5)) +

labs(title = "bar plot")

ggdraw() +

draw_plot(plot.iris, 0, .5, 1, .5) +

draw_plot(plot.mpg, 0, 0, .5, .5) +

draw_plot(plot.diamonds, .5, 0, .5, .5) +

draw_plot_label(c("A", "B", "C"), c(0, 0, 0.5), c(1, 0.5, 0.5), size = 15)

其中 draw_plot(plot.iris, 0, .5, 1, .5)代表的是A图左下角在坐标轴的位置是(0，0.5)，然后图片占据X轴的1(100%)，占据Y轴的0.5(50%)。

image.png

同样可以使用grid和gridExtra包达到同样的结果

library(grid)

library(gridExtra)

grid.newpage() ###新建图表版面

grid.text("title of this panel", vp = viewport(layout.pos.row = 1, layout.pos.col = 1:2))

pushViewport(viewport(layout = grid.layout(2,2))) ####将版面分成2*2矩阵

vplayout

print(plot.iris, vp = vplayout(1,1:2)) ###将(1,1)和(1,2)的位置画图plot.iris

print(plot.mpg, vp = vplayout(2,1)) ###将(2,1)的位置画图plot.mpg

print(plot.diamonds , vp = vplayout(2,2)) ###将(2,2)的位置画图plot.diamonds

grid.arrange( arrangeGrob(plot.iris,left="A"),

arrangeGrob(plot.mpg, left="B"),

arrangeGrob(plot.diamonds, left="C"),

layout_matrix = matrix(c(1,1,2,3), ncol=2, byrow=TRUE),

top = "Title",left = "This is my global Y-axis title")

image.png