r - 沿日期刻度线放置网格

Question

我有以下数据:

x=strptime(20010101:20010110)
y=1:10
z=data.frame(x,y)

所以我的数据是这样的:

            x  y
1  2001-01-01  1
2  2001-01-02  2
3  2001-01-03  3
4  2001-01-04  4
5  2001-01-05  5
6  2001-01-06  6
7  2001-01-07  7
8  2001-01-08  8
9  2001-01-09  9
10 2001-01-10 10

当我使用以下方法在基础中创建图时:

plot(x,y)
grid(NULL,NULL)

我的垂直网格与日期刻度线不对齐。我知道这似乎是一个非常简单的问题，但是我在任何地方都没有找到解决方案。有没有一种方法可以使用不需要我执行此操作的基准来使垂直网格与日期刻度线对齐:

abline(v=as.numeric(strptime(c(20010102,20010104,20010106,20010108,20010110),'%Y%m%d')))

我有很多不同日期的地块，我真的想尽可能地自动化，希望使用base。

Answer 1

abline可以从您的POSIXlt向量中提取日期滴答(通过strptime)。

x=strptime(20010101:20010110,format="%Y%m%d")
y=1:10

plot(x,y)
grid(nx=NA, ny=NULL)
abline(v=axis.POSIXct(1, x=pretty(x)),col = "lightgray", lty = "dotted", lwd = par("lwd"))

我建议创建自己的函数，该函数将同时添加水平和垂直网格。

my.grid <-function(){
grid(nx=NA, ny=NULL)
abline(v=axis.POSIXct(1, x=pretty(x)),col = "lightgray", lty = "dotted", lwd =
par("lwd"))
}

plot(x,y)
my.grid()