如何在ggplot中使x轴限制之外的误差条绕回绘图的另一侧

library(ggplot2)

# 准备数据集
data <- data.frame(
  x = c(1, 2, 3, 4, 5),
  y = c(2, 4, 6, 8, 10),
  error = c(0.5, 0.8, 1.2, 0.7, 1.5)
)

# 创建基础图形对象
p <- ggplot(data, aes(x = x, y = y))

# 添加误差条
p <- p + geom_errorbar(aes(ymin = y - error, ymax = y + error), width = 0.2)

# 限制x轴的显示范围
p <- p + coord_cartesian(xlim = c(0, 6))

# 绘制图形
p