我有两个不同时间长度的时间序列(ts 变量)。这是年度数据,它们存储为单独的 ts.objects。第一个系列开始于 1936 年,另一个系列开始于 1943 年,结束于 2012 年。问题:我找不到用于将这些系列绘制成一个包含所有观察结果的单一、漂亮的图形的 R 脚本(命令)。如果有人可以提供帮助,那就太好了。
问候
我有两个不同时间长度的时间序列(ts 变量)。这是年度数据,它们存储为单独的 ts.objects。第一个系列开始于 1936 年,另一个系列开始于 1943 年,结束于 2012 年。问题:我找不到用于将这些系列绘制成一个包含所有观察结果的单一、漂亮的图形的 R 脚本(命令)。如果有人可以提供帮助,那就太好了。
问候
如果数据具有可比性,那么您只需将 x 轴限制设置为整个数据的范围,例如
set.seed(2) ## reproducible
dat1 <- data.frame(Year = seq(1936, 2012, by = 1), Y = runif(77))
dat2 <- data.frame(Year = seq(1943, 2012, by = 1), Y = runif(70))
ylim <- range(dat1$Y, dat2$Y)
xlim <- range(dat1$Year, dat2$Year)
plot(Y ~ Year, data = dat1, type = "l", col = "red", xlim = xlim,
ylim = ylim)
lines(Y ~ Year, data = dat2, type = "l", col = "blue")
我会让你美化剧情。
刚刚注意到你说ts
的变量,所以下面也可以
ts1 <- ts(runif(77), start = 1936, freq = 1)
ts2 <- ts(runif(70), start = 1943, freq = 1)
xlim <- c(1936, 2012)
ylim <- range(ts1, ts2)
plot(ts1, ylim = ylim, xlim = xlim, col = "red")
lines(ts2, col = "blue")
使用您的数据,替换runif(n)
为两个时间序列的真实数据。