使用 dplyr 和 lubridate 在 R 中的兩個日期之間的天數差異？

Question

想要在 R 中執行與 datediff 等效的 SQL 嗎？

基本上，我想在 R 中進行這個計算

Delivery Date  Expected Date   Difference 
2022-01-05     2022-01-07         -2 
        

Answer 1

將列轉換為Date class 並使用difftime

df1$Difference <-  with(df1, as.numeric(difftime(as.Date(DeliveryDate), 
           as.Date(ExpectedDate), units = "days")))

---

或使用tidyverse

library(dplyr)
library(lubridate)
df1 %>% 
  mutate(Difference = as.numeric(difftime(ymd(DeliveryDate), 
         ymd(ExpectedDate), units = "days")))
  DeliveryDate ExpectedDate Difference
1   2022-01-05   2022-01-07         -2

Answer 2

首先將您的日期更改為 lubridate date: 2022-01-05 將是

date1 <- ymd("2022-01-05") 
date2 <- ymd("2022-01-07")
diff_days <- difftime(date2, date1, units="days")