geom_area具有不同的填充颜色

Question

我想绘制一个Gi的geom_area，即datetime的函数。我希望每天geom_area的填充量由Gi的平均值定义。

df %>% mutate(year = year(datetime)) %>% 
    filter(month(datetime) == 7) %>% 
    ggplot(aes(datetime, Gi, fill = mean(Gi), group = factor(year))) + 
    geom_area() + facet_wrap("year", scales = "free_x", ncol = 1)

不幸的是，这是结果，填充颜色不会因年而变化：

Answer 1

当您使用fill = mean（Gi）时，您将填充颜色映射到单个值，Gi的整体均值

如果我理解正确，你要做的是用不同的颜色为每个颜色系列着色，因为它们有不同的手段。

在这种情况下，您希望在dplyr中使用以下内容构建 年度 ，意味着：

df %>% 
  group_by(YEAR)
  summarise(YearMean = mean(Gi))