R时间段重叠

使用R中的“lubridate”包，我可以找出两个时间段是否重叠。但是有没有一种有效的方法来计算它们重叠了多少天。（例如，女性在怀孕期间吸烟的天数。怀孕期和吸烟期可能完全、部分或完全重叠）

以下是一个有三名女性的例子：

preg_start<-as.Date(c("2011-01-01","2012-01-01","2013-01-01"))
preg_end<-preg_start+270 # end after 9 months
smoke_start<-as.Date(c("2011-02-01","2012-08-01","2014-01-01"))
smoke_end<-smoke_start+100 # all three smoked 100 days

data<-data.frame(cbind(preg_start,preg_end,smoke_start,smoke_end))

---

preg_start使用
interval
为怀孕和吸烟创建时间间隔。然后计算这些间隔的
相交
。从中可以计算出
期间
，单位为天

library("lubridate")
preg_start<-as.Date(c("2011-01-01","2012-01-01","2013-01-01"))
preg_end<-preg_start+270 # end after 9 months
smoke_start<-as.Date(c("2011-02-01","2012-08-01","2014-01-01"))
smoke_end<-smoke_start+100 # all three smoked 100 days

smoke <- new_interval(smoke_start, smoke_end, tzone="UTC")
preg <- new_interval(preg_start, preg_end, tzone="UTC")
day(as.period(intersect(smoke, preg), "days"))

库（“lubridate”）
preg_Start如果您提供一些如本文所述的示例数据，这将使您更容易获得帮助。在你的问题中包含你想要的结果也是一个好主意。在我搜索重叠的时间段时，这个问题一直在出现。标题应该改为“R时间段重叠天数”吗？应该是101、58和1吗？它不包括重叠的第一天（这在重叠天数少于10天的情况下可能是至关重要的）。@Amalogical Fishy这是一个问题。但是，由于此方法（使用interval，因为现在不推荐使用new_interval）将在时间段完全不重叠的情况下返回NA，因此很容易在整个向量中添加1来更正它。