如何为R语言条形图的X轴添加月度间隔的日期标签？

基础barplot绘图方案 #

barplot函数默认不会自动处理日期轴的自定义标签，需要手动获取条形位置并添加标签：

1. 先执行barplot并保存返回的条形中点坐标，同时隐藏默认X轴：

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

# 保存条形的x轴位置，xaxt="n"隐藏默认X轴标签
bar_pos <- barplot(df$var, main="var: random variable",
                   col="darkorange", border=NA, las=1, xaxt="n")
box()

2. 筛选出每月1号的日期及其对应的索引，匹配到条形位置：

# 提取所有每月1号的日期
month_starts <- df$date[format(df$date, "%d") == "01"]
# 获取这些日期在数据框中的行索引
start_indices <- which(format(df$date, "%d") == "01")
# 对应到条形的x轴位置
start_positions <- bar_pos[start_indices]

3. 添加自定义X轴标签，可调整角度避免重叠：

# 在指定位置添加日期标签，las=2让标签垂直显示，cex.axis调整字号
axis(side=1, at=start_positions, labels=format(month_starts, "%Y-%m-%d"),
     las=2, cex.axis=0.8)

ggplot2方案（更简洁） #

用ggplot2处理日期轴更省心，直接通过scale_x_date设置间隔和标签：

library(ggplot2)

ggplot(df, aes(x=date, y=var)) +
  geom_bar(stat="identity", fill="darkorange", color=NA) +
  labs(title="var: random variable") +
  # 设置X轴断点为每月1号，自定义标签格式
  scale_x_date(breaks = seq(as.Date("2022-01-01"), as.Date("2022-12-31"), by="month"),
               date_labels = "%Y-%m-%d") +
  # 调整标签角度，避免重叠
  theme(axis.text.x = element_text(angle=45, hjust=1))

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