r - 使用 facet_wrap() 时无法控制 ggplot2 中的 legend.position

Question

在以下以mtcars 数据为例的代码和图表中，我尝试将图例放在底部。在第一张图中不使用 theme_bw() 也能正常工作。添加 theme_bw() 后，图例会向右移动。我做错了什么，如何解决这个问题？谢谢。

library(tidyverse)
mtcars %>%
  ggplot(aes(x = factor(cyl), y = mpg,
             color = factor(am)
             )
         ) + 
  geom_boxplot() + 
  facet_wrap(vars(vs)) +
  theme(legend.position = "bottom", 
        legend.title = element_blank()) 

mtcars %>%
  ggplot(aes(x = factor(cyl), y = mpg,
             color = factor(am))) + 
  geom_boxplot() + 
  facet_wrap(vars(vs)) +
  theme(legend.position = "bottom", 
        legend.title = element_blank()) +
  theme_bw()

^{由 reprex package 创建于 2020-02-20 (v0.3.0)}

Answer 1

您需要颠倒 theme 和 theme_bw 的顺序，因为 theme_bw 会覆盖 theme 中的设置，如果theme_bw在最后。

library(ggplot2)
library(magrittr)

mtcars %>%
  ggplot(aes(x = factor(cyl), y = mpg,
             color = factor(am))) + 
  geom_boxplot() + 
  facet_wrap(vars(mtcars$vs)) +
  theme_bw() +
  theme(legend.position = "bottom", 
        legend.title = element_blank())