r - ggplot 躲避条形图

Question

我正在拼命寻找解决这个问题的方法:

我想从以下数据帧创建条形图:

means <- c(2.4,3,3,3.16,2.5,2.5,3,4.5)
sds <- c(1.0,1.2,1.0,1.1,2.1,0.7,2.8,0.7)
teams <- c(1,1,1,1,2,2,2,2)
scales <- c(1,2,3,4,1,2,3,4)

datas <- data.frame(teams, scales, means, sds)

之前，它运行良好，我得到了一张图片，其中蓝色和红色彼此相邻，具有标准偏差。

graph <- ggplot(data=datas,  aes(scales, y=means))
graph + 
  geom_bar(aes(fill=teams), stat="identity", position="dodge") + 
  no_margins + 
  geom_errorbar(aes(ymin= means - sds, ymax = means + sds, width=0.2), position=position_dodge(width=0.90)) + 
  coord_flip() 

安装最新版本的 R (2.15.1) 后，我得到的只是一个文件，其中 4 个条显示为蓝色且未躲避(彼此相邻)

有人知道变化(颜色、减淡)从何而来吗？

我花了几个小时才得到结果，非常感谢您的建议!

Answer 1

我不确定为什么它不能正常工作，但这里有一个可以正常工作的版本。

graph <- 
    ggplot(data=datas,  aes(scales, y=means, group=teams)) + 
    geom_bar(aes(fill=teams), stat="identity", 
             position="dodge") + 
    geom_errorbar(aes(ymin= means - sds, ymax = means + sds, width=0.2), 
                  position=position_dodge(width=0.90)) +
    coord_flip()

我把group=teams融入到了美学中；这不是必需的，因为您在 geom_bar 中有一个 fill=teams。