Я пытаюсь построить свои данные, используя гистограмму с накоплением.Я хочу поставить легенду на вершине сюжета по эстетическим соображениям.Однако, когда я делаю это, порядок не совпадает с порядком уложенных столбцов.Я пытался изменить его несколькими различными способами, но я продолжаю зацикливаться, меняя порядок баров на порядок легенды.Вот пример, похожий на мои данные:
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"
И снова составить сюжет:
Я бы хотел подобрать порядок цветов на легенде и на столбцах с накоплением.Как вы можете видеть, оба графика имеют желтый цвет слева от столбцов и справа от легенды.Как мне сделать так, чтобы он был в том же порядке?
Спасибо!