ggplot geom_bar显示错误的比例

Question

我被困住了。我正在尝试使用ggplot创建一个barplot：

ggplot(data_ocena, aes(x=grupa, y=ocena, fill=ocena)) + 
  geom_bar(stat="identity") + 
  xlab("częstość występowania poszczególnych ocen na kolokwium")

导致：

该如何处理？可变ocena是因素，group也是因素。