如何通过迭代向ggplot添加多条垂直线？

Question

我正在尝试生成具有多条垂直线的图，但是由于某种原因，无论我如何处理，所有线都在同一x​​坐标上绘制。例如，

gg <- ggplot() + geom_point(aes(x = c(1, 2, 3, 4, 5), y = c(1, 4, 9, 16, 25))
for (i in 1:5) {
    gg <- gg + geom_line(aes(x = c(i, i), y = c(i*i - 2, i*i + 2)), color = 'red')
}

这仅在最后一点上给了我一行：

为什么它不覆盖每个i点？

注意：我不是要在每个点上做误差线。