Warning: file_get_contents(/data/phpspider/zhask/data//catemap/4/r/83.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181

Warning: file_get_contents(/data/phpspider/zhask/data//catemap/2/spring/11.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
R 合并两个动物园时间序列_R_Merge_Time Series - Fatal编程技术网

R 合并两个动物园时间序列

R 合并两个动物园时间序列,r,merge,time-series,R,Merge,Time Series,我有两个成功的动物园时间序列(一个开始的日期在另一个结束之后),它们有以下形式(但更长,不仅仅是NA值): a: b: 我所要做的就是把它们作为一个动物园的对象在一次意甲联赛中结合起来,这似乎是一项基本任务,但我做错了什么。我使用函数“merge”: 这不是一个时间序列,长度不合适: > length(a) [1] 10957 > length(b) [1] 2557 > length(combined) [1] 27028 我如何才能将它们以原始序列的形式合并成一个时间序列

我有两个成功的动物园时间序列(一个开始的日期在另一个结束之后),它们有以下形式(但更长,不仅仅是NA值):

a:

b:

我所要做的就是把它们作为一个动物园的对象在一次意甲联赛中结合起来,这似乎是一项基本任务,但我做错了什么。我使用函数“merge”:

这不是一个时间序列,长度不合适:

> length(a)
[1] 10957
> length(b)
[1] 2557
> length(combined)
[1] 27028

我如何才能将它们以原始序列的形式合并成一个时间序列?

假设最后注释中重复显示的序列,合并两个序列的结果有20次和2列(每个序列一列)。单个系列具有长度9和11个元素,合并系列是一个zoo对象,具有9+11=20行(因为没有相交时间)和2列(每个输入一列)以及长度40(=20*2)。请注意,多变量序列的长度是其中元素的数量,而不是时间点的数量

length(z1)
## [1] 9
length(z2)
## [1] 11

m <- merge(z1, z2)

class(m)
## [1] "zoo"

dim(m)
## [1] 20  2

nrow(m)
## [1] 20

length(index(m))
## [1] 20

length(m)
## [1] 40
上述内容与
merge
c
length
在基本R中的工作方式一致

注意:

library(zoo)

z1 <- zoo(rep(NA, 9), as.Date(c("1979-01-01", "1979-01-02", "1979-01-03", 
"1979-01-04", "1979-01-05", "1979-01-06", "1979-01-07", "1979-01-08", 
 "1979-01-09")))

z2 <- zoo(rep(NA, 11), as.Date(c("1988-08-15", "1988-08-16", "1988-08-17",
"1988-08-18", "1988-08-19", "1988-08-20", "1988-08-21", "1988-08-22", 
"1988-08-23", "1988-08-24", "1988-08-25")))
图书馆(动物园)
z1
             a   b
1980-03-10  NA   NA
1980-03-11  NA   NA
1980-03-12  NA   NA
1980-03-13  NA   NA
1980-03-14  NA   NA
1980-03-15  NA   NA
1980-03-16  NA   NA
.
.
> length(a)
[1] 10957
> length(b)
[1] 2557
> length(combined)
[1] 27028
length(z1)
## [1] 9
length(z2)
## [1] 11

m <- merge(z1, z2)

class(m)
## [1] "zoo"

dim(m)
## [1] 20  2

nrow(m)
## [1] 20

length(index(m))
## [1] 20

length(m)
## [1] 40
length(c(z1, z2))
## [1] 20
library(zoo)

z1 <- zoo(rep(NA, 9), as.Date(c("1979-01-01", "1979-01-02", "1979-01-03", 
"1979-01-04", "1979-01-05", "1979-01-06", "1979-01-07", "1979-01-08", 
 "1979-01-09")))

z2 <- zoo(rep(NA, 11), as.Date(c("1988-08-15", "1988-08-16", "1988-08-17",
"1988-08-18", "1988-08-19", "1988-08-20", "1988-08-21", "1988-08-22", 
"1988-08-23", "1988-08-24", "1988-08-25")))