cowplot

cowplot提供了plot_grid()函数用于组合图形：

plot_grid(plot.mpg, plot.diamonds, labels = c("A", "B"))

默认情况下图形只是简单地拼起来，所以轴可能没对齐。如果需要对齐轴，可以使用align选项：

plot_grid(plot.mpg, plot.diamonds, labels = c("A", "B"), align = "h")

plot_grid()会尽力为图形设置一个合理地布局，然而，你也可以精确地指定布局画多少行多少列。

plot_grid(plot.mpg, NULL, NULL, plot.diamonds, labels = c("A", "B", "C", "D"), ncol = 2)

plot_grid(plot.mpg, plot.diamonds, labels = c("A", "B"), nrow = 2, align = "v")

plot_grid()函数与save_plot()函数组合使用效果是非常好的。比如你想要生成一个2x2的图形，我们可能想要使用下面的代码：

plot2by2 <- plot_grid(plot.mpg, NULL, NULL, plot.diamonds,
                      labels=c("A", "B", "C", "D"), ncol = 2)save_plot("plot2by2.png", plot2by2,
          ncol = 2, # we're saving a grid plot of 2 columns
          nrow = 2, # and 2 rows
          # each individual subplot should have an aspect ratio of 1.3
          base_aspect_ratio = 1.3
          )

生成的图形

使用这种方法保存图形的有点在于你首先可以为每个图形编写代码，然后组合成自己想要的样子。save_plot()会确保整体的图形标度一致，以至于看起来它们是一个整体。 （只要它们有统一的base_aspect_ratio).

通用的图形注释

最后让我们讨论一下如何用cowplot创建更加不同寻常的图形。例如，让我们用前面绘制的mpg图形，打上标签，并标记为草稿。

ggdraw(plot.mpg) +
  draw_plot_label("A", size = 14) +
  draw_label("DRAFT!", angle = 45, size = 80, alpha = .2)

函

作者：王诗翔
链接：https://www.jianshu.com/p/fea410378360
来源：简书
著作权归作者所有。非商业转载请注明出处。