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

目录

R语言之可视化①误差棒

R语言之可视化②点图

R语言之可视化③点图续

R语言之可视化④点韦恩图upsetR

R语言之可视化⑤R图形系统

R语言之可视化⑥R图形系统续

R语言之可视化⑦easyGgplot2散点图

R语言之可视化⑧easyGgplot2散点图续

R语言之可视化⑨火山图

R语言之可视化⑩坐标系统

R语言之可视化①①热图绘制heatmap

R语言之可视化①②热图绘制2

R语言之可视化①③散点图+拟合曲线

R语言之可视化①④一页多图(1)

R语言之可视化①⑤ROC曲线

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

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

library(ggplot2)
require(cowplot)

plot.iris <- ggplot(iris, aes(Sepal.Length, Sepal.Width)) +
  geom_point() + facet_grid(. ~ Species) +
  stat_smooth(method = "lm") +
  background_grid(major = 'y', minor = "none") +
  panel_border() +
  labs(title = "dot-line plot")
plot.mpg <- ggplot(mpg, aes(x = cty, y = hwy, colour = factor(cyl))) +
  geom_point(size=2.5) +
  labs(title = "dot plot")
plot.diamonds <- ggplot(diamonds, aes(clarity, fill = cut)) +
  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 <- function(x,y){viewport(layout.pos.row = x, layout.pos.col = y)}
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

推荐阅读更多精彩内容