Добавление отметок и линии на барплот

Question

Мне нужна помощь в добавлении отметок на мой барплот. Я бы хотел ось X с отметками в интервалах 100. Я также хотел бы добавить вертикальную красную линию в X = 1350. Как я могу добавить это к следующему коду:

 H <- c(1350, 1436) # Create the data for the chart, cont3.#
  M <- c(
   "Target 
   Attendance",
   "Actual 
   Attendance"
   )
   c <-barplot(H, col =c("slategray3","dodgerblue4" ),
        names.arg = M, horiz = TRUE, 
        family="Arial", border = NA,  
        xlim = range(0,1600),
        axes = TRUE, las=1) 

Answer 1

Можно использовать функции axis() и abline() для изменения базовой графики:

barplot(H, col =c("slategray3","dodgerblue4" ),
                         names.arg = M, horiz = TRUE, 
                         family="Arial", border = NA,  
                         xlim = range(0,1600),
                         axes = FALSE, las=1) 
axis(1, at=seq(0, 1500, 100))
abline(v=1350, col="red")

Добавьте параметр "lwd =" в функцию abline, чтобы изменить ширину линии.