具有相同列的两个数据帧，如果在R中列时间在24小时内，则一个子集

# 加载必要的包
library(dplyr)

# 示例数据
df1 <- data.frame(
  id = 1:5,
  timestamp = as.POSIXct(c("2023-10-01 10:00:00", "2023-10-01 11:00:00", "2023-10-01 12:00:00", "2023-10-01 13:00:00", "2023-10-01 14:00:00"))
)

df2 <- data.frame(
  id = 6:10,
  timestamp = as.POSIXct(c("2023-10-01 15:00:00", "2023-10-01 16:00:00", "2023-10-01 17:00:00", "2023-10-01 18:00:00", "2023-10-01 19:00:00"))
)

# 计算当前时间
current_time <- Sys.time()

# 筛选出在24小时内的数据子集
subset_df1 <- df1 %>% filter(current_time - timestamp <= 24 * 60 * 60)
subset_df2 <- df2 %>% filter(current_time - timestamp <= 24 * 60 * 60)

# 合并两个子集
result <- bind_rows(subset_df1, subset_df2)

# 查看结果
print(result)