当动态图或时间序列图上的x轴是日期（即时间序列数据）时使用abline（）

Question

我想在时间序列图中添加多条垂直线。 通常你会指定abline（v = x-intercept）但我的x轴的形式是01/08/2000 - 31/07/2001。我如何调整abline代码以添加垂直线，例如13/10/2000和30/05/2001？

首先，我尝试了以下动物园图，但x轴没有给我优选的日期格式;

dat<-read.table("Aug2000-July2001.txt", sep="\t", header=T)

z <- with(dat, zoo(cbind(NEE,SWC))) 

options("na.actions"=na.omit)

plot.zoo(z, ylab=c("NEE(umolm-2s-1)", "SWC(%)"), 
         col=c("black","blue"), xlab=c("Date"), lwd=2)

其次，我也试过了。

abline(v=as.Date("13/10/2000"))

但它不起作用。如何添加多条垂直线以及如何在动物园图上的x轴上添加日期格式？

我有一个包含一些列的表，如下所示：