ggplot 中条形的排序

Question

我浏览了这个论坛的答案，但似乎找不到这个特定问题的答案。我有以下数据，想要创建一个条形图，其中条形按照“值”从最大到最小排序，而不是按字母顺序排列：

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 上看到过一些转换，但我似乎找不到一个有效的。我确信这相当简单，但我将不胜感激任何帮助！

谢谢，

格雷格

Answer 1

您想要函数 reorder():

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

给出：

如果您想要其他方式圆形，一种简单的方法是在 reorder() 调用中对 Value 使用 order() ：

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

Answer 2

另一种选择是使用 fct_reorder 函数href="https://forcats.tidyverse.org" rel="nofollow noreferrer">forcats 包。这是一个可重现的示例：

library(ggplot2)
library(forcats)
ggplot(breadth_data, aes(x=fct_reorder(Stakeholder, Value), y=Value)) +
  geom_bar(stat="identity") + 
  coord_flip() + 
  scale_y_continuous('') + 
  scale_x_discrete('')

使用 fct_rev 反转顺序：

# Reverse order
ggplot(breadth_data, aes(x=fct_rev(fct_reorder(Stakeholder, Value)), y=Value)) +
  geom_bar(stat="identity") + 
  coord_flip() + 
  scale_y_continuous('') + 
  scale_x_discrete('')

^{创建于 2022 年 10 月 28 日，使用 reprex v2.0.2}