маленькая линия оси 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") 

график выглядит следующим образом:

Я хотел бы иметь отдельные линии на оси й на каждый год вместо черного большого бара.

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

Там могут быть и другие способы тоже ...