从另一个r中减去一个时间列

# 创建示例数据
r1 <- data.frame(time_column = c("2022-01-01 10:00:00", "2022-01-01 11:30:00", "2022-01-01 12:45:00"))
r2 <- data.frame(time_column = c("2022-01-01 09:00:00", "2022-01-01 10:00:00", "2022-01-01 11:00:00"))

# 将时间列转换为日期时间格式
r1$time_column <- as.POSIXct(r1$time_column)
r2$time_column <- as.POSIXct(r2$time_column)

# 从r1中减去r2的时间列
time_diff <- r1$time_column - r2$time_column

# 将时间差转换为分钟单位
time_diff_minutes <- as.numeric(difftime(r1$time_column, r2$time_column, units = "mins"))

# 打印结果
print(time_diff)
print(time_diff_minutes)