ggplot2：添加用于facet_grid的变量的名称

Question

require(ggplot2)
ggplot(mtcars, aes(mpg, wt)) + geom_point() + facet_grid(vs+gear ~ cyl+am) 

我想在此图上添加用于facet_grid的4个变量的名称。我想最好的方法是在角落添加变量名称，并用一个指向行或列的小箭头。我当时正在考虑使用annotation_custom并textGrob为此目的，但未能在图形上打印任何内容。

Answer 1

像这样吗

ggplot(mtcars, aes(mpg, wt)) + geom_point() + facet_grid(vs+gear ~ cyl+am,labeller = labeller(.rows = label_both, .cols = label_both))

您还可以使用如下语法：

labeller = label_bquote("Gear"==.(gear))