将循环值插入data.frame新列时出错：仅首次插入成功后续为空

你的代码存在两个核心问题：

1. 初始数据被误清空：第一行data <- data.frame()直接把原本存着emp.Code的数据集清空了，按这个写法循环条件1:length(data$emp.Code)的长度是0，根本跑不起来——结合你说首次循环成功的情况，应该是代码笔误，实际你手里有带emp.Code的原始数据，得把它和结果数据分开存。
2. 循环里改了循环依赖的数据集：每次循环用rbind更新data，后面循环再取data$emp.Code时，取的已经不是最初的员工编码列表，而是新拼出来的数据，这就导致后续的emp_code列取不到正确值，只能是空的。

# 先把原始的员工编码数据单独存好（替换成你实际的数据集）
original_data <- data.frame(emp.Code = c("EMP001", "EMP002", "EMP003"))

# 创建空列表存储每次接口返回的结果
result_list <- list()

for(k in 1:nrow(original_data)) {
  # 拼接请求URL
  url <- paste0("https://urlpart1", original_data$emp.Code[[k]], "&StartDate=01-01-2023&EndDate=02-28-2023")
  res <- GET(url)
  
  # 解析返回的JSON数据
  tmp <- fromJSON(rawToChar(res$content))
  
  # 添加员工编码列
  tmp$emp_code <- original_data$emp.Code[[k]]
  
  # 将当前结果存入列表
  result_list[[k]] <- as.data.frame(tmp)
}

# 将列表中的所有数据合并为一个data.frame
final_data <- do.call(rbind, result_list)

• 分离原始数据与结果数据：用original_data存最初的员工编码，循环时始终从这里取值，彻底避免循环修改数据集导致的取值错误。
• 用列表存储中间结果：相比每次循环rbind，先存列表再合并的效率更高，尤其是数据量较大时，还能避免列结构不匹配的问题。
• 循环条件更严谨：用nrow(original_data)代替length(original_data$emp.Code)，逻辑更清晰，不怕列长度与行数不一致的情况。

如果修正后仍有emp_code为空的情况，检查这两处：

• 原始的original_data$emp.Code里有没有NA值
• 接口返回的tmp是不是列表结构，转成data.frame时是否丢失数据（可以在循环中加print(tmp)查看每一步的结果）

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