从R中的表2中获取表1中开始日期和结束日期之间的值

library(dplyr)
library(lubridate)

# 假设表1和表2分别为df1和df2
# 确保日期列被解析为日期类型
df1$开始日期 <- as.Date(df1$开始日期)
df1$结束日期 <- as.Date(df1$结束日期)
df2$日期 <- as.Date(df2$日期)

# 根据表1中的开始日期和结束日期筛选表2中的行
filtered_df2 <- df2 %>%
  filter(日期 >= min(df1$开始日期) & 日期 <= max(df1$结束日期))

# 将筛选后的结果与表1进行合并
merged_df <- df1 %>%
  left_join(filtered_df2, by = c("开始日期" = "日期"))