日時に変換　R

library(lubridate)

res6 <- res6 %>% 
  filter(is.na(diag_date) == FALSE) %>% 
  mutate(diag_date_conversion      = lubridate::ymd(diag_date), 
         admission_date_conversion = lubridate::ymd(入院日), 
         discharge_date_conversion = lubridate::ymd(退院日), 
         dif_date = as.numeric(admission_date_conversion - diag_date_conversion), 
         admission_duration = as.numeric(discharge_date_conversion - admission_date_conversion)) %>% 
  filter(dif_date < 14 & dif_date >= -7) %>% 
  select(患者ID, 入院日, 退院日, dif_date, admission_duration)

lubridate した後の日にちは引き算が出来る。
引き算した値をas.numericで数字に変更できる。