在条形图上添加刻度线和线条

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 函数以更改线条的宽度。

在条形图上添加刻度线和线条

Adding tick marks and line on barplot

rstudio