r - 如何根据管道中的汇总值对 geom_col 列进行排序

Question

我试图理解其他结果，但我做不到。 这是我的数据集:

 > HIST
# A tibble: 1,071 x 16
     Ano        Leilao Fonte    UF     Vend                         Projeto
   <dbl>         <chr> <chr> <chr>    <chr>                           <chr>
 1  2008 2008 Leilao 1   Bio    SP  Abengoa UTE São Luiz (Abengoa São Luiz)
 2  2013    2013 A-5 1   Bio    MS AMANDINA                        Amandina
 3  2017      2017 A-6   Bio    MG    BEVAP         BIOENERGETICA AROEIRA 2
 4  2015    2015 A-5 1   Bio    BA     Bolt                         BOLTBAH
 5  2013    2013 A-5 1   Bio    BA     Bolt                    CAMPO GRANDE
 6  2013    2013 A-5 1   Bio    PI     Bolt                 CANTO DO BURITI
 7  2010      2010 LER   Bio    TO    Bunge                    PEDRO AFONSO
 8  2015      2015 LFA   Bio    SP  Clealco                 CLEALCO QUEIROZ
 9  2015      2015 A-3   Bio    SP  Clealco                 CLEALCO QUEIROZ
10  2008 2008 Leilao 1   Bio    MG     CMAA              UTE Vale do Tijuco
# ... with 1,061 more rows, and 10 more variables: CODPPA <dttm>, CAPEX <dbl>,
#   MW <dbl>, GF <dbl>, FC <dbl>, PPA <dbl>, RMW <dbl>, WACC <dbl>, TIR <dbl>,
#   VPL <dbl>

`

我想制作一个按总和(MW)排序的图表，如下所示:

HIST %>%
  group_by(Fonte, UF)%>%
  summarise(SUMMW = sum(MW))%>%
  arrange(desc(SUMMW))%>%

  ggplot(aes(x = UF, y = SUMMW, fill = Fonte))+

  theme(axis.text.x = element_text(angle = 90, hjust = 1)) +
  geom_col()

但问题是我得到以下图表，不是按 MW 的总和排序的。我希望此图表的列按列的高度排序:

谢谢你，保罗

Answer 1

我认为最简单的方法是在美学函数 aes 中使用 reorder(UF, desc(SUMMW)) 重新排序变量 SUMMW :

HIST %>%
  group_by(Fonte, UF)%>%
  summarise(SUMMW = sum(MW))%>%
  arrange(desc(SUMMW))%>%

  ggplot(aes(x = reorder(UF, desc(SUMMW)), y = SUMMW, fill = Fonte))+

  theme(axis.text.x = element_text(angle = 90, hjust = 1)) +
  geom_col()