我正在尝试使用此R代码绘制带有ggplot2的分组条形图 #Cross graph满意度＆amp; Procéduredegestiondeséclamations 库（GGPLOT2） 库（秤） ＃Q13
as.data.frame(table(data$q13_a))
as.data.frame(table(data$q13_b))
as.data.frame(table(data$q13_6))
blank_theme =
theme( axis.ticks = element_blank(),
plot.title=element_text(size=14, face="bold.italic")
)
df1 = data.frame(Satisfaction=rep(c("Très insatisfait",
"Insatisfait","Moyennement satisfait","Satisfait","Très satisfait"),3),
Procédure=rep(c("La prise \n en charge du réclamant","Délai
du traitement \n de la réclamation","La qualité de la réponse \n
apportée à la réclamation"),each=5),
Count=c(8,7,17,21,3,14,7,16,15,4,14,8,13,18,3),
Pourcentage=round(c(8,7,17,21,3,14,7,16,15,4,14,8,13,18,3)
/sum(c(8,7,17,21,3,14,7,16,15,4,14,8,13,18,3)),4)*100)
df1$Procédure = as.factor(as.vector(df1$Procédure))
df1$Satisfaction=as.factor(df1$Satisfaction)
ggplot(data=df1, aes(Procédure,Pourcentage, fill=Satisfaction))+
geom_bar(stat="identity",position=position_dodge(0.8)
,width=0.8,color='black')+
geom_text(data=df1,aes(label=paste(round(df1$Pourcentage,1),"%\n")),
y=df1$Pourcentage+2, hjust=1.6,size=4)+
blank_theme+
ggtitle("Quelle est votre niveau de satisfaction sur
la procédure de gestion des réclamations \n ?")+theme_classic()+
scale_y_continuous(labels=percent,breaks=NULL)+
xlab("Procédure de gestion des réclamations")
问题是我只能在一个酒吧上获得堆叠的百分比。 this is the output
我怎样才能解决它的百分比？
