小行x軸多年

Question

我有超過25年的時間段的數據。數據集超過6300天。我想在x-axix上展示這些年。

dates <- as.Date(DOL[,1], "%d.%m.%Y") 
DOL <- as.xts(DOL[,2], dates) 

plot(DOL, xaxt = "n", main="SMA", ann = FALSE) 
axis(1, at=as.POSIXct(dates),labels=format(dates,"%Y"),tick=TRUE) 
title(ylab = "Value") 
title(xlab = "Time") 

圖如下所示：

我想有一個線在每年的而不是黑色的大酒吧爲x軸。

Answer 1

現在我明白你的意思了。

處理此問題的一種方法是創建兩個時間序列，並使用一個用於計算並繪製數據，另一個用於繪製標記。就像這樣：

library(xts) 
n <- 1000 
d1 <- seq(as.Date("2001-01-01"),as.Date("2021-01-01"),length.out=n) 
d1y <- seq(as.Date("2001-01-01"),as.Date("2021-01-01"),length.out=21) 
d2 <- rnorm(n,10,1) 
Dollar <- data.frame(d1,d2) 
dates <- as.Date(Dollar[,1], "%d.%m.%Y",tz="GMT") 
xtsplot <- as.xts(Dollar[,2], dates) 
plot(xtsplot, xaxt = "n", main="SMA", ann = FALSE) 
axis(1, at=as.POSIXct(d1y),labels=format(d1y,"%Y")) 
title(ylab = "Value") 
title(xlab = "Time") 

可能有其他的方法太...