代码之家 › 专栏 › 技术社区 › Science11

r崩溃时间线由ID分隔31天

collapse time dplyr r

Science11 · 技术社区 · 4 年前

这个问题类似于这里的一个问题 r collapse by year by ID

然而,我喜欢把时间线折叠起来 身份证和状态 只有在他们的时间间隔为31天的情况下。如果间隔超过31天,则它们不会崩溃,而是从新的一行开始。例如,如果这是我的数据集

ID     From           To           State
1      2004-04-05     2005-02-05   MD
1      2005-03-05     2005-03-05   MD
1      2005-04-05     2005-10-05   DC
1      2006-03-05     2006-10-05   DC
1      2006-11-05     2007-03-05   DC
1      2007-04-05     2007-06-05   MD
1      2008-03-05     2008-11-05   MD
1      2008-12-05     2010-08-05   MD
1      2010-09-05     2012-11-05   MD
2      2003-05-05     2004-08-05   OR
2      2004-09-05     2009-03-05   OR
2      2010-06-05     2010-08-05   AZ
2      2013-06-05     2015-06-05   AZ

折叠后的最终数据集如下所示

ID     From           To           State

1      2004-04-05     2005-03-05   MD

1      2005-04-05     2005-10-05   DC

1      2006-04-05     2007-03-05   DC

1      2007-04-05     2007-06-05   MD

1      2008-03-05     2012-11-05   MD

2      2003-05-05     2009-03-05   OR

2      2010-06-05     2010-08-05   AZ

2      2013-06-05     2015-06-05   AZ

任何关于这方面的建议都将不胜感激。

测试用例2:

ID     From           To           State
1      2003-09-05     2003-11-05   MD
1      2004-09-05     2007-05-05   TX
1      2007-06-05     2007-07-05   DC
1      2007-08-05     2009-07-05   DC
1      2011-11-05     2014-03-05   MD
1      2014-05-05     2017-06-05   MD

预期结果

ID     From           To           State
1      2003-09-05     2003-11-05   MD
1      2004-09-05     2007-05-05   TX
1      2007-06-05     2009-07-05   DC 
1      2011-11-05     2017-06-05   MD

0 回复 | 直到 4 年前

Ronak Shah 4 年前

减去电流 From 上个月的日期 To 日期并创建一个新的分组列,然后选择 first 从…起 价值与 last 到 每个组中的值。

library(dplyr)

df %>%
  mutate(across(c(From, To), as.Date)) %>%
  group_by(ID, State, 
           group = cumsum(From - dplyr::lag(To, default = as.Date('1970-01-01')) > 31)) %>%
  summarise(From = first(From), 
            To = last(To), .groups = 'drop') %>%
  select(-group) %>%
  arrange(ID, From)

#     ID State From       To        
#  <int> <chr> <date>     <date>    
#1     1 MD    2004-04-05 2005-03-05
#2     1 DC    2005-04-05 2005-10-05
#3     1 DC    2006-03-05 2007-03-05
#4     1 MD    2007-04-05 2007-06-05
#5     1 MD    2008-03-05 2012-11-05
#6     2 OR    2003-05-05 2009-03-05
#7     2 AZ    2010-06-05 2010-08-05
#8     2 AZ    2013-06-05 2015-06-05

推荐文章

Amp · 使用R ggplot2删除geom_radial中axis.line和panel.border之间的空格

1 年前

Hard_Course · 用另一列中的值替换行的最后一个非NA条目

1 年前

Mark R · 使用geom_sf()删除地球仪上不需要的网格线

1 年前

Joe · 根据对工作日和本周早些时候的日期的了解,找到一个日期

1 年前

Ben · 统计向量中的单词在字符串中出现的频率

1 年前

TheCodeNovice · R中符号格式的尾随零和其他问题[重复]

1 年前

katefull06 · 在R中使用terra修改范围时,会为单独的SpatRaster重写范围

1 年前

dez93_2000 · 在R管道子功能中引用管道对象的当前状态

1 年前

accibio · 在ggplot2中为同一变量创建两个连续的颜色渐变比例

1 年前

Mankka · 如何在Ggplot2中绘制均匀的径向图

1 年前