ggplot2, geom_bar, dodge, order of bars

匿名 (未验证) 提交于 2019-12-03 02:14:01

问题:

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

回答1:

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") 



标签
易学教程内所有资源均来自网络或用户发布的内容,如有违反法律规定的内容欢迎反馈
该文章没有解决你所遇到的问题?点击提问,说说你的问题,让更多的人一起探讨吧!