如何将IMFData下载的含列表列的data.frame转换为常规数据框？

方法一：使用tidyverse工具（推荐） #

先加载依赖包，通过unnest_longer展开嵌套列表，再提取时间和数值字段：

library(dplyr)
library(tidyr)

# 展开嵌套Obs列并提取核心数据
clean_data <- data %>%
  unnest_longer(col = Obs) %>%
  mutate(
    date = as.Date(Obs$@TIME_PERIOD),
    value = as.numeric(Obs$@OBS_VALUE)
  ) %>%
  select(-Obs) # 移除原嵌套列

方法二：Base R实现（无需额外包） #

遍历嵌套列表，手动提取字段后合并为数据框：

# 逐个处理每行的Obs列表
processed_obs <- lapply(seq(nrow(data)), function(i) {
  obs_entries <- data$Obs[[i]]
  data.frame(
    country = data$CL_AREA_WoRLD[i],
    date = as.Date(sapply(obs_entries, function(entry) entry@TIME_PERIOD)),
    value = as.numeric(sapply(obs_entries, function(entry) entry@OBS_VALUE))
  )
})

# 合并所有处理后的结果
clean_data <- do.call(rbind, processed_obs)

验证结果 #

转换完成后，用以下命令检查结构，确认是无嵌套的常规数据框：

str(clean_data)

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