ggplot闪避不分组吧

Question

为什么dodge参数不为每个组创建多个条形图？我正在寻找一个分组的条形图,而不是我得到的堆积条形图.

df<-data.frame(c(40,23,18,41,15,14,38,21,1),c(rep("Do you agree with \nthe 'Hands Up' protestors ?",3),rep("Have the Police alienated themselves\n from the Public?",3),rep("Are the public ignoring the\n dangers Police face everyday?",3)),c("49%","28%","22%","59%","21%","20%","63%","35%","2%"),c(1,1,1,2,2,2,3,3,3))
colnames(df)<-c("values","names","percentages","group")



ggplot(df,aes(names,values,group=group))+
  geom_bar(stat = "identity",position = "dodge",fill=rep(c("green","red","orange"),3))+
  geom_text(aes(label=percentages))+
  ylab("number of votes")+
  xlab("")+
  ggtitle("Police Opinion polls")

我的结果:

我想要的是:

Answer 1

我认为你的数据框中需要一个列,它实际上区分了不同的值(我做了一个猜测).然后将该列映射到aes()调用中的填充美学,ggplot以便正确避开值:

df$response = rep(c("Yes", "No", "Unsure"), 3)

dodger = position_dodge(width = 0.9)
ggplot(df,aes(names,values, fill = response))+
    geom_bar(stat = "identity",position = dodger)+
    geom_text(aes(label=percentages), position = dodger)+
    ylab("number of votes")+
    xlab("")+
    ggtitle("Police Opinion polls")

该dodger = position_dodge(width = 0.9)行是必需的,因为geom_text必须以指定的宽度手动躲避.