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")