如何以堆叠的条形图按升/降序排列条形？

Question

我有一个堆积的巴特图，如下所示：

dem_plot

如您所见，各种堆栈的总和为100％。我想做的是按堆栈之一（black_pct）的大小的升序重新排列条形图（而不是堆栈）的排列顺序。我该如何实现？我尝试使用x = reorder（dem_pcts，black_pct），但是由于我“融化”了数据框以实现堆叠图，因此看来我无法再使用它。

我的绘图代码当前如下所示：

library(reshape2)
dem_pcts2 <- melt(dem_pcts, id.var ="community_area")

library(ggplot2) 
ggplot(dem_pcts2, aes(x = community_area, y = value, fill = variable)) +
              geom_bar(stat = "identity") +  xlab("Community Area") + ylab("%") + 
          theme(axis.text.x = element_blank(), axis.ticks = element_blank()) 

谢谢！