gpt4 book ai didi

r - 使用 R 检测无事件天数

转载 作者:行者123 更新时间:2023-12-04 12:20:04 25 4
gpt4 key购买 nike

我在 RStudio 中加载了一个数据框,其中包含有关众多事件(数百万)的信息。

每行是单个事件的条目,除了其他信息外,它还包括两个带有日期信息的属性。第一个包含事件开始的日期,第二个包含事件结束的日期。但是这些事件不是连续的,因此它们可能会在时间上重叠。

                              fecha                   fecha_fin
7510607 2014-02-13 20:09:59.8270000 2014-02-27 09:55:40.9700000
7510608 2014-02-13 20:10:01.1870000 2014-02-27 09:55:42.5630000
7557931 2014-02-16 05:32:08.6230000 2014-02-16 14:03:19.4970000

找出哪些日历日没有事件(没有任何事件正在进行)的最佳和最有效的选择是什么?请记住,必须考虑事件的持续时间。

最佳答案

我倾向于使用 foverlaps来自 data.table此类情况的包装,例如:

library(data.table)
dt <- fread("id,fecha,fecha_fin
7510607,2014-02-01 20:09:59.8270000,2014-02-10 09:55:40.9700000
7510607,2014-02-13 20:09:59.8270000,2014-02-27 09:55:40.9700000
7510608,2014-02-13 20:10:01.1870000,2014-02-27 09:55:42.5630000
7557931,2014-02-16 05:32:08.6230000,2014-02-16 14:03:19.4970000")
setkey(dt, fecha, fecha_fin)
set(dt, j = 1L, value = NULL)
dt <- dt[,lapply(.SD, as.POSIXct, tz = "CET"),.SDcols=1:2]

dt2 <- data.table(fecha=as.POSIXct(seq(min(as.Date(dt$fecha)), max(as.Date(dt$fecha_fin)), "1 day")))[,fecha_fin:=fecha+60*60*24-1]
as.Date(foverlaps(dt2, dt)[is.na(fecha) & is.na(fecha_fin),i.fecha])
# [1] "2014-02-11" "2014-02-12"

关于r - 使用 R 检测无事件天数,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/40628248/

25 4 0
Copyright 2021 - 2024 cfsdn All Rights Reserved 蜀ICP备2022000587号
广告合作:1813099741@qq.com 6ren.com