我用cowplot制作了一个网格：
library(ggplot2)
library(cowplot)
ggg1 <- ggplot(mtcars, aes(mpg,vs)) + geom_point() +
theme(axis.title.x=element_blank(),
axis.title.y=element_blank())
ggg2 <- ggplot(mtcars, aes(mpg,vs)) + geom_point() +
theme(axis.title.x=element_blank(),
axis.title.y=element_blank())
ggg3 <- ggplot(mtcars, aes(mpg,vs)) + geom_point() +
theme(axis.title.x=element_blank(),
axis.title.y=element_blank())
plot_grid(plot_grid(ggg1, ggg2, labels=c("", ""), ncol = 1), ggg3, labels=c("", ""), ncol = 2)
产生图像
（当然这只是一个最小的工作示例）。
现在我想要一个标题为“mpg”的 x 轴和一个标题为“vs”的 y 轴 - 每个轴都像这样居中：
我怎样才能用 ggplot 来做到这一点？我没有尝试过任何东西add_sub or draw_label or 如何使用plot_grid自定义边距和标签设置？工作了。答案是ggplot：如何将常见的 x 和 y 标签添加到绘图网格中不使用牛图。我可以用cowplot来做这个吗？
重要的：我希望能够设置标签字体的大小。
这似乎有效...
plot_grid(plot_grid(ggg1, ggg2, labels=c("", ""), ncol = 1),
ggg3,
labels=c("", ""),
ncol =2,
scale=0.9) + #perhaps reduce this for a bit more space
draw_label("xlab", x=0.5, y= 0, vjust=-0.5, angle= 0) +
draw_label("ylab", x= 0, y=0.5, vjust= 1.5, angle=90)
