R语言：如何将响应列表转为含拆分列的数据框并解决报错？

报错原因解析 #

1. do.call(rbind.data.frame, my_list)报错：你的my_list元素是httr返回的Response对象，包含响应头、状态码等元数据，并非可直接合并的结构化数据，因此直接绑定会因结构不统一报错。
2. fromJSON(my_list)报错：jsonlite::fromJSON()仅接受JSON字符串、URL或文件路径作为输入，传入Response对象属于参数类型不匹配。

解决方案 #

步骤1：提取Response中的JSON数据 #

使用httr::content()从每个Response对象中提取并解析JSON内容：

library(httr)
library(jsonlite)
library(dplyr)
library(tidyr)

# 遍历列表，提取每个Response的JSON内容为R对象
parsed_list <- lapply(my_list, function(resp) {
  content(resp, as = "parsed")  # 自动解析JSON为列表/数据框
})

步骤2：转换为数据框并拆分var5 #

将解析后的列表合并为数据框，再拆分var5列：

# 合并为数据框并添加index列
final_df <- bind_rows(parsed_list, .id = "index") %>%
  # 按逗号（忽略前后空格）拆分var5为var5和var6，自动转换数值类型
  separate(var5, into = c("var5", "var6"), sep = ",\\s?", convert = TRUE) %>%
  # 将index转为整数型（可选）
  mutate(index = as.integer(index))

# 查看结果
final_df

备选解析方式（若自动解析失败） #

如果content(resp, as="parsed")无法正确解析，可先提取JSON文本再手动解析：

parsed_list <- lapply(my_list, function(resp) {
  json_str <- content(resp, as = "text")
  fromJSON(json_str)
})

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