ggplot2 条形图上的标签被剪切

Question

我创建了一个 ggplot2 条形图，并在条形上方添加了一个带有条形 y 值的标签。

d <- data.frame(
       Ano=2000+5*0:10,
       Populacao =c(6.1,6.5,6.9,7.3,7.7,8.0,8.3,8.6,8.9,9.1,9.3)
     )
d %>% ggplot(aes(x=Ano, y=Populacao)) + geom_bar(stat="identity") +
  geom_text(aes(label=Populacao), vjust=-0.5) 

请注意最高列上的标签是如何被剪切的。

有没有办法让绘图自动调整以适应标签的存在？

编辑：我知道我可以手动调整scale_y_continuous(breaks=seq(0, 10, 1), limits=c(0,10))