ggplot2中带分组变量的reorder（）图存在问题

我有一组数据，其中包含不同区域和不同程序的多个值，当我尝试将我的图形从较高的累积值排序到较低的累积值时，它可以完美地工作

datos = read.csv("https://raw.githubusercontent.com/jaimeyanez/varios/master/datos.csv")

datos %>% 
  group_by(Region) %>% 
  summarise(value= sum(Monto)) %>% 
  ggplot() +
  geom_col(aes(x=reorder(Region,-value), y=value), alpha=.9) +
  labs(title = "Value per group") 

但如果我尝试做同样的事情，并添加填充美学，它就会失败

datos %>% 
  group_by(Region, Programa) %>% 
  summarise(value= sum(Monto)) %>% 
  ggplot() +
  geom_col(aes(x=reorder(Region,-value), y=value, fill=Programa), alpha=.9) +
  labs(title = "Value per group") 

我可以手动更改顺序，但是这个数据就是一个例子，我必须使用不同的分组变量来进行更改，所以我需要以自动方式进行更改

谢谢，

默认情况下，重新排序使用平均值，但您的条形图显示总和。更改为x=reordregion，-value，FUN=sum