带条形图的y轴限制

我可以显示一个条形图，但是y轴始终从零开始，对于此数据没有意义：

y <- data.frame(x=c("a","b","c","d","e","f"), y=c(500,501,502,503,504,505))
ggplot(y, aes(x=x, y=y)) +
  stat_summary(fun.y=mean, geom="bar")

理想情况下，R会像通常那样自动设置轴限制。如果我尝试手动设置，如下所示，则条形消失。知道为什么吗？

y <- data.frame(x=c("a","b","c","d","e","f"), y=c(500,501,502,503,504,505))
ggplot(y, aes(x=x, y=y)) +
  stat_summary(fun.y=mean, geom="bar") +
  scale_y_continuous(limits=c(490,510))