R 在条形图中缩短x轴

我想缩短条形图中的x轴，这样它就不会超过我的数据。我该怎么做

我使用at=seq1，length.out=lengthuniqueavagon0$NugentScore，by=0.5将Colmun之间的间距拉近。 这是图表的图片：

非常感谢您的帮助

< P>如果需要一个更窄的绘图窗口，则需要使用PAR来设置外边距。

narrow.at <- seq(1,length.out=length(unique(OrchardSprays $treatment)), by=0.5)
par(oma=c(1,1,1,5))
stripchart(decrease ~ treatment,
     main = "stripchart(OrchardSprays)",
     vertical = TRUE, log = "y", at=narrow.at, data = OrchardSprays,
     xlim=c(0.5,max(narrow.at)+.5) )