日にちに変換する　R

> df6 <- df6 %>%
+ mutate(入院日 = lubridate::ymd(入院日)) %>%
+ mutate(退院日 = lubridate::ymd(退院日)) %>%
+ mutate(入院期間 = 退院日 - 入院日 +1)