gep_area / geom_ribbon的ggplot2图例未显示

Question

下图的图例未显示。 我想要2个图例条目。 一个代表紫色，另一个代表绿色。

library(ggplot2)

index <- c(1,2,3,4,5)
size <- c(10,20,25,40,45)
df <- data.frame(index, size)

p <- ggplot(df, aes(x=index, y=size, fill=size)) 

p +
  geom_ribbon(aes(fill="dfg", ymin=size, ymax=df$size[nrow(df)]), fill="#BEAED4", alpha=0.2, color="#BEAED4") +
  geom_area(aes(fill="abc"), fill="#84CA72", alpha=0.2, colour="#84CA72") +
  scale_fill_manual(name="skdjf", breaks=c("abc", "dfg"), values=c("red", "blue"), labels = c("cat1", "cat2"))

PS：我尝试了很多东西，但似乎无法正常工作。

Answer 1

您正在分配美学内外的fill

尝试这个

library(tidyverse)

data.frame(index = c(1,2,3,4,5), size = c(10,20,25,40,45)) %>% 
ggplot(aes(index, size)) + 
  geom_ribbon(aes(ymin = min(size), ymax = max(size), fill = 'dfg', color = 'dfg'), alpha = 0.2) + 
  geom_area(aes(fill = 'abc', color = 'abc'), alpha = 0.2) +
  scale_fill_manual(name = 'a name', values = c("#BEAED4","#84CA72")) +
  scale_color_manual(name = 'a name', values = c("#BEAED4","#84CA72"))