r - 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 の背景とは少し異なる色にすることもできますか? それはさらに良いかもしれません。