R ggplot2 geom_bar轴限制......仍有问题

Question

我正在跟进以前关于类似问题的帖子。我试图在简单的条形图上更改y轴限制，以前的帖子中建议的内容似乎不起作用。下面的第一个图显示了不同的条形图，但是第二个图形条形图显示了不同的条形图。知道为什么吗？感谢。

group1=rep(1:5,5)
df=cbind(cars,group1)
means<-aggregate(speed~group1,df, mean)
ggplot(data=means,aes(x=group1,y=speed))+geom_bar(stat="identity",position="dodge") 
ggplot(data=means,aes(x=group1,y=speed))+geom_bar(stat="identity",position="dodge")+  
  scale_y_continuous(limits=c(10,20))