마지막 관찰이 r에서 xts에 대해 앞당겨졌습니다 (locf)? (na.approx와 같지 않습니다.)

Question

하나의 xts 시간 시리즈에서 내가 사용하고 싶은 타임 스탬프가 들어있는 다른 xts 시리즈에 "LOCF (Last Observation Carried Forward)"를 갖고 싶습니다. 나는 na.locf으로 시도했으나 na.approx에서 알 수 있듯이 xout이 작동하지 않는 것 같습니다.

의견을 보내 주시면 감사하겠습니다. I는 XTS 개의 시계열 데이터 세트를

: 여기

는 일례이다. 하나는 내 데이터가 있고 다른 하나는 타임 스탬프가 있습니다.

    [,1] 
2016-07-01 00:00:15 2 
2016-07-01 00:00:20 3 
2016-07-01 00:00:30 4 
2016-07-01 00:00:35 5 
2016-07-01 00:00:38 5 

(xts_with_timestamps에서 즉, 타임 스탬프와 대응 xts_with_data에서 LOCF) :

싶습니다 어떤

xts_with_data <- as.xts(read.zoo(text=' 
2016-07-01 00:00:10, 1.0 
2016-07-01 00:00:14, 2.0 
2016-07-01 00:00:20, 3.0 
2016-07-01 00:00:29, 4.0 
2016-07-01 00:00:34, 5.0 
2016-07-01 00:00:39, 6.0 
', sep=',', index=1, tz='', format="%Y-%m-%d %H:%M:%S")) 
names(xts_with_data) <- c('x') 

xts_with_timestamps <- as.xts(read.zoo(text=' 
2016-07-01 00:00:15, 0.0 
2016-07-01 00:00:20, 0.0 
2016-07-01 00:00:30, 0.0 
2016-07-01 00:00:35, 0.0 
2016-07-01 00:00:38, 0.0 
', sep=',', index=1, tz='', format="%Y-%m-%d %H:%M:%S")) 

이이다.

은 내가 (na.approx을 위해 잘 작동)이 같은 xout 함께 할 수 있다고 생각 :

na.locf(xts_with_data, xout = index(xts_with_timestamps)) 

을하지만 그건 그냥 내 원래 xts_with_data를 반환합니다.

제안 사항?

미리 감사드립니다.

Answer 1

merge()을 사용하여 두 계열을 결합한 후 na.locf()을 적용하는 것이 한 가지 방법 일 수 있습니다. na.approx()에 대한하지만 na.locf()에 대한 xout 작품이 제대로 추가 인수를 전달하는 보이지 않는 후자에 대한 xts 방법이 있다는 이유

xts_all <- merge(xts_with_data, xts_with_timestamps)[,-2] 
na.locf(xts_all)[index(xts_with_timestamps)] 

#      x 
# 2016-07-01 00:00:15 2 
# 2016-07-01 00:00:20 3 
# 2016-07-01 00:00:30 4 
# 2016-07-01 00:00:35 5 
# 2016-07-01 00:00:38 5 

그것은 이유처럼 보인다. 당신은 그러나 기본 방법의 사용을 강제하고, 따라서 xout

na.locf.default(xts_with_data, xout=index(xts_with_timestamps)) 
# or 
na.locf(zoo(xts_with_data), xout=index(xts_with_timestamps)) 

#      x 
# 2016-07-01 00:00:15 2 
# 2016-07-01 00:00:20 3 
# 2016-07-01 00:00:30 4 
# 2016-07-01 00:00:35 5 
# 2016-07-01 00:00:38 5