使用ggplot2对百分比重新排序

Question

我试图根据蓝色区域（图例中的1）的频率（y轴）按降序排列条形码。

这是一个虚拟数据和我的尝试。

谢谢你的帮助！

library(ggplot2)

Region <- c('A','B','C', 'D', 'E')
Factor <- c(1, 0)
Freq <- c(0.6, 0.2, 0.5, 0.3, 0.5, 0.4, 0.8, 0.5, 0.7, 0.5)
Value <- c(100, 250, 30, 300, 120, 50, 400, 90, 150, 320)

d <- data.frame(Region, Factor, Freq, Value)

d$Factor <- factor(d$Factor)

ggplot(d, aes(x= reorder(Region, -Freq), y= Freq, fill = Factor)) +
geom_bar(stat = "identity") +
scale_fill_manual(values=c("green", "blue"))+
scale_y_continuous(labels = scales::percent) +
ylab("%") +
xlab(" ") +
theme(legend.title=element_blank())+
geom_text(aes(label = Value), position = position_stack(vjust = 0.5), color 
= "white", check_overlap = T, size = 3) +
coord_flip() +
guides(fill=guide_legend(reverse=T))

更新： 答案显示在＆＃34;重复＆＃34;问题不起作用。 在这篇文章Order Bars in ggplot2 bar graph中显示的答案似乎不起作用。