在条形图中绘制线条

Question

我正在尝试在箱形图中绘制线条，如果我想更改线条的长度（相差超过1个），我会收到一个错误消息，这是为什么？ y位置将相同。我该如何解决？谢谢！

x <- barplot(c(1,2,3,5,6))
y <- 4.5
offset <- 0.1
lines(x[1:2],c(y,y))
lines(x[c(1,1)],c(y,y-offset))
lines(x[c(2,2)],c(y,y-offset))

x <- barplot(c(1,2,3,5,6))
y <- 4.5
offset <- 0.1
lines(x[1:3],c(y,y))

xy.coords（x，y）中的错误：'x'和'y'的长度不同

lines(x[c(1,1)],c(y,y-offset))
lines(x[c(3,3)],c(y,y-offset))