循环调用世界银行WITS的SDMX格式API接口并合并数据至R DataFrame的问题排查

我来帮你搞定这个循环无数据的问题！你的单请求逻辑完全没问题，但循环里藏着几个容易踩的坑，咱们一步步来解决：

核心问题分析 #

1. 缺少错误捕获机制：如果某个国家的请求返回错误（比如无数据、代码无效），readSDMX会直接抛出错误中断循环，或者返回空的SDMX对象，最终导致合并后的数据框为空。
2. 循环中rbind的隐患：每次rbind都会重新创建数据框，不仅效率低，还会在某次返回空表时打乱后续合并逻辑。
3. 部分国家无对应数据：比如乌克兰（ukr）2000年的AHS-WGHTD-AVRG指标可能没有记录，返回空结果拖垮了整个合并流程。

修改后的可运行代码 #

我们用错误捕获+列表存储的方式来规避这些问题，同时添加进度提示方便排查：

# 加载所需包
library(RCurl)
library(XML)
# 确保rsdmx是最新版本
devtools::install_github("opensdmx/rsdmx")
library(rsdmx)
library(rvest)

# 指定要遍历的报告国列表
reporters <- c("aus", "usa", "ukr")
# 创建空列表存储每个国家的有效数据
data_list <- list()

# 循环处理每个报告国
for(i in reporters){
  cat("正在处理报告国：", i, "\n") # 打印进度，定位问题节点
  
  # 拼接请求URL
  myUrl <- paste0("http://wits.worldbank.org/API/V1/SDMX/V21/datasource/tradestats-tariff/reporter/", 
                  i,"/year/2000/partner/all/product/all/indicator/AHS-WGHTD-AVRG")
  
  # 用tryCatch捕获错误，避免循环中断
  tryCatch({
    dataset <- readSDMX(myUrl)
    stats <- as.data.frame(dataset)
    
    # 仅当获取到有效数据时，才加入列表
    if(nrow(stats) > 0){
      data_list[[i]] <- stats
      cat(i, "处理完成，获取到", nrow(stats), "行数据\n")
    } else {
      cat(i, "无有效数据记录\n")
    }
  }, error = function(e){
    cat("处理", i, "时出错：", e$message, "\n")
  })
}

# 合并所有有效数据
df <- do.call(rbind, data_list)

# 查看最终结果
dim(df)
head(df)

额外排查建议 #

1. 验证国家代码有效性：可以手动把国家代码替换到请求URL里，在浏览器中打开查看是否返回有效XML数据，确认WITS平台认可该代码。
2. 检查数据可用性：部分国家在2000年可能没有AHS-WGHTD-AVRG指标的数据，你可以尝试更换年份（比如2010）或者其他指标测试。
3. 确认rsdmx版本：旧版本的rsdmx可能对SDMX格式解析有兼容问题，确保安装的是最新版。

内容的提问来源于stack exchange，提问作者Chris T.