1、字符串转换为日期
x <- c("3/5/2004","5/2/2008")
y <- as.Date(x,"%m/%d/%Y")
y
class(y)
2、获取当前日期
Sys.Date()
date()
3、日期计算差值
a <- as.Date("2021-03-30")
b <- as.Date("2021-01-30")
c <- b - a
c
today <- Sys.Date()
day <- as.Date("2020-08-20")
x <- difftime(today, day, units = "days")
x