xts/동물원에서 초 단위 집합

Question

xts에 초 단위 집합을 사용할 수 있습니까?

2013-01-01 00:01:00 2.2560000 
2013-01-01 00:02:00 2.3883333 
2013-01-01 00:03:00 1.8450000 
2013-01-01 00:04:00 1.6966667 
2013-01-01 00:04:03 1.3100000 
2013-01-01 00:05:00 0.8533333 

줄을 가져 오지 않으려 고합니다. 끝에서 00 초!

2013-01-01 00:04:03 1.3100000 

보통 나는 시간에 의해 부분 집합 것 [T09 : 00/T09 : 30]하지만 지금 내가 선이 초 00와 타임 스탬프를 가지고 있지 싶어합니다. 감사!

Answer 1

첫째, (dput 다음을 사용하십시오)

lines <- '2013-01-01 00:01:00 2.2560000 
2013-01-01 00:02:00 2.3883333 
2013-01-01 00:03:00 1.8450000 
2013-01-01 00:04:00 1.6966667 
2013-01-01 00:04:03 1.3100000 
2013-01-01 00:05:00 0.8533333' 

tmp <- read.table(text=lines) 
x <- xts(tmp[, 3], as.POSIXct(paste(tmp[, 1], tmp[, 2]))) 

---

당신은 두 번째가 행을 추출하기 위해 .indexsec 기능을 사용할 수 있습니다 R로 예를 들어, 데이터를 가져 오기 위해 (또는 아닙니다) 0

x[.indexsec(x) == 0] 
#       [,1] 
#2013-01-01 00:01:00 2.2560000 
#2013-01-01 00:02:00 2.3883333 
#2013-01-01 00:03:00 1.8450000 
#2013-01-01 00:04:00 1.6966667 
#2013-01-01 00:05:00 0.8533333 

x[.indexsec(x) != 0] 
#     [,1] 
#2013-01-01 00:04:03 1.31 

---

또 다른 생각은 안 export를 사용하는 것기능은 endpoints 기능과 유사합니다. 당신이 하나의 00 끝나지 않는 행, 당신은 부정적인 부분 집합을 사용할 수 있는지

x[xts:::startof(x, "mins")] 
#       [,1] 
#2013-01-01 00:01:00 2.2560000 
#2013-01-01 00:02:00 2.3883333 
#2013-01-01 00:03:00 1.8450000 
#2013-01-01 00:04:00 1.6966667 
#2013-01-01 00:05:00 0.8533333 

또는 :

x[-xts:::startof(x, "mins")] 
#     [,1] 
#2013-01-01 00:04:03 1.31 

---

다음

제로 폭 XTS와 합병하여 작업을 수행하는 방법 원하는 인덱스가있는 객체.

merge(xts(, seq(start(x), end(x), by="min")), x, all=FALSE) 
#       x 
#2013-01-01 00:01:00 2.2560000 
#2013-01-01 00:02:00 2.3883333 
#2013-01-01 00:03:00 1.8450000 
#2013-01-01 00:04:00 1.6966667 
#2013-01-01 00:05:00 0.8533333