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

要在第 2 条和第 3 条柱之间绘制一条线，请指定 的返回值，barplot然后在这些mean值中的第 2 条和第3 条的值中绘制。

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