如何在条形图中绘制垂直线？

Question

我想在x轴的特定位置绘制一条垂直线，但是这些线的x位置不正确。我该如何解决？

x <- c(0,0,0,4,5,6)
barplot(x, names.arg=1:length(x))
abline(v=1:length(x), col="red")
abline(v=c(5.5), col="blue")