Определение функции оси в R

Question

При рисовании оси для временных рядов мы обычно создаем метки и добавляем ось отдельно. Поскольку я должен построить много временных рядов, я попытался написать следующую функцию:

Простой сюжет команды

set.seed(1) 

x <- as.ts(rnorm(1:150)) 

plot <- plot(x, xaxt = "n", yaxt = "n") 

Преобразовать набор команд из этого answer в функцию

tt = seq(as.Date("1994-03-01"), by="months", length=150) 

tsAxis <- function (tt) { 

    ix <- seq_along(tt) # number of ticks 

    fmt <- "%b-%y" # format of time 

    labs <- format(tt, fmt) # names or labels of dates 

    axis(1, at = tt[ix], labels = labs[ix], 
     tcl = -0.7, cex.axis = 0.7, las = 2) 
} 

Тогда tsAxis (tt) должен нарисовать ось, но это не так, и нет ошибки. Даже написание команд отдельно не создает график.

Любые решения?

Answer 1

Кажется, что R представляет собой ось x с целыми числами в этом случае (т. Е. X = 1 является первым событием, x = 2 является вторым событием и т. Д.). Вы можете увидеть это, если вы запустите код:

set.seed(1) 
x <- as.ts(rnorm(1:150)) 
# Take a look at the x-axis 
plot <- plot(x) 

Мы можем изменить код, чтобы отразить это:

tt = seq(as.Date("1994-03-01"), by="months", length=150) 
tsAxis <- function (tt) { 
    ix <- seq_along(tt) # number of ticks 
    fmt <- "%b-%y" # format of time 
    labs <- format(tt, fmt) # names or labels of dates 
    # Change "at=tt[ix]" to "at=ix" here! 
    axis(1, at = ix, labels = labs[ix], 
     tcl = -0.7, cex.axis = 0.7, las = 2) 
} 

Или, если вы хотите построить каждый третий галочку, просто измените ix <- seq_along(tt) на ix <- seq(1, length(tt), 3) и он должен работать.