使用lubridate（）固定tick标签/网格线，并在基本r中使用日期/时间图

Question

我深表歉意，这不是问题 - 我不知道如何将其纳入一个很好的可复制例子。

我有一个基本r图，我正在尝试做两件事：在tick痕迹上获得 Clean 轴标签，并添加与这些tick标记匹配的网格线，到目前为止，我还没有成功。我正在寻找带有正确标签（即所有日期）的网格线，或者在彼此顶部看起来不像同一标签中的两个标签。我附上了我在下面以及代码下方的图表。我使用lubritation（）将我的CSV文件中的日期/时间列转换为一个名为newdate的列。我将不胜感激的任何帮助 - 我一直在尝试这样做一段时间，没有成功，我快到了。谢谢你！

PS4T1$newdate <- with(PS4T1, as.POSIXct(paste(date, time), format="%m-%d-%Y %H:%M"))
st <- substr(PS4T1$date, 12, 13) == '00'

plot(average ~ newdate, data=PS4T1, type='b', col='blue', xaxt='n')
axis(1, PS4T1$newdate[st], labels=F)
mtext(strftime(PS4T1$newdate[st], '%b %d'), 1, at=PS4T1$newdate[st])
grid(nx=NA, ny=NULL)
abline(v=axis.POSIXct(1, pretty(PS4T1$newdate[st])),col = "lightgray", lty = "dotted", lwd = par("lwd"))

Answer 1

您可以只使用abline（v = dat $ date [st]，...）将垂直网格线与子集日期对齐。

（这样做的更深的原因是“ posixt”格式是1970-01-01-01以来的秒数 - 所谓的Unix Epoch-在整数中，标记为日期（类似于因素）;

在mtext line =参数默认为零（重复1，1，1在我的以前的答案不是错字，出于懒惰，我忽略了论点）。您可以使用line = .75使标签更近一点。

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'), side=1, line=.75, at=dat$date[st])
grid(nx=NA, ny=NULL)
abline(v=dat$date[st], col="lightgray", lty="dotted", lwd=par("lwd"))

数据：

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