R 包 xtsExtra 问题绘制多个 ts

Question

我的目标是获得 1 个情节，其中有多个时间序列和自动图例来标识序列。在我的 CSV 文件中，从 1996 年 1 月开始，我有 5 列(农业、食品、燃料、原料、矿石)。

library(xts)
library(xtsExtra)
RuChAgri <- read.csv("https://dl.dropbox.com/u/6421260/Forum/RuChAgri.csv", sep=";")
#transform csv data according to R ts 
RuChAgri <- ts(RuChAgri, start = c(1996, 1), frequency = 1)
#try to get 1 plot with multiple ts with an auto legend
plot.xts(RuChAgri, screens = factor(1, 1), auto.legend = TRUE)

当我运行最后一行时出现错误:

Error in try.xts(x) : 
  Error in xts(x.mat, order.by = order.by, frequency = frequency(x),
 .CLASS = "ts",  :   NROW(x) must match length(order.by)

有人知道我的代码有什么问题吗？

Answer 1

您的 ts 对象构造不当。该系列是每月一次，所以频率应该是 12，而不是 1。

RuChAgri <- ts(RuChAgri, start=c(1996, 1), frequency=12)

然后你应该把它转换成一个xts对象，然后通过调用plot来调用plot.xts。你真的不应该直接调用 plot.xts，即使它试图将你给它的对象转换为 xts 对象......

x <- as.xts(RuChAgri)
plot(x, screens=factor(1, 1), auto.legend=TRUE)