Заказ баров в ggplot

Я просмотрел ответы на этом форуме, но не могу найти ответа на эту конкретную проблему. У меня есть следующие данные и вы хотите создать гистограмму, где бары упорядочены от наибольшего к наименьшему с точки зрения "Значение", а не иметь их в алфавитном порядке:

breadth_data <- read.table(textConnection("Stakeholder  Value
'Grantseekers'  0.90
'Donors'    0.89
'Community' 0.55
'Hurricane Relief Fund' 0.24
'Media' 0.19
'Employment Seekers'    0.12
'Affiliates'    0.10
'Youth' 0.09
'Women' 0.02
'Former Board Members'  0.01"), header=TRUE)

Затем базовая диаграмма:

c <- ggplot(breadth_data, aes(x=Stakeholder, y=Value))
c + geom_bar(stat="identity") + coord_flip() + scale_y_continuous('') + scale_x_discrete('')

Я пробовал много разных переупорядочений и преобразований, которые я видел в StackOverflow, но я не могу найти тот, который работает. Я уверен, что это довольно просто, но я был бы признателен за любую помощь!

Спасибо,

Грег

Ответ 1

Вам нужна функция reorder():

breadth_data <- transform(breadth_data, 
                          Stakeholder = reorder(Stakeholder, Value))

Что дает:

reordered barplot

Если вы хотите, чтобы все было наоборот, простой способ - просто использовать order() на Value внутри вызова reorder():

breadth_data <- transform(breadth_data,
                          Stakeholder = reorder(Stakeholder, 
                                                order(Value, decreasing = TRUE)))