使用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))
我想添加一个变量,说第一个女人在怀孕期间吸烟 100 天,第二个吸烟 30 天,第三个在怀孕期间不吸烟。