ggplot ausweichen nicht gruppieren bars

Question

Warum nicht der Ausweichen-Parameter mehrere Bars für jede Gruppe erstellen? Ich war auf der Suche nach einem gruppierten Bargrundstück, nicht nach dem gestapelten, das ich bekam.

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

Meine Ergebnisse:

Was ich will:

Answer 1

Ich denke, eine Spalte in Ihrer Datenrahmen müssen, die tatsächlich unterscheidet, was die verschiedenen Werte (Ich habe eine Vermutung gemacht). Dann Karte, die Spalte in der Füllung innerhalb einer ästhetischen aes() Forderung nach ggplot richtig den Werten auszuweichen:

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

Die dodger = position_dodge(width = 0.9) Leitung benötigt wird, da geom_text ausgewichen werden muss manuell mit einer festgelegten Breite.