使用R ggplot时，错误栏超出绘图范围

Question

以下是我的问题示例：

library(ggplot2)

x = 1:10
y = rep(5,10)
y_err = rep(2,10)
limits <- aes(ymax = y+y_err, ymin=y-y_err)

data <- data.frame(
  x = x,
  y = y
)

ggplot(data, aes(x = x, y = y)) +
  geom_point()+
  geom_pointrange(limits) +
  ylim(0, 6)

我收到了以下警告信息

Warning message:
In loop_apply(n, do.ply) :
  Removed 10 rows containing missing values (geom_segment).

这是因为我的数据+误差= 5 + 2 = 7超出了绘图范围ylim（0,6）。

但是ggplot不会绘制截断的误差线，而是根本不绘制误差线。有没有办法仍然保持相同的ylim和绘制截断的误差条（在6）？

谢谢！