r - ggplot中的订单类别

Question

问题

我想知道如何使用fct_recode重新排序图中变量的位置geom_col。目的是根据澳大利亚的价值观从大到小，从下到上排序。

我的尝试

ggplot(data = df, aes(x = country, y = value, fill = fct_recode(chart_type, value)) + 
  geom_col()

数据

structure(list(country = c("Australia", "Australia", "Australia", 
"Australia", "Australia", "Australia", "Australia", "Australia", 
"Australia", "Australia", "Australia", "Australia", "Australia", 
"Australia", "Australia", "Australia", "Australia", "Australia", 
"Australia", "OECD - Average", "OECD - Average", "OECD - Average", 
"OECD - Average", "OECD - Average", "OECD - Average", "OECD - Average", 
"OECD - Average", "OECD - Average", "OECD - Average", "OECD - Average", 
"OECD - Average", "OECD - Average", "OECD - Average", "OECD - Average", 
"OECD - Average", "OECD - Average", "OECD - Average", "OECD - Average"
), value = c(11.314258, 4.572229, 0, 0, 1.356282, 1.665903, 0, 
0, 1.330865, 0, 0, 3.57475, 0.086851, 0, 2.786991, 0, 1.069969, 
0, 0, 8.239819, 2.865435, 0.241395, 9.160657, 0.400194, 1.102444, 
0.167023, 0.12324, 0.435496, 0.051199, 0.012553, 6.792114, 0.120639, 
0.073286, 3.288726, 0.002667, 0.6529, 0.043262, 0.157044), chart_type = c("Income tax", 
"Corporation tax", "Other taxes", "SSC's + payroll tax", "SSC's + payroll tax", 
"Recurrent building taxes", "Other taxes on property/capital", 
"Other taxes on property/capital", "Other taxes on property/capital", 
"Other taxes on property/capital", "Other taxes on property/capital", 
"VAT and GST", "VAT and GST", "Other indirect taxes", "Other indirect taxes", 
"Other indirect taxes", "Other indirect taxes", "Other indirect taxes", 
"Other taxes", "Income tax", "Corporation tax", "Other taxes", 
"SSC's + payroll tax", "SSC's + payroll tax", "Recurrent building taxes", 
"Other taxes on property/capital", "Other taxes on property/capital", 
"Other taxes on property/capital", "Other taxes on property/capital", 
"Other taxes on property/capital", "VAT and GST", "VAT and GST", 
"Other indirect taxes", "Other indirect taxes", "Other indirect taxes", 
"Other indirect taxes", "Other indirect taxes", "Other taxes"
)), class = c("spec_tbl_df", "tbl_df", "tbl", "data.frame"), row.names = c(NA, 
-38L))

Answer 1

你的意思是这样的吗？

library(dplyr)
library(ggplot2)

df %>%
  arrange(country, desc(value)) %>%
  mutate(chart_type = factor(chart_type, levels = rev(unique(chart_type)))) %>%
  ggplot() + aes(country, value, fill = chart_type) + geom_col()