position_dodge（）不闪避

Question

我想避开我的酒吧的位置，但它根本不这样做，我实在不知道为什么。

这是我的代码：

 y = c(10.3,12.3,2.3,4.5,6,7.8)
 df <- data.frame(
   video = factor(c(1, 2, 3, 4, 5, 6)),
   ERDERS = y,
   group = factor(c(1, 1, 2, 2, 3, 3)))

     p1 <- ggplot(df, aes(fill=factor(group), y= ERDERS, x= video))
   p1 <- p1 + geom_bar(color = "gray60", stat="identity", position = position_dodge()) +               
   scale_y_continuous(limits=c(-3, 21), name = "Activity[%]")+                                  # Y-Axis scaling + title
   scale_x_discrete(name = "VIDEO", labels=c("1", "2", "3", "4", "5", "6"))+
   theme_bw()

谢谢！！

Answer 1

我仍然有些困惑，但是也许您在寻找这个？

p1 <- ggplot(df, aes(y = ERDERS, x = group, fill = video))
p1 <- p1 + geom_bar(color = "gray60", stat = "identity", position = 'dodge') +
  scale_y_continuous(limits=c(-3, 21), name = "Activity[%]") +
  scale_x_discrete(name = "GROUP", labels=c("1", "2", "3", "4", "5", "6")) +
  theme_bw()

这是您的示例代码产生的结果：

这是我的建议所产生的。 现在将视频分组。

您还可以使用构面：

p3 <- ggplot(df, aes(y = ERDERS, x = video)) + 
  facet_wrap(~ group, scales = 'free_x')
p3 <- p3 + geom_bar(color = "gray60", stat = "identity", position = 'dodge') +
  scale_y_continuous(limits=c(-3, 21), name = "Activity[%]") + theme_bw() + 
  ggtitle('Groups')