带有小平​​面网格的 geom_bar 的均值函数

如何解决带有小平​​面网格的 geom_bar 的均值函数

我想使用 2 个分面网格和属于每个分面组的值的平均值来执行 geom_bar 可视化。条形很好，但我似乎无法让颜色和文字出来。我的代码如下（也尝试使用 stat_summary 和 geom_text）：

    index_chart <- index_retrenchment %>% 
  ggplot(aes(y = change,x = industry)) +  
  geom_bar(aes(fill = change),stat = "summary",fun = mean)+
  scale_fill_gradient(low = "red",high = "green")+
  #stat_summary(aes(label = change),fun = mean,geom = "text",size = 3)+
  #geom_text(label = index_retrenchment$change,size = 3)+
  labs(title = "Comparison of Retrenchment Rate during VarIoUs Global Events",subtitle = "Retrenchment Rate vs Average Retrenchment Rate (Year 1998 to 2020)",y = "Change in Retrenchment Rate (Percentage)",x = "Industry",caption = "Source: https://data.gov.sg/")+
  theme_economist_white()+
  theme(legend.title = element_blank())+
  theme(axis.text.x = element_text(angle = 90))+
    facet_grid(STI~NASDAQ) 

我的数据看起来像（对不起，长链）：

STI

数据

使用完整数据集时出现的情况如下：

从我的代码来看，颜色和比例似乎不适用于其他 3 个组。颜色出现的组只有一组变量，我相信这就是它起作用的原因。但我不知道如何从这里开始。

所以基本上我是在比较 4 个不同组的平均数据（即当 STI 低 & NASDAQ 低，STI 高 & NASDAQ 高等）

总而言之，我希望能够应用颜色并将平均值的文本添加到所有条形。如果解释不够清楚或测试数据不足，请提前道歉。