cowplot提供了plot_grid()函數(shù)用于組合圖形：

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

默認(rèn)情況下圖形只是簡單地拼起來，所以軸可能沒對齊。如果需要對齊軸，可以使用align選項：

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

plot_grid()會盡力為圖形設(shè)置一個合理地布局，然而，你也可以精確地指定布局畫多少行多少列。

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()函數(shù)與save_plot()函數(shù)組合使用效果是非常好的。比如你想要生成一個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()會確保整體的圖形標(biāo)度一致，以至于看起來它們是一個整體。 （只要它們有統(tǒng)一的base_aspect_ratio).

通用的圖形注釋

最后讓我們討論一下如何用cowplot創(chuàng)建更加不同尋常的圖形。例如，讓我們用前面繪制的mpg圖形，打上標(biāo)簽，并標(biāo)記為草稿。

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

函

作者：王詩翔
鏈接：https://www.jianshu.com/p/fea410378360
來源：簡書
著作權(quán)歸作者所有。非商業(yè)轉(zhuǎn)載請注明出處。