R 具有不同填充颜色的几何图形区域

我想画一个Gi的几何面积，datetime的函数。我希望每天geom_区域的填充量由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)

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

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

如果我理解正确的话，你要做的就是用不同的颜色给每年的系列上色，因为它们有不同的方法

在这种情况下，您需要以下类似的东西，在dplyr中，构建年度的意思：

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

如果我理解正确的话，你要做的就是用不同的颜色给每年的系列上色，因为它们有不同的方法

在这种情况下，您需要以下类似的东西，在dplyr中，构建年度的意思：

---

您应该提供一个示例输入数据，这样我们就可以看到发生了什么。您的数据集中是否有一个变量是每天GI的平均值？听起来这就是您要计算并映射到

fill

的变量。呵呵<代码>平均值（GI）返回单个数字。使用日平均值，而不是像现在这样使用总体平均值。您应该提供一个样本输入数据，以便我们可以看到发生了什么。您的数据集中是否有一个变量是每天GI的平均值？听起来这就是您要计算并映射到

fill

的变量。呵呵<代码>平均值（GI）返回单个数字。使用白天的平均值，而不是像现在这样使用总体平均值。

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