R：向条形图添加垂直线答案

【问题标题】：R: adding vertical line to barplotR：向条形图添加垂直线
【发布时间】：2020-05-28 06:01:41
【问题描述】：

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

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

【问题讨论】：

标签： r bar-chart

【解决方案1】：

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

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

【讨论】：