获取R中至少三个数据帧中的两个数据帧之间的交集

# 创建示例数据帧
df1 <- data.frame(id = c(1, 2, 3, 4), value = c("A", "B", "C", "D"))
df2 <- data.frame(id = c(3, 4, 5, 6), value = c("C", "D", "E", "F"))
df3 <- data.frame(id = c(4, 5, 6, 7), value = c("D", "E", "F", "G"))

# 获取df1和df2之间的交集
intersection_df1_df2 <- merge(df1, df2, by = "id")

# 获取df1和df3之间的交集
intersection_df1_df3 <- merge(df1, df3, by = "id")

# 打印结果
print(intersection_df1_df2)
print(intersection_df1_df3)

# 确保列名存在
if ("id" %in% colnames(df1) && "id" %in% colnames(df2)) {
  intersection_df1_df2 <- merge(df1, df2, by = "id")
} else {
  print("列名不匹配")
}

# 确保数据类型一致
df1$id <- as.integer(df1$id)
df2$id <- as.integer(df2$id)

intersection_df1_df2 <- merge(df1, df2, by = "id")