沿着日期刻度线放置网格

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')))

我有很多具有不同日期的图，我真的很想尽可能地自动化此操作，希望使用基地。

Answer 1

函数axis绘制轴、刻度线和标签，并将刻度线位置作为向量返回。

由于您有 Date 数据，因此需要使用 axis.Date 来执行此操作，然后使用 abline 绘制网格：

z=data.frame(
  x=seq(as.Date("2001-01-01"), by="+1 month", length.out=10)
  y=1:10
)
plot(y~x, data=z)
abline(v=axis.Date(1, z$x), col="grey80")

Answer 2

正如 ?grid 帮助文件所述，“如果需要更多微调，[您可以]直接使用 abline(h = ., v = .)”。这需要更多的工作，但不多，如果您想经常使用它，很容易将其封装在一个函数中。

这是一种方法：

plot(x,y)
abline(v = pretty(extendrange(z$x)), 
       h = pretty(extendrange(z$y)),
       col = 'lightgrey', lty = "dotted")
points(x,y, pch=16)

Answer 3

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()

Answer 4

我不熟悉复杂的基本情节。但是，ggplot 有效地做到了这一点。

x <- strptime(20010101:20010110, format='%Y%m%d')
y <- 1:10
z <- data.frame(x, y)
qplot(x,y,data=z,'point')