集团类别条形图

Question

我有以下数据集

Call.reason <- c("Binnen zichttermijn", "Buiten zichttermijn", "Reparatie", "dvd hoesjes", "Technische ondersteuning", "Retour koop ongedaan maken", "Digitaal", "Kobo") 
Count <- c(67452, 47279, 38530, 2554, 34044, 12190, 22102, 1234) 
Categorie <- c("Defect", "Defect", "Defect", "Defect", "Digitaal", "Digitaal", "Digitaal", "Digitaal") 
df <- data.frame(Call.reason, Count, Categorie) 

我现在创建这个数据做图：

p6 <- ggplot(df, aes(fill=Categorie, x=Call.reason, y=Count)) + geom_bar(stat="identity") 

这工作得很好。但是，当你绘制的类别混合。我想要有缺陷和数字。任何想法，我怎么能做到这一点？

Answer 1

你只需要订购因素Call.reason因为默认顺序是按字母顺序排列：

df$Call.reason <- factor(df$Call.reason, levels = df$Call.reason) 

ggplot(df, aes(fill = Categorie, x = Call.reason, y = Count)) 
+ geom_bar(stat="identity")