R语言日期相减与数值转换

difftime函数相减

difftime(time1, time2, tz,
         units = c("auto", "secs", "mins", "hours",
                   "days", "weeks")) # 转换成毫秒、秒、分钟、小时、天、周
as.difftime(tim, format = "%X", units = "auto") # 数值换成日期
as.numeric(tim, units = "days") # 日期转换成数值

可执行案例一：

(z <- Sys.time() - 3600)
Sys.time() - z                # just over 3600 seconds.

## time interval between release days of R 1.2.2 and 1.2.3.
ISOdate(2001, 4, 26) - ISOdate(2001, 2, 26)

as.difftime(c("0:3:20", "11:23:15"))
as.difftime(c("3:20", "23:15", "2:"), format = "%H:%M") # 3rd gives NA
(z <- as.difftime(c(0,30,60), units = "mins"))
as.numeric(z, units = "secs")
as.numeric(z, units = "hours")
format(z)

案例二

tim=difftime(data_a$date[3],data_a$date[2],units="days")
as.difftime(tim, format = "%X", units = "days")
as.numeric(tim, units = "days")

数值转换为日期

日期转换为数值

科学计数法

x=2640000000000
z<-format(x,scientific=TRUE,digit=3)