R语言合并DataFrame后date.x与date.y列保留单一日期列问题

情况1：两个日期列内容完全一致 #

如果确认date.x和date.y的内容完全相同，直接保留其中一列并重命名即可，用dplyr或base R都能实现：

dplyr 实现

library(dplyr)
# 先按id合并
merged_df <- inner_join(df1, df2, by = "id")
# 删除其中一个日期列，并重命名保留的列
merged_df <- merged_df %>%
  select(-date.y) %>%
  rename(date = date.x)

base R 实现

# 按id合并
merged_df <- merge(df1, df2, by = "id")
# 保留date.x并命名为date，删除原日期列
merged_df$date <- merged_df$date.x
merged_df <- merged_df[, !names(merged_df) %in% c("date.x", "date.y")]

情况2：两个日期列存在差异 #

如果date.x和date.y可能有不同值，需要先明确保留规则，再处理：

优先保留某一侧的日期

比如固定保留原df1的日期：

library(dplyr)
merged_df <- inner_join(df1, df2, by = "id") %>%
  mutate(date = date.x) %>%
  select(-date.x, -date.y)

保留较新的日期

如果需要取两个日期中较晚的那个：

library(dplyr)
merged_df <- inner_join(df1, df2, by = "id") %>%
  # 比较日期并取较新值，注意转换回日期类型
  mutate(date = as.Date(ifelse(date.x > date.y, date.x, date.y))) %>%
  select(-date.x, -date.y)

提前避免生成双日期列（可选） #

如果你的场景中，两个DataFrame的date列是一一对应的（即同一id的date值一致），可以直接按id和date同时合并，这样就不会生成两个日期列：

merged_df <- inner_join(df1, df2, by = c("id", "date"))

内容的提问来源于stack exchange，提问作者Yomson