目录
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