R：調整條形圖上刻度之間的間距

Question

我需要重新創建一個使用 R 生成並隨后使用 Inkscape 編輯的圖表。 我想在 R 中做盡可能多的事情。 這是圖表：

稍后我將使用 Inkscape 添加圖表中的一些文本標簽。 我的問題在於蜱蟲。 我決定使用沒有軸的 barplot() 並將它們與 axis() 分開添加。 如您所見，條形之間有間距。 我只是不知道如何為 x 軸上的刻度設置間距，以便使用條形調整它們。 現在蜱蟲正在從中心脫落。 這是我的代碼：

mwe <- data.frame(month=c("Dec 2007", "Jan 2008", "Feb 2008", "Mar 2008","Apr 2008","May 2008","Jun 2008"),
                 job_difference_in_thousands=c(70, -10, -50, -33, -149, -231, -193),
                 color=c("darkred","darkred","darkred","darkred","darkred","darkred","darkred"))
                 
barplot(height=mwe$job_difference_in_thousands,
        axes=F,
        col=mwe$color,
        border = NA,
        space=0.1,
        main="Grafik X_1 NEW JOBS IN THE UNITED STATES",
        cex.main=0.75,
        ylim=c(-800,600),
)
axis(1,pos=0, lwd.tick=0, labels=F,line=1, outer=TRUE)
axis(1,at=0:6+0.5,labels=FALSE,lwd=0,lwd.tick=1)
axis(1, at=0:6+0.5,
     labels=mwe$month,
     cex.axis=0.65,
     lwd=0)
axis(2, at=seq(-800,600,by=200),las=2,cex.axis=0.65, lwd=0, lwd.tick=1)

^{由代表 package (v0.3.0) 於 2020 年 12 月 28 日創建}

Answer 1

當您調用 barplot 時，R 會返回條形中點的位置。 因此，只需存儲 barplot 的返回值並將其用作刻度位置的中心。

mwe <- data.frame(month=c("Dec 2007", "Jan 2008", "Feb 2008", "Mar 2008","Apr 2008","May 2008","Jun 2008"),
                 job_difference_in_thousands=c(70, -10, -50, -33, -149, -231, -193),
                 color=c("darkred","darkred","darkred","darkred","darkred","darkred","darkred"))
                 
bar_pos <- barplot(height=mwe$job_difference_in_thousands,
        axes=F,
        col=mwe$color,
        border = NA,
        space=0.1,
        main="Grafik X_1 NEW JOBS IN THE UNITED STATES",
        cex.main=0.75,
        ylim=c(-800,600),
)
axis(1,pos=0, lwd.tick=0, labels=F,line=1, outer=TRUE)
axis(1,at=bar_pos,labels=FALSE,lwd=0,lwd.tick=1)
axis(1, at=bar_pos,
     labels=mwe$month,
     cex.axis=0.65,
     lwd=0)
axis(2, at=seq(-800,600,by=200),las=2,cex.axis=0.65, lwd=0, lwd.tick=1)