R:向条形图添加垂直线

Question

mydat <- c(rep(4:10, each = 3), rep(1:2, each = 2))
barplot(table(mydat))
abline(v = 3, col = "blue")

这给了我以下情节:我想要在 x=3 处有一条垂直线。然而，由于 x 轴的间隔方式，垂直线似乎不在正确的位置。我怎样才能解决这个问题？即我希望我的情节看起来像这样:

Answer 1

要在第二个和第三个柱之间绘制一条线，请分配 barplot 的返回值，然后绘制第二个和第三个值的 mean 值.

bp <- as.vector(barplot(table(mydat)))
abline(v = mean(bp[2:3]), col = "blue")