如何合并元tibble中嵌套的dataframe并生成带国家列的长格式表

你可以直接用tidyverse套件的unnest+pivot_longer组合完成需求，全程不需要手动循环拆分绑定，代码如下：

# 加载依赖包
library(tidyverse)

# 假设你的嵌套tibble对象名为nested_df
final_df <- nested_df %>%
  # 展开所有嵌套的子dataframe，自动关联对应国家标识
  unnest(cols = df) %>%
  # 重命名国家列匹配目标格式
  rename(country = cntry) %>%
  # 宽表转长表
  pivot_longer(
    # 指定要转成长格式的两个指标列
    cols = c(growth, external_financing),
    # 原列名存入metric列
    names_to = "metric",
    # 原数值存入score列
    values_to = "score"
  )

补充说明 #

• 如果子dataframe中还有其他不需要的字段，可以在unnest之后增加select(date, growth, external_financing, country)提前过滤需要的字段，避免转长表时带入冗余数据
• 如果不习惯管道符写法，也可以分步调用函数，逻辑完全一致

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