ggplot 2不显示正确的值

Question

我很难以正确的方式进行策划：

data.frame':181 obs. of  3 variables:
Profissão: Factor w/ 2 levels "Médico","Enfermeiro": 1 1 1 1 2 1 1 2 2 1 ... 
social: num  25 32 34 29 29 40 38 31 33 35 ...
Servico: Factor w/ 2 levels "HMPB","HMU": 2 2 2 2 2 2 2 2 2 2 ...



Profissão social Servico
1 Médico     25     HMU
2 Médico     32     HMU
3 Médico     34     HMU
4 Médico     29     HMU
5 Enfermeiro 29     HMU
6 Médico     40     HMU

 mean(df$social[df$Profissão=="Médico" & df$Servico=="HMPB"])
30.68421
 mean(df$social[df$Profissão=="Médico" & df$Servico=="HMU"])
28.83333

ggplot(df, aes(Profissão, social)) + 
geom_bar(aes(fill = factor(Servico)), stat="identity", position = "dodge")

但是ggplot导致了这个：

图片在这里：https://www.dropbox.com/s/f0t5q3ll9m2ez6x/ggplot2.PNG?dl=0

Answer 1

感谢您的帮助。如果有人想查看代码：

ggplot(df, aes(x = Profissão, y = social, fill = Servico)) + 
geom_bar(aes(Profissão, social, fill = as.factor(Servico)), 
         position = "dodge", stat = "summary", fun.y = "mean")