如何在R中通过循环批量提取UN Comtrade API数据并合并多年份结果

实现方案说明 #

完全可以用循环实现你的需求，for循环是当前场景最优的选择，repeat循环一般用于迭代次数不明确、需要根据运行状态判断是否终止的场景，你需要固定拉取2000-2020年共21个年份的数据，用for循环逻辑更清晰、代码更简洁，不会有多余的判断逻辑，运行效率和repeat一致但可维护性高很多。

基础for循环实现（新手友好） #

你只需要先定义要拉取的年份范围，用列表存储每一年的返回结果，最后统一合并即可，代码如下：

# 1. 定义需要拉取的年份范围
years <- 2000:2020
# 2. 初始化空列表存储每年的数据，避免动态扩容的性能损耗
comtrade_data <- list()

# 3. 循环拉取每年数据
for (y in years) {
  # 调用UN Comtrade接口，仅ps参数替换为当前循环的年份
  dt <- get.Comtrade(r="all", p="0", ps=as.character(y), 
                     rg=2, cc="0,1,24,25,5,54,63,64,67,69,71,72,73,74,75,76,764", fmt="csv")
  # 转换为数据框后存入列表
  comtrade_data[[as.character(y)]] <- as.data.frame(do.call(rbind, dt))
  # 打印进度，方便你掌握拉取状态
  cat("已完成", y, "年数据拉取\n")
  # 可选：增加1秒延时，避免调用频率过高被接口限制
  Sys.sleep(1)
}

# 4. 一次性合并所有年份的数据为全量数据框
final_data <- as.data.frame(do.call(rbind, comtrade_data))

优化版本（增加错误处理） #

API调用可能因为网络波动、接口限流等原因失败，你可以增加错误捕获逻辑，避免单年份调用失败中断整个循环：

years <- 2000:2020
comtrade_data <- list()

for (y in years) {
  tryCatch({
    dt <- get.Comtrade(r="all", p="0", ps=as.character(y), 
                       rg=2, cc="0,1,24,25,5,54,63,64,67,69,71,72,73,74,75,76,764", fmt="csv")
    comtrade_data[[as.character(y)]] <- as.data.frame(do.call(rbind, dt))
    cat("已完成", y, "年数据拉取\n")
  }, error = function(e) {
    # 报错时打印错误信息，不中断后续年份拉取
    cat(y, "年数据拉取失败，错误信息：", e$message, "\n")
  })
  Sys.sleep(1)
}

# 合并数据
final_data <- as.data.frame(do.call(rbind, comtrade_data))

更简洁的向量化写法（熟悉R语法后推荐） #

如果你后续熟悉了R的向量化操作，可以用purrr包的map_df函数直接一步完成拉取+合并，代码更简洁：

library(purrr)

final_data <- map_df(2000:2020, function(y) {
  dt <- get.Comtrade(r="all", p="0", ps=as.character(y), 
                     rg=2, cc="0,1,24,25,5,54,63,64,67,69,71,72,73,74,75,76,764", fmt="csv")
  as.data.frame(do.call(rbind, dt))
})

操作示例图如下：

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