r - ggplot2 - 关闭与另一个几何图形具有相同美感的几何图形的图例

Question

我正在用两个不同的几何图形绘制一个图，都使用填充。我希望一个 geom 有一个传奇，但另一个没有。但是添加 show.legend=F到所需的 geom 不会关闭该 geom 的图例。

示例:

library(tidyverse)
library(ggalluvial)

x = tibble(qms = c("grass", "cereal", "cereal"),
           move1 = "Birth",
           move2 = c("Direct", "Market", "Slaughter"),
           move3 = c("Slaughter", "Slaughter", NA),
           freq = c(10, 5, 7))

x %>% 
  mutate(id = qms) %>% 
  to_lodes_form(axis = 2:4, id = id) %>% 
  na.omit() %>% 
  ggplot(aes(x = x, stratum = stratum, alluvium = id,
             y = freq, label = stratum)) +
  scale_x_discrete(expand = c(.1, .1)) +
  geom_flow(aes(fill = qms)) +
  geom_stratum(aes(fill = stratum), show.legend=F) +
  geom_text(stat = "stratum", size = 3) +
  theme_void() +
  labs(fill="")

输出:



所需输出:



问题:

如何关闭一个几何图形的填充图例，而不是另一个几何图形？我可以(如果必须的话)在inkscape/gimp 中执行此操作，但更喜欢我可以进行版本控制的解决方案。

Answer 1

看看最后一行代码:

scale_fill_discrete(breaks = c("grass", "cereal")) 

这将填充的中断定义为仅包括 cereal和 grass ， 按要求。

library(tidyverse)
library(ggalluvial)

x = tibble(qms = c("grass", "cereal", "cereal"),
           move1 = "Birth",
           move2 = c("Direct", "Market", "Slaughter"),
           move3 = c("Slaughter", "Slaughter", NA),
           freq = c(10, 5, 7))

x %>% 
  mutate(id = qms) %>% 
  to_lodes_form(axis = 2:4, id = id) %>% 
  na.omit() %>% 
  ggplot(aes(x = x, stratum = stratum, alluvium = id,
             y = freq, label = stratum)) +
  scale_x_discrete(expand = c(.1, .1)) +
  geom_flow(aes(fill = qms)) +
  geom_stratum(aes(fill = stratum), show.legend=FALSE) +
  geom_text(stat = "stratum", size = 3) +
  theme_void() +
  labs(fill="") +
  scale_fill_discrete(breaks = c("grass", "cereal")) #<- This line!

创建于 2019-03-18 由 reprex package (v0.2.1)