关联单独的时间序列数据集

Question

我想关联两个单独的时间序列数据集的y变量。例如：

d1 = data.frame(x = seq(as.Date('2014-01-01'), as.Date('2016-01-01'), length.out = 100), y = sort(rnorm(100, mean=50, sd=10)))
d2 = data.frame(x = seq(as.Date('2014-02-01'), as.Date('2015-12-01'), length.out = 200), y = sort(rnorm(200, mean=48, sd=12)))
plot(d1, type='l')
lines(d2, col='red')

感谢关于优雅解决方案的任何指示。

Answer 1

我认为这就足够了

d1b = akima::aspline(d1, xout = d2$x)
summary(lm(d1b$y ~ d2$y))$r.squared
#> [1] 0.9873564
plot(d1b$y, d2$y, pch=16)