在条形图中摆脱内部条形线

我在R的ggplot2做一个基本的条形图

代码是:

  ggplot(shootings,aes(x=Year,y= Injured))+geom_bar(stat="identity",fill="#CC6666",colour="black")+ggtitle("Injured")

它呈现如下:

问题:

条形图由内部水平线分隔或重叠分隔？

假设它们堆叠在一起(例如,1984年的酒吧代表2起事故 - 一起总共19人受伤,一人总共受伤1人,总共20人),我怎么摆脱水平线值y = 19所以我可以显示一个值为20的单个栏？

先感谢您.

编辑:

@Didzis Elferts奇怪的是,当我运行你的代码时(除了删除传说)我得到了这个:

2个奇怪的东西:它有奇怪的美学(我想我当然可以修改)但总和似乎不起作用(1984现在只显示总共19 - 而不是20.我试图输入x,y值但它不起作用).他们需要被安置吗？谢谢.

编辑2:

@Didzis Elferts您的修改后的答案(带有stat_summary)和我的代码:

ggplot(shootings,aes(Year,Injured))+ stat_summary(fun.y=sum,geom="bar",colour="black",fill="#CC6666",show.legend = FALSE)+ ggtitle("Injured")

工作得很完美!

如果需要对Injured每年的值求和,可以使用stat_summary()with geom="bar"和setfun.y=sum

ggplot(shootings,aes(Year,Injured))+
  stat_summary(fun.y=sum,geom="bar",fill="#CC6666",colour="black")+
  ggtitle("Injured")