在时间序列的线图上添加垂线

Sun, 08 May 2011 00:00:00 +0000

library(xts)
v <- vector()
v[1] <- 10
for(i in 2:100){
 v[i] <- v[i-1]+rnorm(1, 0, 0.01)
}
X <- xts(v, seq(as.Date("2009-01-01"), by="day", length.out=100))
plot.xts(X)
# abline(v=X[50,]) #不行
# abline(v=50) #不行
# abline(v=index(X)[50]) #不行
abline(v =.index(X)[50],col="red") #不行
abline(v = (.index(X)[30]), col = "blue")

垂线 on 格物堂

在时间序列的线图上添加垂线