r - ggplot2、geom_bar、闪避、条形顺序

Question

我想在道奇订购酒吧 geom_bar .你知道如何处理吗？

我的代码:

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

和示例图以更好地理解问题:

我拥有的:



我想要什么:

Answer 1

一种选择是创建一个新变量来表示每组中柱线的顺序，并将此变量添加为 group你的情节中的论点。

制作变量的任务有很多方法，这里有一种使用 dplyr 函数的方法。新变量基于排名 ile在每个 klaster 中按降序排列团体。如果您在任何组中都有关系，您会想弄清楚在这种情况下您想做什么(条形在给定关系中的顺序应该是什么？)。您可能想要设置 ties.method参数在 rank远离默认值，可能是 "first"或 "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

现在只需添加 group = position进入你的情节代码。

ggplot() +
    geom_bar(data=ttt, aes(x=klaster, y=ile, fill=typ, group = position),
                     stat="identity", color="black", position="dodge")