R ggplot2如何将分面标签置于Y轴标题左侧

需求背景 #

使用R语言ggplot2绘制分面箱线图时，需要将左侧切换显示的分面标签放在最左侧，Y轴标题置于分面标签的右侧，保证和其余两张图拼接时布局统一。当前已可以设置合适的间距，但无法调换二者的排列顺序。

原有实现代码 #

library(ggplot2)
library(tibble)
tg <- ToothGrowth %>%
  as_tibble()

tg %>%
  ggplot(aes(supp, len)) +
  geom_boxplot(aes(fill = supp)) +
  theme(strip.placement = "outside",
        strip.switch.pad.grid = unit(1, "cm")) +
  facet_grid(dose ~ ., switch = "y")

初始效果 #

最优实现方案 #

通过调整Y轴标题的vjust参数即可实现布局调整，代码如下：

tg %>%
  ggplot(aes(supp, len)) +
  geom_boxplot(aes(fill = supp)) +
  facet_grid(dose ~ ., switch = "y") +
  theme(strip.placement = "outside",
        strip.switch.pad.grid = unit(1, "cm"),
        axis.title.y = element_text(vjust = -15))

最终效果 #

其他可选方案说明 #

• 使用grid包的方案可以达到预期效果，但后续操作较为复杂
• 使用假轴的方案会改变X轴刻度标签的间距，且label =参数不接受表达式

内容的提问来源于stack exchange，提问作者maRvin