I'd like to have ordered bars in dodge geom_bar. Do you know how to deal with it? My code:
ttt <- data.frame(typ=rep(c("main", "boks", "cuk"), 2), klaster=rep(c("1", "2"), 3), ile=c(5, 4, 6, 1, 8, 7)) ggplot()+ geom_bar(data=ttt, aes(x=klaster, y=ile, fill=typ), stat="identity", color="black", position="dodge")
And example plots to better understand the problem:
What I have
What I would like to have
One option would be to make a new variable to represent the order the bars should be within each group and and add this variable as the group
argument in your plot.
Lots of ways to that task of making the variable, here's a way using function from dplyr. The new variable is based on ranking ile
in descending order within each klaster
group. If you have ties in any group you'll want to figure out what you want to do in that case (what order should the bars be in given ties?). You may want to set the ties.method
argument in rank
away from the default, probably to "first"
or "random"
.
library(dplyr) ttt = ttt %>% group_by(klaster) %>% mutate(position = rank(-ile)) ttt Source: local data frame [6 x 5] Groups: klaster [2] typ klaster ile rank position (fctr) (fctr) (dbl) (dbl) (dbl) 1 main 1 5 3 3 2 boks 2 4 2 2 3 cuk 1 6 2 2 4 main 2 1 3 3 5 boks 1 8 1 1 6 cuk 2 7 1 1
Now just add group = position
into your plot code.
ggplot() + geom_bar(data=ttt, aes(x=klaster, y=ile, fill=typ, group = position), stat="identity", color="black", position="dodge")