ggplot閃避不分組酒吧

Question

爲什麼不是閃避參數爲每個組創建多個酒吧？我正在尋找一個分組的酒吧情節，而不是我得到的那個。

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必須被一個具有指定寬度手動迴避。