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

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) 

标签： rstudio

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