尝试使用lubridate（）中的日期/时间格式添加基本r的更多轴标记

Question

如果这是一个混乱的问题，我深表歉意，但我不知道任何更好的格式化方法。我正在尝试在图形的X轴上获取它，显示了我数据集中所有的日期。目前，其中大约是其中的一半 - 我将附加图形的图片。我也希望每个日期之间都有更多的刻度标记。我使用lubridate（）函数将我的日期/时间列组合在一起，因此这不是问题。我想知道，即使这些不是典型的数值值，即使这些轴刻度标记是否有办法。我将在下面附加代码。

PS4T1$newdate <- with(PS4T1, as.POSIXct(paste(date, time), format="%m-%d-%Y %H:%M"))
plot(average ~ newdate, data=PS4T1, type="b", col="blue")

Answer 1

首先，格式日期as.posixct，这很重要。

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

然后，在subtr上的子集，其中小时为eg '00'。不带X轴的下一个图，并使用轴和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)
)