使用 cowplot 和 ggplot2 在某些行周围绘制边框

Question

我想以某种方式表明应该将多面板图中的某些行放在一起进行比较。例如，我想制作这个情节：

看起来像这个图（用 PowerPoint 制作的面板周围有框）：

这是我为使用第一个图而编写的代码。我使用了 ggplot 和 cowplot:

require(cowplot)
theme_set(theme_cowplot(font_size=12)) # reduce default font size
plot.mpg <- ggplot(mpg, aes(x = cty, y = hwy, colour = factor(cyl))) + 
  geom_point(size=2.5)
plot.diamonds <- ggplot(diamonds, aes(clarity, fill = cut)) + geom_bar() +
  theme(axis.text.x = element_text(angle=70, vjust=0.5))
plot.mpg2 <- ggplot(mpg, aes(x = cty, y = hwy, colour = factor(cyl))) + 
  geom_point(size=2.5)
plot.diamonds2 <- ggplot(diamonds, aes(clarity, fill = cut)) + geom_bar() +
  theme(axis.text.x = element_text(angle=70, vjust=0.5))
plot_grid(plot.mpg, plot.diamonds,plot.mpg2, plot.diamonds2, nrow=2,labels = c('A', 'B','C','D'))

我可以更改此代码以获得我想要的边框吗？或者我什至可以让面板 A 和 B 的颜色与面板 C 和 D 的背景颜色略有不同？那可能会更好。

Answer 1

由于 plot_grid() 的结果是一个 ggplot 对象，一种方法是使用嵌套绘图网格：每行一个 plot_grid()，并通过 [=13 添加适当的边框=].

plot_grid(
  # row 1
  plot_grid(plot.mpg, plot.diamonds, nrow = 1, labels = c('A', 'B')) +
    theme(plot.background = element_rect(color = "black")),

  # row 2
  plot_grid(plot.mpg2, plot.diamonds2, nrow = 1, labels = c('C', 'D')) +
    theme(plot.background = element_rect(color = "black")), 

  nrow = 2)

使用 cowplot 和 ggplot2 在某些行周围绘制边框

Draw border around certain rows using cowplot and ggplot2

r

ggplot2

cowplot