在R中的两个DataFrames的多个列上使用Difftime函数

library(dplyr)

df1 <- data.frame(datetime1 = c("2022-01-01 10:00:00", "2022-01-02 12:00:00"),
                  datetime2 = c("2022-01-01 11:30:00", "2022-01-02 14:30:00"))

df2 <- data.frame(datetime1 = c("2022-01-01 09:00:00", "2022-01-02 11:00:00"),
                  datetime2 = c("2022-01-01 10:30:00", "2022-01-02 13:30:00"))

df1 <- df1 %>% mutate(time_diff1 = difftime(as.POSIXct(datetime1), as.POSIXct(df2$datetime1), units = "secs"),
                      time_diff2 = difftime(as.POSIXct(datetime2), as.POSIXct(df2$datetime2), units = "secs"))

print(df1)

            datetime1           datetime2 time_diff1 time_diff2
1 2022-01-01 10:00:00 2022-01-01 11:30:00    3600 secs    3600 secs
2 2022-01-02 12:00:00 2022-01-02 14:30:00    3600 secs    3600 secs