尝试使用 lubridate() 在 Base R 中以日期/时间格式添加更多轴标记

首先，格式化 date as.POSIXct，这对于调用哪个plot方法很重要，显然你已经这样做了。

dat <- transform(dat, date=as.POSIXct(date))

然后，substr在小时为例如的 ings上设置子集'00'。下一个没有 x 轴的绘图并使用 和 构建自定义axis轴mtext。

st <- substr(dat$date, 12, 13) == '00'

plot(dat, type='b', col='blue', xaxt='n')
axis(1, dat$date[st], labels=F)
mtext(strftime(dat$date[st], '%b %d'), 1, 1, at=dat$date[st])

数据：

set.seed(42)
dat <- data.frame(
  date=as.character(seq.POSIXt(as.POSIXct('2021-06-22'), as.POSIXct('2021-06-29'), 'hour')),
  v=runif(169)
)