평균을 데이터 프레임에 적용

Question

전체 데이터 프레임에 61 개 이상의 실행중인 중앙값을 적용하고 싶습니다.

Error in if (a < b) { : missing value where TRUE/FALSE needed 
In addition: Warning message: 
In FUN(newX[, i], ...) : NAs introduced by coercion 

은 이미 첫 줄을 제외하려고했으나 같은 오류가 나타 : 나는 오류가

df_med<-apply(df, 2, runmed, k=61)

:

df= 13.03.2017 11:42 12:42:00 877401 922800 -5.045 147 14 NA 
    13.03.2017 11:42 12:42:01 877440 922839 -5.045 148 14 504 
    ... 
    13.03.2017 14:40 15:40:12 864742 868109 -0.389 149 25 515 

은이 코드를 사용했다.

Answer 1

이 데이터를 다 변수 시계열로 취급하는 것이 좋습니다. 도서관 zoo에 대한 선호도가 있지만 다른 대안이 있습니다.
좋은 예제 데이터가 분명히 나오지 않으면 나는 내 자신의 일부를 조롱했다. 적용 가능할 수도 있고 그렇지 않을 수도 있습니다. 이 rollapply 사용하고 오히려 na.omit 또는 유사한 방법을 처리하지 않고, median 함수 인수로 na.rm=TRUE 통과하기 쉽고 NA 값의 존재와

library(zoo) 

# Put together a data frame with a time vector in the first column  
df <- data.frame(x=as.POSIXct(1:10*60, origin="1970-01-01"), 
       a=c(NA, 1, 6, 4, 2, 9, 4, 3, 1, 2), 
       b=c(2, 4, 1, 5, 2, 8, 4, 6, 9, NA)) 

# Convert the data frame into a multivariate time series  
df.zoo <- read.zoo(df) 
summary(df.zoo) 

# Apply a rolling median on the time series  
rollapply(df.zoo, 3, median, na.rm=TRUE, fill=NA) 

. fill=NA은 시리즈의 길이가 이전과 동일 함을 보장합니다.