R语言barplot日期X轴刻度左移问题的解决方法

问题出在你误解了barplot()的坐标轴逻辑：barplot()返回的是每个柱子的中心位置坐标，而非简单的行号索引。直接用日期对应的行号作为刻度位置，和实际柱子的位置不匹配，自然会出现偏移。

修正步骤 #

1. 保存barplot()的返回值，这个向量存储了所有柱子的中心x坐标；
2. 用该向量中对应日期行号的位置，作为axis()的at参数。

修正后的代码 #

# Example data
set.seed(1234)
df <- data.frame(
  var = runif(n=365, min=1, max=20),
  date = seq(from=as.Date('2021-01-01'), to=as.Date('2021-12-31'), by=1)
)

# Plot - 保存柱子的中心位置到bp变量
bp <- barplot(df$var, 
        col="darkorange", border=NA, las=1, xaxt='n',
        main="var: random variable")
# 获取每月1号对应的行号，简化原循环写法
dts <- seq(from=as.Date(df$date[1]), to=as.Date(df$date[nrow(df)]), by="months")
ind <- match(dts, df$date)
# 用bp[ind]定位刻度，同时格式化日期标签更清晰
axis(1, at=bp[ind], labels=format(df$date[ind], "%Y-%m"))
box()

补充说明 #

• bp是barplot()返回的核心变量，每个元素对应第i个柱子的中心x坐标，bp[ind]能精准对齐到目标日期的柱子位置；
• 用format()把日期标签改成%Y-%m（年-月）格式，避免全日期字符串导致的标签重叠问题。

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