计算每个组中自上一日期以来经过的天数

Question

我的数据如下：

data <- structure(list(year = c(2019L, 2019L, 2019L, 2019L, 2019L, 2020L, 
2020L, 2020L, 2020L, 2020L), group = c("A", "A", "A", "B", "B", 
"A", "A", "B", "B", "B"), date = c("2019-07-15", "2019-07-25", 
"2019-08-01", "2019-07-15", "2019-07-30", "2020-08-01", "2020-08-03", 
"2020-08-01", "2020-08-20", "2020-08-25")), 
class = "data.frame", row.names = c(NA, 
-10L))

我想计算每个小组自上一个日期以来每年经过的天数。当我尝试这样做时，输出不是对数据进行分组。例如，输出会将组 B 2019-07-15 和组 A 2019-08-21 之间的天数计算为负值，而不是计算自每个日期 WITHIN 组以来经过的天数。

我尝试了以下代码，这导致了我在上面描述的问题：

library(dplyr)
data %>%
 arrange(year, group, date) %>%  # To ensure dates are in chronological order within each group 
 mutate(date = as.Date(date)) %>%
 group_by(year, group)%>% 
 mutate(Difference = difftime(date, lag(date), units = "days")) 

提前谢谢！

Answer 1

以下是使用< code>lubridate包中的< code>interval函数的替代方法:

注：

interval(lag(date,default = date[1]), date) %>% 
           as.numeric('days')

法典：

library(lubridate)
library(dplyr)
data %>% 
  mutate(date = ymd(date)) %>% 
  group_by(group) %>% 
  mutate(difference = interval(lag(date,default = date[1]), date) %>% as.numeric('days'))  

    year group date       difference
   <int> <chr> <date>          <dbl>
 1  2019 A     2019-07-15          0
 2  2019 A     2019-07-25         10
 3  2019 A     2019-08-01          7
 4  2019 B     2019-07-15          0
 5  2019 B     2019-07-30         15
 6  2020 A     2020-08-01        366
 7  2020 A     2020-08-03          2
 8  2020 B     2020-08-01        368
 9  2020 B     2020-08-20         19
10  2020 B     2020-08-25          5

Answer 2

尝试以下操作。对代码的微小更改会产生影响。

suppressPackageStartupMessages(library(dplyr))

data %>%
  mutate(date = as.Date(date)) %>%
  group_by(group)%>% 
  arrange(group, date) %>% 
  mutate(Difference = difftime(date, lag(date), units = "days")) 
#> # A tibble: 10 × 4
#> # Groups:   group [2]
#>     year group date       Difference
#>    <int> <chr> <date>     <drtn>    
#>  1  2019 A     2019-07-15  NA days  
#>  2  2019 A     2019-07-25  10 days  
#>  3  2019 A     2019-08-01   7 days  
#>  4  2020 A     2020-08-01 366 days  
#>  5  2020 A     2020-08-03   2 days  
#>  6  2019 B     2019-07-15  NA days  
#>  7  2019 B     2019-07-30  15 days  
#>  8  2020 B     2020-08-01 368 days  
#>  9  2020 B     2020-08-20  19 days  
#> 10  2020 B     2020-08-25   5 days

< sup >由reprex软件包(v2.0.1)于2022-06-10创建