ggplot2：顶部堆叠的栏和图例

Question

我正在尝试使用堆积条形图来绘制数据。出于美学原因，我想将图例放在情节的顶部。但是，当我这样做时，的顺序与堆叠的条形的顺序不匹配。我尝试以多种不同的方式进行更改，但我一直循环执行，以图例的顺序切换条形的顺序。这是一个类似于我的数据的示例：

ggplot(diamonds, aes(clarity, fill = cut)) + geom_bar() + coord_flip() +
  theme(legend.position = "top", panel.background = element_blank(), axis.line = element_line(colour = "black")) +
  scale_y_continuous(name="Count", labels = comma) +
  xlab("Clarity") + guides(fill=guide_legend(title="Diamonds Cuts: "))

我得到以下情节：

然后我可以订购酒吧：

levels(diamonds$cut)
[1] "Fair"      "Good"      "Very Good" "Premium"   "Ideal" 
diamonds$cut <- factor(diamonds$cut, levels = rev(levels(diamonds$cut)))
levels(diamonds$cut)
[1] "Ideal"     "Premium"   "Very Good" "Good"      "Fair" 

然后重新绘制：

我想匹配图例和堆叠条形上的颜色顺序。如您所见，两个图在条形图的左侧和图例的右侧均带有黄色。如何使它处于相同顺序？

谢谢！