R difftime() 函数 - 计算时间差
R 语言实例R difftime() 函数用于计算两个日期/时间之间的差值。
difftime() 可以指定返回的时间单位，如天、小时、分钟等。
difftime() 函数语法格式如下：
difftime(time1, time2, units = c("auto", "secs", "mins", "hours", "days", "weeks"))
参数说明：
time1, time2 日期时间对象。
units 返回差值的时间单位。
实例
# 两个日期
start_date <- as.Date("2026-01-01")
end_date <- as.Date("2026-05-11")
# 计算差值（默认天）
diff_days <- difftime(end_date, start_date)
print(paste("相差天数:", diff_days))
# 指定单位为周
diff_weeks <- difftime(end_date, start_date, units = "weeks")
print(paste("相差周数:", round(diff_weeks, 1)))
# 日期比较
dates <- as.Date(c("2025-06-15", "2026-01-01",
"2026-05-11", "2026-12-31"))
reference <- as.Date("2026-05-11")
diffs <- difftime(dates, reference, units = "days")
print("各日期与今天的天数差:")
print(diffs)
start_date <- as.Date("2026-01-01")
end_date <- as.Date("2026-05-11")
# 计算差值（默认天）
diff_days <- difftime(end_date, start_date)
print(paste("相差天数:", diff_days))
# 指定单位为周
diff_weeks <- difftime(end_date, start_date, units = "weeks")
print(paste("相差周数:", round(diff_weeks, 1)))
# 日期比较
dates <- as.Date(c("2025-06-15", "2026-01-01",
"2026-05-11", "2026-12-31"))
reference <- as.Date("2026-05-11")
diffs <- difftime(dates, reference, units = "days")
print("各日期与今天的天数差:")
print(diffs)
执行以上代码输出结果为：
[1] "相差天数: 130" [1] "相差周数: 18.6" [1] "各日期与今天的天数差:" Time differences in days [1] -330 -130 0 234