r - 使用条件填充美学向 ggplot 添加额外的方面

Question

以下问题:Merge ggplot fill and size legend keys

我有这些数据，它产生以下图:

library(tidyverse)
dframe <- as.data.frame(Titanic)
dframe$First<-ifelse(dframe$Class=="1st",1,0)

dframe %>%
  ggplot(aes(Class, Sex))+
  geom_point(aes(size = Freq, fill = Freq), pch = 21)+
  guides(fill = guide_legend(reverse = TRUE, override.aes = list(alpha = 1)))+
  guides(size = guide_legend(reverse = TRUE))+
  facet_grid(Survived~Age)+
  theme_bw()+
  labs(x = "Survival Rate",
       y = "Gender")

现在，假设我想调整某些变量的填充 - 例如，所有第一个子项:

dframe$First<-ifelse(dframe$Class=="1st",1,0)

有什么想法吗？

Answer 1

您可以在顶部放置一组新的点。只需过滤您要添加的数据即可。

library(tidyverse)


dframe <- as.data.frame(Titanic)
dframe$First<-ifelse(dframe$Class=="1st",1,0)

dframe %>%
  ggplot(aes(Class, Sex))+
  geom_point(aes(size = Freq, fill = Freq), pch = 21)+
  geom_point(data = . %>% filter(Age == "Child" & Class == "1st"), 
             aes(color = "1st Class Children"), 
             pch = 22,
             size = 2,
             fill = "red")+
  guides(fill = guide_legend(reverse = TRUE, override.aes = list(alpha = 1)))+
  guides(size = guide_legend(reverse = TRUE))+
  facet_grid(Survived~Age)+
  theme_bw()+
  labs(x = "Survival Rate",
       y = "Gender",
       color = "")