应用图例 label 在 ggplot 中填充和着色

Question

我正在为相同的数据系列制作许多图，例如，一条线 plot 和一条色带 plot。 然后我手动分配标签，使图例看起来不错。 有没有办法避免像下面那样多次输入标签，只需执行一次并将其应用于所有比例？

library(tidyverse)
starwars %>% 
  ggplot(aes(x=mass, y=height, color=gender, fill=gender)) +
  geom_line() +
  geom_point() +
  scale_color_brewer(labels=c("Female", "Male")) +
  scale_fill_brewer(labels=c("Female", "Male"))

提前致谢！

Answer 1

library(tidyverse)
starwars %>% filter(mass > 1000)
  mutate(gender = case_when(
    gender == "masculine" ~ "Male",
    gender == "feminine"  ~ "Female",
    TRUE ~ "Other")) %>%
  ggplot(aes(x=mass, y=height, color=gender, group = gender, fill=gender)) +
  geom_line() +
  geom_point() +
  scale_x_log10() # Because Jabba is an absolute unit

Answer 2

或者创建一个命名向量。 将“其他”保留为 NA 的缺点（尽管在这种情况下只有 NA）。

我还没有为 Jabba 升级。

library(tidyverse)

mylabels <- c(feminine = "Female", masculine = "Male")
starwars %>% 
  ggplot(aes(x=mass, y=height, color=gender, fill=gender)) +
  geom_line() +
  geom_point() +
  scale_color_brewer(labels=mylabels) +
  scale_fill_brewer(labels=mylabels)
#> Warning: Removed 29 row(s) containing missing values (geom_path).
#> Warning: Removed 29 rows containing missing values (geom_point).

^{由代表 package (v0.3.0) 于 2021 年 2 月 9 日创建}