如何用循环嵌套if实现两个DataFrame的数据匹配迁移与错误提示？

需求说明 #

• 现有两个CSV文件（File1、File2），需完成两项操作：
  1. 校验File1中存在但File2没有的ID，输出格式为[ID] There is an error的提示
  2. 将File1中匹配ID的数据填充到File2对应行，File2中无匹配的ID用NA填充

示例数据 #

File1内容 #

ID, X1, X2, X3
2000, 1, 2, 3
2001, 3, 4, 5
1999, 2, 5, 6
2003, 3, 5, 4

File2内容 #

ID, X1, X2, X3
2000,
2001,
2002,
2003,

期望输出 #

• 控制台输出：1999 There is an error
• 处理后的File2内容：

ID, X1, X2, X3
2000, 1, 2, 3
2001, 3, 4, 5
2002, NA, NA, NA
2003, 3, 5, 4

原代码问题分析 #

你的嵌套循环代码存在多处语法与逻辑错误：

• 循环范围错误：length(1:nrows(file1))仅返回行数的数值，正确范围应为1:nrow(file1)
• 列索引错误：R中取数据框列需用file1$ID，而非file1&ID
• 逻辑判断错误：file1$ID[j]>= file2$ID[j+1]完全不符合需求逻辑
• 语法疏漏：括号未闭合、else拼写错误、print参数格式错误、break位置不合理

可行实现方案 #

在R中无需嵌套循环，利用内置合并函数即可高效完成需求，以下提供两种实现方式：

方案1：基础R实现 #

# 读取文件（请替换为实际文件路径）
file1 <- read.csv("File1.csv", strip.white = TRUE)
file2 <- read.csv("File2.csv", strip.white = TRUE)

# 校验并输出无效ID
invalid_ids <- setdiff(file1$ID, file2$ID)
for (id in invalid_ids) {
  cat(paste(id, "There is an error\n"))
}

# 以File2的ID为基准合并数据，自动填充NA
result_file2 <- merge(file2["ID"], file1, by = "ID", all.x = TRUE)

# 查看结果并写入文件
print(result_file2)
write.csv(result_file2, "处理后的File2.csv", row.names = FALSE)

方案2：dplyr包实现（更直观） #

library(dplyr)

# 读取文件
file1 <- read.csv("File1.csv", strip.white = TRUE)
file2 <- read.csv("File2.csv", strip.white = TRUE)

# 校验并输出无效ID
invalid_ids <- file1 %>% filter(!ID %in% file2$ID) %>% pull(ID)
for (id in invalid_ids) {
  cat(paste(id, "There is an error\n"))
}

# 左连接填充数据
result_file2 <- file2 %>% 
  select(ID) %>% 
  left_join(file1, by = "ID")

# 查看结果并写入文件
print(result_file2)
write.csv(result_file2, "处理后的File2.csv", row.names = FALSE)

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