イベントへの時間を表示するための値を作成する

Question

私はRには新しいので、私がコードしようとしている問題について少し助けが必要です。 以下は、アラームから日数を計算する必要のあるデータセットです。私は値が1秒ごとにキャプチャされ、10秒目に発生したアラームがある時系列データを持っています。私は10秒から1秒までの時間の差を計算し、別の列に時間単位で入力します。最初の警報に対する値が0すなわち差がゼロであるれたらアラーム.Belowサンプルデータ

datetime   alarm 
1/1/2015 0:00  NO 
1/1/2015 0:01  NO 
1/1/2015 0:02  NO 
1/1/2015 0:03  NO 
1/1/2015 0:04  NO 
1/1/2015 0:05  NO 
1/1/2015 0:06  NO 
1/1/2015 0:07  NO 
1/1/2015 0:08  NO 
1/1/2015 0:09  NO 
1/1/2015 0:10  YES 
1/1/2015 0:11  NO 
1/1/2015 0:12  NO 
1/1/2015 0:13  NO 
1/1/2015 0:14  YES 
1/1/2015 0:15  NO 
1/1/2015 0:16  NO 
1/1/2015 0:17  NO 

おかげであるため、次の行は、次のアラームを考慮し日間移入すべきです。出力はあなたのサンプルデータセットのようになるはずです何

Answer 1

DF<-read.table(text="datetime,alarm 
1/1/2015 0:00,NO 
1/1/2015 0:01,NO 
1/1/2015 0:02,NO 
1/1/2015 0:03,NO 
1/1/2015 0:04,NO 
1/1/2015 0:05,NO 
1/1/2015 0:06,NO 
1/1/2015 0:07,NO 
1/1/2015 0:08,NO 
1/1/2015 0:09,NO 
1/1/2015 0:10,YES 
1/1/2015 0:11,NO 
1/1/2015 0:12,NO 
1/1/2015 0:13,NO 
1/1/2015 0:14,YES 
1/1/2015 0:15,NO 
1/1/2015 0:16,NO 
1/1/2015 0:17,NO",header=TRUE,sep=",") 

library(data.table) 
setDT(DF) 
#create grouping variable 
DF[, period := rev(cumsum(rev(alarm == "YES")))] 

DF[, datetime := as.POSIXct(datetime, "%m/%d/%Y %H:%M", tz = "UTC")] 

#split-apply-combine operation 
Res <- DF[, .(start = min(datetime), 
     end = max(datetime)), 
    by = period] 

#possibly you need to add a minute here, don't know from your description  
Res[, length := difftime(end, start, unit = "hour")] 

Res[, period := max(period) - period + 1] 
# period    start     end   length 
#1:  1 2015-01-01 00:00:00 2015-01-01 00:10:00 0.16666667 hours 
#2:  2 2015-01-01 00:11:00 2015-01-01 00:14:00 0.05000000 hours 
#3:  3 2015-01-01 00:15:00 2015-01-01 00:17:00 0.03333333 hours 

Answer 2

df <- data.frame(datetime=c('1/1/2015 0:00','1/1/2015 0:01','1/1/2015 0:02','1/1/2015 0:03','1/1/2015 0:04','1/1/2015 0:05','1/1/2015 0:06','1/1/2015 0:07','1/1/2015 0:08','1/1/2015 0:09','1/1/2015 0:10','1/1/2015 0:11','1/1/2015 0:12','1/1/2015 0:13','1/1/2015 0:14','1/1/2015 0:15','1/1/2015 0:16','1/1/2015 0:17'),alarm=c('NO','NO','NO','NO','NO','NO','NO','NO','NO','NO','YES','NO','NO','NO','YES','NO','NO','NO'),stringsAsFactors=F); 
df$datetime <- as.POSIXct(df$datetime,'%d/%m/%Y %H:%M',tz='UTC'); 
w <- which(df$alarm=='YES'); 
df$diff <- difftime(df$datetime,df$datetime[c(1L,w)[findInterval(seq_along(df$alarm),w)+1L]],units='hours'); 
df; 
##    datetime alarm    diff 
## 1 2015-01-01 00:00:00 NO 0.00000000 hours 
## 2 2015-01-01 00:01:00 NO 0.01666667 hours 
## 3 2015-01-01 00:02:00 NO 0.03333333 hours 
## 4 2015-01-01 00:03:00 NO 0.05000000 hours 
## 5 2015-01-01 00:04:00 NO 0.06666667 hours 
## 6 2015-01-01 00:05:00 NO 0.08333333 hours 
## 7 2015-01-01 00:06:00 NO 0.10000000 hours 
## 8 2015-01-01 00:07:00 NO 0.11666667 hours 
## 9 2015-01-01 00:08:00 NO 0.13333333 hours 
## 10 2015-01-01 00:09:00 NO 0.15000000 hours 
## 11 2015-01-01 00:10:00 YES 0.00000000 hours 
## 12 2015-01-01 00:11:00 NO 0.01666667 hours 
## 13 2015-01-01 00:12:00 NO 0.03333333 hours 
## 14 2015-01-01 00:13:00 NO 0.05000000 hours 
## 15 2015-01-01 00:14:00 YES 0.00000000 hours 
## 16 2015-01-01 00:15:00 NO 0.01666667 hours 
## 17 2015-01-01 00:16:00 NO 0.03333333 hours 
## 18 2015-01-01 00:17:00 NO 0.05000000 hours