一、时间转化
# 生成一个数据表
null <- data.frame(x =1:10)
# 获取当前时间和日期
today <- Sys.time()
today1 <- Sys.time()
today_date <- Sys.Date()
# 将其他格式转化为日期
today_1 <- "201806-06"
today_2 <- "20180606-1120"
# 任意形状转变为日期
null$date <- as.Date(strptime(today_1,"%Y%m-%d"))
null$date <- as.POSIXct(strptime(today_1,"%Y%m%d-%H%M"))
# 日期转化为任意格式
null$date_1 <- format(as.POSIXlt(today),format="%Y%m%d-%H%M")
# 日期相减
null$date_2 <- difftime(today1, today, tz,units = c("mins"))#("mins","auto", "secs", "mins", "hours","days", "weeks")