按值排序ggplot堆积条形图中的条形

Question

我承认有许多类似的问题，我检查了它们，但仍然无法解决我的问题。

试图在ggplot中创建堆积条形图，但无法正确排序条形图。

我的数据看起来像这样

structure(list(`Aimag/Capital` = c("Arkhangai", "Arkhangai", 
"Bayan-Ulgii", "Bayankhongor", "Bayankhongor", "Bulgan", "Darkhan-Uul", 
"Darkhan-Uul", "Dornod", "Dornod", "Dornogobi", "Dornogobi", 
"Dundgobi", "Gobi-Altai", "Gobi-Altai", "Gobisumber", "Khentii", 
"Khentii", "Khovd", "Khovd", "Khuvsgul", "Orkhon", "Selenge", 
"Selenge", "Sukhbaatar", "Tuv", "Tuv", "Ulaanbaatar", "Ulaanbaatar", 
"Umnugobi", "Umnugobi", "Uvs", "Uvs", "Uvurkhangai", "Uvurkhangai", 
"Zavkhan"), Type = c("Actual usage of water m3 /Ground water/", 
"Actual usage of water m3 /Surface water/", "Actual usage of water m3 
/Ground water/", 
"Actual usage of water m3 /Ground water/", "Actual usage of water m3 
/Surface water/", 
"Actual usage of water m3 /Surface water/", "Actual usage of water m3 
/Ground water/", 
"Actual usage of water m3 /Surface water/", "Actual usage of water m3 
/Ground water/", 
"Actual usage of water m3 /Surface water/", "Actual usage of water m3 
/Ground water/", 
"Actual usage of water m3 /Surface water/", "Actual usage of water m3 
/Ground water/", 
"Actual usage of water m3 /Ground water/", "Actual usage of water m3 
/Surface water/", 
"Actual usage of water m3 /Ground water/", "Actual usage of water m3 /Ground 
water/", 
"Actual usage of water m3 /Surface water/", "Actual usage of water m3 
/Ground water/", 
"Actual usage of water m3 /Surface water/", "Actual usage of water m3 
/Surface water/", 
"Actual usage of water m3 /Ground water/", "Actual usage of water m3 /Ground 
water/", 
"Actual usage of water m3 /Surface water/", "Actual usage of water m3 
/Ground water/", 
"Actual usage of water m3 /Ground water/", "Actual usage of water m3 
/Surface water/", 
"Actual usage of water m3 /Ground water/", "Actual usage of water m3 
/Surface water/", 
"Actual usage of water m3 /Ground water/", "Actual usage of water m3 
/Surface water/", 
"Actual usage of water m3 /Ground water/", "Actual usage of water m3 
/Surface water/", 
"Actual usage of water m3 /Ground water/", "Actual usage of water m3 
/Surface water/", 
"Actual usage of water m3 /Ground water/"), sumAmount = c(101278.1, 
272246.7, 7528, 50421.54, 12550.4, 882605, 669312.5, 137418.5, 
3587701.32, 244252.09, 266421.5, 1856, 116723, 1453, 277, 3515190, 
744539.2, 9749.4, 59142, 9520, 1000, 21324857, 167905, 1077338.19, 
772753.76, 572085.5, 5035012.18, 5645963.45, 68067, 22230322, 
68351, 2564, 2238, 15950, 180928, 299912)), class = c("grouped_df", 
"tbl_df", "tbl", "data.frame"), row.names = c(NA, -36L), spec = 
structure(list(
cols = list(`Company's registration number` = structure(list(), class = 
c("collector_double", 
"collector")), `Company name` = structure(list(), class = 
c("collector_character", 
"collector")), `Aimag/Capital` = structure(list(), class = 
c("collector_character", 
"collector")), `Soum/ District` = structure(list(), class = 
c("collector_character", 
"collector")), Type = structure(list(), class = c("collector_character", 
"collector")), Amount = structure(list(), class = c("collector_double", 
"collector"))), default = structure(list(), class = c("collector_guess", 
"collector")), skip = 1), class = "col_spec"), groups = structure(list(
`Aimag/Capital` = c("Arkhangai", "Bayan-Ulgii", "Bayankhongor", 
"Bulgan", "Darkhan-Uul", "Dornod", "Dornogobi", "Dundgobi", 
"Gobi-Altai", "Gobisumber", "Khentii", "Khovd", "Khuvsgul", 
"Orkhon", "Selenge", "Sukhbaatar", "Tuv", "Ulaanbaatar", 
"Umnugobi", "Uvs", "Uvurkhangai", "Zavkhan"), .rows = list(
    1:2, 3L, 4:5, 6L, 7:8, 9:10, 11:12, 13L, 14:15, 16L, 
    17:18, 19:20, 21L, 22L, 23:24, 25L, 26:27, 28:29, 30:31, 
    32:33, 34:35, 36L)), row.names = c(NA, -22L), class = c("tbl_df", 
"tbl", "data.frame"), .drop = TRUE))

我的代码看起来像这样

ggplot(eiti_water_stacked_aimag, aes(reorder(`Aimag/Capital`, sumAmount), 
sumAmount, fill = Type)) +
geom_bar(stat = "identity") +
coord_flip() +
ylim(0, 30000000) +
theme_tufte() +
theme(axis.title.y = element_blank()) +
theme(axis.title.x = element_blank()) +
theme(legend.position = "bottom") +
theme(legend.title = element_blank()) +
scale_fill_manual(values = c("#A6CEE3","#1F78B4"),
                labels = c("Ground water          ",
                           "Surface water"))

我通常使用reorder函数，但现在这个顺序很奇怪。任何想法如何解决这一问题？我尝试过forcats，但它也没有用。

Answer 1

我认为你没有从reorder('Aimag/Capital', sumAmount)获得你期望的订单的原因是因为每个'Aimag / Capital'实例都有不止一个sumAmount值（一个用于Ground，另一个用于Surface）。所以我认为reorder函数必定会丢失。我想你想按总用水量（地面+表面）订购。我这样做的方法是计算每个地点的总用水量，并根据这个排名创建一个有序因子。然后我可以将'Aimag / Capital'列的数据格式更改为有序因子并将其输入ggplot。

library(ggplot2)
library(dplyr)

eiti_water_stacked_aimag <- structure(list(`Aimag/Capital` = c("Arkhangai", "Arkhangai", 
                                        "Bayan-Ulgii", "Bayankhongor", "Bayankhongor", "Bulgan", "Darkhan-Uul", 
                                        "Darkhan-Uul", "Dornod", "Dornod", "Dornogobi", "Dornogobi", 
                                        "Dundgobi", "Gobi-Altai", "Gobi-Altai", "Gobisumber", "Khentii", 
                                        "Khentii", "Khovd", "Khovd", "Khuvsgul", "Orkhon", "Selenge", 
                                        "Selenge", "Sukhbaatar", "Tuv", "Tuv", "Ulaanbaatar", "Ulaanbaatar", 
                                        "Umnugobi", "Umnugobi", "Uvs", "Uvs", "Uvurkhangai", "Uvurkhangai", 
                                        "Zavkhan"), 
                    Type = c("Actual usage of water m3 /Ground water/", 
                             "Actual usage of water m3 /Surface water/", 
                             "Actual usage of water m3 /Ground water/", 
                             "Actual usage of water m3 /Ground water/", 
                             "Actual usage of water m3 /Surface water/", 
                             "Actual usage of water m3 /Surface water/", 
                             "Actual usage of water m3 /Ground water/", 
                             "Actual usage of water m3 /Surface water/", 
                             "Actual usage of water m3 /Ground water/", 
                             "Actual usage of water m3 /Surface water/", 
                             "Actual usage of water m3 /Ground water/", 
                             "Actual usage of water m3 /Surface water/", 
                             "Actual usage of water m3 /Ground water/", 
                             "Actual usage of water m3 /Ground water/", 
                             "Actual usage of water m3 /Surface water/", 
                             "Actual usage of water m3 /Ground water/", 
                             "Actual usage of water m3 /Ground water/", 
                             "Actual usage of water m3 /Surface water/", 
                             "Actual usage of water m3 /Ground water/", 
                             "Actual usage of water m3 /Surface water/", 
                             "Actual usage of water m3 /Surface water/", 
                             "Actual usage of water m3 /Ground water/", 
                             "Actual usage of water m3 /Ground water/", 
                             "Actual usage of water m3 /Surface water/", "Actual usage of water m3 /Ground water/", 
                             "Actual usage of water m3 /Ground water/", "Actual usage of water m3 /Surface water/", 
                             "Actual usage of water m3 /Ground water/", "Actual usage of water m3 /Surface water/", 
                             "Actual usage of water m3 /Ground water/", "Actual usage of water m3 /Surface water/", 
                             "Actual usage of water m3 /Ground water/", "Actual usage of water m3 /Surface water/", 
                             "Actual usage of water m3 /Ground water/", "Actual usage of water m3 /Surface water/", 
                             "Actual usage of water m3 /Ground water/"), 
                    sumAmount = c(101278.1, 272246.7, 7528, 50421.54, 12550.4, 882605, 669312.5, 137418.5, 3587701.32, 
                                  244252.09, 266421.5, 1856, 116723, 1453, 277, 3515190, 744539.2, 9749.4, 59142, 9520, 
                                  1000, 21324857, 167905, 1077338.19, 772753.76, 572085.5, 5035012.18, 5645963.45, 68067, 
                                  22230322, 68351, 2564, 2238, 15950, 180928, 299912)), 
               class = c("grouped_df", "tbl_df", "tbl", "data.frame"), row.names = c(NA, -36L), 
               spec = structure(list(cols = list(`Company's registration number` = structure(list(), class = c("collector_double", "collector")), 
                                                 `Company name` = structure(list(), class = c("collector_character", "collector")), 
                                                 `Aimag/Capital` = structure(list(), class = c("collector_character", "collector")), 
                                                 `Soum/ District` = structure(list(), class = c("collector_character", "collector")), 
                                                 Type = structure(list(), class = c("collector_character", "collector")), 
                                                 Amount = structure(list(), class = c("collector_double", "collector"))), 
                                     default = structure(list(), class = c("collector_guess", "collector")), skip = 1), class = "col_spec"), 
               groups = structure(list(`Aimag/Capital` = c("Arkhangai", "Bayan-Ulgii", "Bayankhongor", "Bulgan", "Darkhan-Uul", "Dornod", "Dornogobi", "Dundgobi", 
                                                           "Gobi-Altai", "Gobisumber", "Khentii", "Khovd", "Khuvsgul", 
                                                           "Orkhon", "Selenge", "Sukhbaatar", "Tuv", "Ulaanbaatar", 
                                                           "Umnugobi", "Uvs", "Uvurkhangai", "Zavkhan"), 
                                       .rows = list(1:2, 3L, 4:5, 6L, 7:8, 9:10, 11:12, 13L, 14:15, 16L, 
                                                    17:18, 19:20, 21L, 22L, 23:24, 25L, 26:27, 28:29, 30:31, 
                                                    32:33, 34:35, 36L)), row.names = c(NA, -22L), 
                                  class = c("tbl_df", "tbl", "data.frame"), .drop = TRUE))

# get order of places according to total water usage (ground + surface)
order.places <- eiti_water_stacked_aimag %>% group_by(`Aimag/Capital`) %>% 
  mutate(Total=sum(sumAmount)) %>% select(`Aimag/Capital`, Total) %>%
  distinct() %>% arrange(Total) %>% select(`Aimag/Capital`) %>% unlist()

#change first column to ordered factors
x <- eiti_water_stacked_aimag %>% ungroup() %>% mutate(`Aimag/Capital`=factor(x=`Aimag/Capital`, levels = order.places))


#create plot
ggplot(x, aes(x=`Aimag/Capital`, y=sumAmount, fill = Type)) +
  geom_bar(stat = "identity") +
  coord_flip() +
  ylim(0, 30000000) +
  #theme_tufte() +
  theme(axis.title.y = element_blank()) +
  theme(axis.title.x = element_blank()) +
  theme(legend.position = "bottom") +
  theme(legend.title = element_blank()) +
  scale_fill_manual(values = c("#A6CEE3","#1F78B4"),
                    labels = c("Ground water          ",
                               "Surface water"))