r - R:在条形图上添加垂直线

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

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

最佳答案

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

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

关于r - R:在条形图上添加垂直线，我们在Stack Overflow上找到一个类似的问题：https://stackoverflow.com/questions/62053552/