R语言柱状图X轴设置：如何让X轴从30开始？

看起来你遇到的问题是因为barplot默认的x轴位置是基于柱子的索引（从1开始），而不是你的DAS数值，直接用seq(30,80,by=10)作为axis()的at参数，会把标签放到远大于柱子实际位置的坐标上，导致偏移。

这里有个精准的解决方案，利用barplot()返回的柱子中心坐标来对齐标签：

# 绘制柱状图，保存每个柱子的中心x坐标到bp
bp <- barplot(height=ESR18R$Rainfall, names.arg=ESR18R$DAS, las=1, xaxt="n", 
              ylim=c(0,80), col="grey", ylab="Daily rainfall (mm)")

# 定义你想要显示的X轴标签值
target_labels <- seq(30, 80, by=10)

# 找到这些标签对应的DAS数据的索引位置
label_positions <- match(target_labels, ESR18R$DAS)

# 用柱子的实际坐标来绘制X轴，确保标签和对应柱子对齐
axis(1, at = bp[label_positions], labels = target_labels)

# 可选：调整X轴范围，让第一个柱子靠左对齐，视觉上更贴合"从30开始"的需求
xlim(c(bp[1]-0.5, bp[length(bp)]+0.5))

为什么这样有效？ #

barplot()函数会返回一个向量，里面是每个柱子的中心x坐标（默认从左到右依次是1,2,3...）。我们通过match()找到目标标签（30,40...80）在你的DAS列中的位置，再用这个位置去取对应的柱子坐标，这样标签就会精准对应到每个目标天数的柱子下方。

如果你的DAS是连续的（30,31,32...80），也可以用更简化的方式直接计算索引：

# 因为30是第1个数据，40是第11个，以此类推
axis(1, at = bp[c(1,11,21,31,41,51)], labels = seq(30,80,by=10))

但第一种用match()的方法更通用，哪怕你的DAS有缺失值也能正常工作。

内容的提问来源于stack exchange，提问作者Ann