rggplot2stacked-chart
Ordering the bars in the ggplot stacked bar chart by value
I acknowledge that there are many similar questions and I checked them, but still cannot resolve my problem.
Trying to create a stacked barchart in ggplot, but cannot order bars properly.
My data looks like this
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))
My code looks like this
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"))
I usually use reorder function, but now this order is pretty strange. Any ideas how to fix this? I tried forcats, but it did not work too.
Solution
I think the reason you are not getting the order from reorder('Aimag/Capital', sumAmount) that you were expecting is because there is more than one value of sumAmount for each instance of 'Aimag/Capital' (one for Ground and the other for Surface). So I think the reorder function must be getting kind of lost. I imagine that you would like to order by the Total water usage (Ground + Surface). The way I did it was to compute the total water usage for each location and create an ordered factor according to this ranking. Then I can change the data format of column 'Aimag/Capital' to an ordered factor and feed it into 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"))
- How to add line breaks to plotly hover labels
- Test whether one factor is nested in another
- Import jmp file into r
- Subset scale_fill_gradient by factor OR add density gradient within count bars of histogram by factor
- How to manage an ordered factor with the functions lubridate () and month() to set time components because they can't read them in R
- Functional programming with dplyr: column_to_rownames() inside function
- How to find the statistical mode?
- tag many-to-many relationship when using left_join in dplyr
- easiest way to discretize continuous scales for ggplot2 color scales?
- extracting the required columns from a data.table with given conditions
- Generating input in the server side of Shiny
- Downloading Sentinel 2 with rsat package in R produces error "argument "espa_orders" is missing, with no default"
- cannot install R tseries, quadprog ,xts packages in Linux
- Print vector name with vector value iteratively in R
- Calculating NDVI in parallel using `lapp()` within `foreach()`
- Plot interaction effect in sem model with observed variables in R
- grepl in multiple columns in R
- Replace variables in a formula with their definitions
- How to count the frequency of values per month so they are in the right order (Jan to Dec) over multiple years
- Easy way to export multiple data.frame to multiple Excel worksheets
- How can I list files in a folder based on version number?
- Can I calculate the standard error of all columns with the "summarise_all" function in R dplyr
- Why aren't stratum sample sizes maintained using rsample bootstraps?
- Creating a Vertical Calendar
- No visible global function definition/no visible binding for global variable in a project?
- Is there a weighted.median() function?
- How many NAs do we have rowwise before the first numerical value in a dataframe?
- Justify multiline text in ggplot2 - title, subtitle, caption, geom_text() etc
- Horizontal scroll overflow works only when vertical scroll overflow is not active
- Create a variable that increases by one in every row but resets based on condition