ggplot facet_wrap不同主题

Question

我正在寻找一种方法，在同一行的%>%中使用facet_wrap不同的主题，以获得以下类似结果：

有没有一种类似的方法可以避免进行下面的操作？

fig1 = mtcars %>% filter(am == 1) %>%
  ggplot(aes(wt, mpg)) +
  geom_point() + 
  theme_bw(base_size = 15) + ggtitle('Theme A')

fig2 = mtcars %>% filter(am == 0) %>%
  ggplot(aes(wt, mpg)) +
  geom_point() + 
 theme_minimal(base_size = 15) + ggtitle('Theme B')

grid.arrange(fig1,fig2, ncol = 2)

有没有一种方法可以在同一行代码中为 facet 参数显示不同的主题？

如果没有，即使只为 facet 参数显示不同颜色的背景也会很有帮助。

- giac

---

这里有一个可能的解决方案：https://dev59.com/wmkw5IYBdhLWcg3wg6ug - sam81

Answer 1

我认为 facets 应该具有相同的主题（在 facets 之间唯一变化的应该只是决定哪些数据放在哪里的列和基于某些设置的轴），如 @sam81 所建议的，这个 答案 是一个基于 hadley 的 评论 的好的黑客解决方案。

- Arthur Yip