如何在圖例中添加變量而不將其包含在圖表中？

Question

我想在不將其添加到圖中的情況下為圖例添加值。

library(tidyverse)

gear_color <- c('black', "blue", "orange")
names(gear_color) <- c('3', '4', '5')

mtcars %>% 
  mutate(gear = factor(gear),
         vs = factor(vs)) %>% 
  filter(gear != 4) %>% 
  ggplot(aes(vs, fill = gear)) +
  geom_bar() +
  facet_wrap(~gear) +
  scale_fill_manual(values = gear_color)

如何將Gear 4添加到圖例而不將其添加到圖中？

Answer 1

scale_fill_manual可以作為參數drop （ ?scale_fill_manual ）

... - 傳遞給discrete_scale的參數

drop - 量表中是否應省略未使用的因子水平？ 默認值TRUE使用數據中出現的級別; FALSE使用因子中的所有級別。

所以，我們可以在最后一行添加drop = FALSE

... +
    scale_fill_manual(values = gear_color, drop = FALSE)

正如評論中提到的@ eipi10，可以通過facet_wrap include drop = FALSE類似地添加gear = 4的空面

- 輸出