R：绘制动物园中的一阶差分

发布于 2024-12-28 13:09:49 字数 907 浏览 2 评论 0原文

我试图在同一个图上绘制两个时间序列（动物园对象）的第一个差异，以进行比较。我使用：

plot(na.approx(cbind(diff(n),diff(d))),lty=c(1,2),screen=1)

其中n和d是两个系列。我收到以下错误消息：

Error in plot.zoo(na.approx(diff(merge(n, d))), lty = c(1, 2), screen=1,  : 
scatter plots only for univariate zoo series

如果我绘制 n 和 d 而不是它们的差异，则相同的命令可以正常工作。

如果我在这里遗漏了什么，请帮忙。

代码块：

library(zoo)
z <- read.zoo("C:\\Users\\lenovo\\Desktop\\qCombined\\pswiss.txt",header=TRUE,sep="", format="%m/ %d/ %Y" )  
colnames(z) <- tolower(colnames(z))  
ls <- log(z$inr.chf)  
lpstar <- log(z$cpiswiss)  
lp <- log(z$cpiind)  
n <- ls + lpstar  
d <- lp

z包含日期、瑞士CPI、印度CPI和汇率：

       cpiswiss    cpiind inr.chf  
2000-01-01 100.0000 100.00000 27.3661  
2000-02-01 100.4016  99.76798 26.6971  
2000-03-01 100.4016 100.69606 26.2205

原文

I am trying to plot the first differences of two time series (zoo objects) on the same plot for comparison purposes. I use:

plot(na.approx(cbind(diff(n),diff(d))),lty=c(1,2),screen=1)

where n and d are the two series. I get the following error message:

Error in plot.zoo(na.approx(diff(merge(n, d))), lty = c(1, 2), screen=1,  : 
scatter plots only for univariate zoo series

The same command works properly if i plot n and d instead of their differences.

Please help if i am missing something here.

Code chunk:

library(zoo)
z <- read.zoo("C:\\Users\\lenovo\\Desktop\\qCombined\\pswiss.txt",header=TRUE,sep="", format="%m/ %d/ %Y" )  
colnames(z) <- tolower(colnames(z))  
ls <- log(z$inr.chf)  
lpstar <- log(z$cpiswiss)  
lp <- log(z$cpiind)  
n <- ls + lpstar  
d <- lp

z contains Date,Swiss CPI,Indian CPI and the exchange rate:

       cpiswiss    cpiind inr.chf  
2000-01-01 100.0000 100.00000 27.3661  
2000-02-01 100.4016  99.76798 26.6971  
2000-03-01 100.4016 100.69606 26.2205

分享到QQ

分享到微博