如何根据R中的时间分配数据帧分组
如何根据R中的时间分配数据帧分组
提问于 2018-08-14 16:54:59
您好，我有一个这样的表：
Entry TimeOn TimeOff Alarm
1 60 70 355
2 80 85 455
3 100 150 400
4 105 120 320
5 125 130 254
6 135 155 220
7 160 170 850我想了解如何对这些条目进行分组，以便在另一个报警期间开始并在另一个报警期间或在其他报警之后结束的那些条目，如条目4、5和6，可以从数据帧中过滤出来？
因此，这将是预期的结果，数据帧如下所示：
Entry TimeOn TimeOff Alarm
1 60 70 355
2 80 85 455
3 100 150 400
7 160 170 850因此删除了条目4、5和6
回答 1
Stack Overflow用户
回答已采纳
发布于 2018-08-14 18:43:21
library(dplyr)
library(data.table)
df$flag <- apply(df, 1, function(x) {
nrow(filter(df, data.table::between(x['TimeOn'],df$TimeOn,df$TimeOff)))
})
df[df$flag > 1, ]
Entry TimeOn TimeOff Alarm flag
4 4 105 120 320 2
5 5 125 130 254 2
6 6 135 155 220 2
#Save option using Base R
df$flag <- apply(df,1,function(x) {nrow(df[x['TimeOn'] >= df$TimeOn & x['TimeOn'] <= df$TimeOff,])})由@Andre Elrico建议
df[apply(df, 1, function(x) { nrow( df[between(x[['TimeOn']],df$TimeOn,df$TimeOff),] ) > 1 }),]数据
df <- read.table(text="
Entry TimeOn TimeOff Alarm
1 60 70 355
2 80 85 455
3 100 150 400
4 105 120 320
5 125 130 254
6 135 155 220
7 160 170 850
",header=T)页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/51837486
复制相关文章
相似问题
腾讯云开发者
