在 R 中，有没有办法计算一个事件结束和另一个事件开始之间的天数？

Question

（注：酒店数据用作说明性示例。 ）

我正在使用一个数据集，该数据集为每个客户 (custID) 提供多条记录（例如“hotelStays”）。 我的目标是将自客户上次停留以来的天数作为数据框中的新列（即每个客户的第一次停留将 'NA' 作为其价值）。 为此，我想从他们当前的 checkInDt 中减去每个客户之前的 checkOutDt。 但是，当我尝试使用 lag() 这样做时，新列中的所有值都是“NA”。

下面是我正在使用的数据类型的示例。

客户编号	逗留ID	停留时间	签入	签出Dt
AAAAA	11111	01/15/1995	01/10/1995	01/17/1995
BBBB	11112	02/08/1995	02/02/1995	02/25/1995
AAAAA	11113	03/01/1995	03/01/1995	03/03/1995
AAAAA	11114	06/24/1995	06/22/1995	07/02/1995
BBBB	11115	10/02/1995	10/01/1995	10/10/1995
中国交建	11116	01/08/1996	01/05/1996	01/17/1996
AAAAA	11117	05/15/1996	05/10/1996	05/28/1996

理想情况下，新列“daysSinceLastStay”将具有以下值：

自上次入住以来的天数
不适用
不适用
43
111
218
不适用
313

但是，我认为我需要先按 custID 和stayDt 排序。

---

以下是我目前对代码的尝试：

hotelData <- hotelData %>%
                arrange(custID, stayDt) %>%
                mutate(daysSinceLastStay = 
                       checkInDt - lag(checkOutDt))

---

任何意见是极大的赞赏！

Answer 1

根据您期望的数据，您似乎需要使用group_by()函数。 这应该能让你找到你想要的东西。

# t*r*ibble, for creating data by row
hotelData <- tibble::tribble(
  ~custID, ~stayID, ~stayDt, ~checkInDt, ~checkOutDt,
  "AAAAA",  11111,  "01/15/1995",   "01/10/1995",   "01/17/1995",
  "BBBBB",  11112,  "02/08/1995",   "02/02/1995",   "02/25/1995",
  "AAAAA",  11113,  "03/01/1995",   "03/01/1995",   "03/03/1995",
  "AAAAA",  11114,  "06/24/1995",   "06/22/1995",   "07/02/1995",
  "BBBBB",  11115,  "10/02/1995",   "10/01/1995",   "10/10/1995",
  "CCCCC",  11116,  "01/08/1996",   "01/05/1996",   "01/17/1996",
  "AAAAA",  11117,  "05/15/1996",   "05/10/1996",   "05/28/1996"
)

# convert the date columns to the proper data type
# then, sort the data by customer ID and stayID
hotelData <- hotelData %>%
  mutate(across(stayDt:checkOutDt, lubridate::mdy)) %>%
  arrange(custID, stayID)

# within each customer, take the difference in days
hotelData %>%
  group_by(custID) %>%
  mutate(daysSinceLastStay = as.numeric(checkInDt - lag(checkOutDt)))

# A tibble: 7 x 6
# Groups:   custID [3]
  custID stayID stayDt     checkInDt  checkOutDt daysSinceLastStay
  <chr>   <dbl> <date>     <date>     <date>                 <dbl>
1 AAAAA   11111 1995-01-15 1995-01-10 1995-01-17                NA
2 AAAAA   11113 1995-03-01 1995-03-01 1995-03-03                43
3 AAAAA   11114 1995-06-24 1995-06-22 1995-07-02               111
4 AAAAA   11117 1996-05-15 1996-05-10 1996-05-28               313
5 BBBBB   11112 1995-02-08 1995-02-02 1995-02-25                NA
6 BBBBB   11115 1995-10-02 1995-10-01 1995-10-10               218
7 CCCCC   11116 1996-01-08 1996-01-05 1996-01-17                NA