如何正确指定列作为 geom_ribbon 中的填充颜色？

Question

我似乎无法为geom_ribbon()设置不同的填充颜色，使用其中一列作为输入来fill

library(ggplot2)
time <- as.factor(c('A','B','C','D'))
grouping <- as.factor(c('GROUP1','GROUP1','GROUP1','GROUP1',
                        'GROUP2','GROUP2','GROUP2','GROUP2'))
x <- c(1.00,1.03,1.03,1.06,0.5,0.43,0.2,0.1)
x.upper <- x+0.05
x.lower <- x-0.05

df <- data.frame(time, x, x.upper, x.lower,grouping)


ggplot(data = df,aes(as.numeric(time),x,group=grouping,color=grouping)) +
  geom_ribbon(data = df, aes(x=as.numeric(time), ymax=x.upper, ymin=x.lower),     
              fill=grouping, alpha=.5) +
  geom_point() + labs(title="My ribbon plot",x="Time",y="Value") +
  scale_x_continuous(breaks = 1:4, labels = levels(df$time))

我收到错误Error: Unknown colour name: grouping but fill=c("pink","blue")工作正常。 我不想手动指定颜色。

我能找到的所有其他示例只是在fill参数中列出列，所以我不确定我做错了什么。

Answer 1

在aes内移动fill = grouping ，以便将此列映射到 fill 变量。

ggplot(data = df, aes(as.numeric(time), x, color = grouping)) +
  geom_ribbon(data = df, aes(ymax = x.upper, ymin = x.lower,     
              fill = grouping), alpha = 0.5) +
  geom_point() + 
  labs(title = "My ribbon plot", x = "Time", y = "Value") +
  scale_x_continuous(breaks = 1:4, labels = levels(df$time))