Как игнорировать NA в цикле for - PullRequest
Новая
       23

Как игнорировать NA в цикле for

0 голосов
/ 21 апреля 2019

У меня есть вектор временных интервалов в lubridate, который имеет значение NA, смешанное, как показано ниже. У меня есть второй кадр данных с поминутными данными. Я пытаюсь написать цикл for, который будет проходить через интервалы и включать только метки времени, которые находятся в каждом интервале. 

timespan
2016-05-24 11:05:00 UTC--2016-05-24 11:07:59 UTC
2016-05-24 11:08:00 UTC--2016-05-24 11:10:59 UTC
2016-05-24 11:11:00 UTC--2016-05-24 11:13:59 UTC
2016-05-24 11:18:00 UTC--2016-05-24 11:22:59 UTC
2016-05-24 11:26:00 UTC--2016-05-24 11:30:59 UTC
2016-05-24 11:32:00 UTC--2016-05-24 11:36:59 UTC
2016-05-24 11:40:00 UTC--2016-05-24 11:44:59 UTC
2016-05-24 11:47:00 UTC--2016-05-24 11:51:59 UTC
2016-05-24 11:53:00 UTC--2016-05-24 11:57:59 UTC
2016-05-24 11:59:00 UTC--2016-05-24 12:03:59 UTC
2016-05-24 12:11:00 UTC--2016-05-24 12:12:59 UTC
NA
2016-05-24 12:18:00 UTC--2016-05-24 12:22:59 UTC

У меня работает код, кроме одного значения NA. 

ref = list()
for (i in 1:nrow(df)) {
  ifelse (!is.na(timespan), ref[[i]] <- df[ACC$Timestamp %within% timespan[i], ], NA)
 }

Мой список ссылок верен, за исключением значения от второго до последнего, которое сохранило все строки из df, который отбрасывает все, когда я в конце концов связываю список вместе.

Спасибо за помощь!

EDIT: 

dput(timespan)
new("Interval", .Data = c(179, 179, 179, 299, 299, 299, 299, 
299, 299, 299, 119, NA, 299), start = structure(c(1464087900, 
1464088080, 1464088260, 1464088680, 1464089160, 1464089520, 1464090000, 
1464090420, 1464090780, 1464091140, 1464091860, NA, 1464092280
), tzone = "UTC", class = c("POSIXct", "POSIXt")), tzone = "UTC")

1 Ответ

1 голос
/ 21 апреля 2019

Работает ли это: 

ref = list()
for (i in 1:nrow(df)) {
  if (!is.na(timespan[i])){
       ref[[i]] <- df[ACC$Timestamp %within% timespan[i], ]
      } else
        ref[[i]] <- NA
 }
...