2013-05-31 1 views
-4

xts 객체 또는 데이터 프레임 또는 CSV 형식의 데이터가 있다고 가정하고 비유 행 일 또는 관측치가 미만인 요일을 제거하여 데이터를 필터링하려고한다고 가정합니다. 고정 크기 (일일 5k 관찰 미만)? 진드기 데이터로 진드기를 조작하고 있습니다.비 휘발성 일을 필터링하는 방법

커뮤니티의 요청에 따라 데이터 게시. 나는 미만 3 명 관찰이 있기 때문에 4월 5일를 필터링하려는 :

"DateTime","spy.prices.Open","spy.prices.High","spy.prices.Low","spy.prices.Close" 
2007-04-02 09:34:59,142.16,142.34,142.13,142.2 
2007-04-02 09:39:59,142.19,142.32,142.14,142.16 
2007-04-02 09:44:58,142.16,142.27,142.03,142.25 
2007-04-02 09:49:59,142.26,142.28,142.16,142.18 
2007-04-02 09:54:57,142.17,142.24,142.15,142.2 
2007-04-02 09:59:57,142.2,142.23,142.09,142.13 

2007-04-05 14:19:57,144.3,144.34,144.29,144.33 
2007-04-05 14:24:59,144.33,144.43,144.31,144.42 

2007-04-10 14:34:58,144.64,144.71,144.59,144.62 
2007-04-10 14:39:56,144.62,144.69,144.62,144.67 
2007-04-10 14:44:59,144.67,144.72,144.67,144.71 
2007-04-10 14:49:59,144.7,144.73,144.66,144.73 
2007-04-10 14:54:59,144.73,144.75,144.69,144.7 
2007-04-10 14:59:58,144.701,144.72,144.7,144.71 
2007-04-10 15:04:58,144.72,144.78,144.71,144.74 
2007-04-10 15:09:58,144.7499,144.79,144.74,144.77 
2007-04-10 15:14:59,144.77,144.7799,144.69,144.69 
2007-04-10 15:19:57,144.69,144.73,144.66,144.719 
2007-04-10 15:24:59,144.71,144.79,144.71,144.79 
2007-04-10 15:29:59,144.79,144.79,144.72,144.725 
2007-04-10 15:34:59,144.73,144.79,144.73,144.78 
2007-04-10 15:39:57,144.78,144.83,144.76,144.77 
2007-04-10 15:44:59,144.78,144.81,144.73,144.77 
2007-04-10 15:49:59,144.78,144.78,144.73,144.74 
2007-04-10 15:54:57,144.74,144.8,144.73,144.79 
2007-04-10 15:59:59,144.79,144.82,144.79,144.8 
+0

후 일부 데이터를. 참조 : http://stackoverflow.com/questions/5963269/how-to-make-a-great-r-reproducible-example – harkmug

+0

진지한 투표를하셨습니까? 나는 정확한 해결책을 찾고 있지 않다. 나는 방법을 찾고있다. 나는 내 질문에 대해 명확하지 않은 것을 본다. 나는 네가 내게 숙제 문제를 해결해 줄 것을 요구하지 않고있다. – aajkaltak

답변

6

그냥 데이터를 던져 바보 같다을 ...하지만 여기 당신은 간다 :

library(xts) 
x <- as.xts(read.zoo("data.csv",sep=",",header=TRUE,FUN=as.POSIXct)) 
x <- merge(x,N=apply.daily(x,nrow),fill=function(f) na.locf(f,fromLast=TRUE)) 
x <- x[x$N > 2,]