Построение графика с 3 кривыми данными временных рядов
У меня есть довольно простые вопросы, но я не смог найти ответ. Я хотел бы создать график с тремя кривыми (данные временных рядов) без использования ts.plot. Вот три набора данных:
a1 <- seq(as.Date("2001-01-01"),as.Date("2021-01-01"),"years")
a2 <- rnorm(21,10,1)
Dollar <- data.frame(a1,a2)
dates <- as.Date(Dollar[,1], "%d.%m.%Y",tz="GMT")
xtsplot1 <- as.xts(Dollar[,2], dates)
b1 <- seq(as.Date("2001-01-01"),as.Date("2021-01-01"),"years")
b2 <- rnorm(21,10,1)
EURO <- data.frame(b1,b2)
xtsplot2 <- as.xts(EURO[,2], dates)
c1 <- seq(as.Date("2001-01-01"),as.Date("2021-01-01"),"years")
c2 <- rnorm(21,10,1)
YEN <- data.frame(c1,c2)
xtsplot3 <- as.xts(Dollar[,2], dates)
Теперь я хочу построить три кривых. Я написал этот код:
plot(xtsplot1, xtsplot2, xtsplot3, xaxt = "n", xlab = "Time", ylab = "Value", col = 1:3, ann = FALSE)
Но это не работает.
какие-либо предложения?:)
1 ответ
Решение
Вы можете использовать matplot следующим образом:
matplot(cbind(xtsplot1, xtsplot2, xtsplot3), xaxt = "n", xlab = "Time", ylab = "Value", col = 1:3, ann = FALSE, type = 'l')