R语言如何将for循环输出的dataframe嵌套存入现有dataframe

R的dataframe原生支持列表类型列，每一行可以独立存储任意R对象（包括gtrends()返回的嵌套列表结构），该返回结构参考下图：

你原来的写法问题是没有绑定循环值对应的行位置，会导致整列被最后一次查询结果覆盖。不要用姓名做匹配条件，避免重名导致赋值错位，直接按行索引遍历是最稳妥的方案。

写法1：基础for循环实现 #

首先先初始化存储结果的列表列，再逐行查询赋值，建议加上错误捕获和请求延时，避免单次查询失败导致整个循环崩溃，同时降低被Google Trends限流的概率：

# 提前初始化结果列，类型为列表，长度和数据框行数一致
df$gtrends_res <- vector("list", nrow(df))

# 按行号遍历，不要直接遍历姓名值
for (idx in seq_len(nrow(df))) {
  user <- df$name_google[idx]
  tryCatch({
    # 注意：固定对比关键词obama如果是字符串要加引号，除非你提前在环境中定义了obama变量存储搜索词
    res <- gtrends(c("obama", user), geo = "US", time = "all")
    df$gtrends_res[[idx]] <- res
    # 每次请求间隔1秒，避免触发频率限制
    Sys.sleep(1)
  }, error = function(e) {
    # 查询失败时当前行存NA，后续可单独补采
    df$gtrends_res[[idx]] <<- NA
    message(paste0("查询用户【", user, "】失败，已跳过"))
  })
}

写法2：purrr函数式写法（更简洁） #

如果习惯用tidyverse语法，用purrr::map()可以省去手动管理索引的步骤，逻辑更清晰：

library(tidyverse) # 包含dplyr和purrr

df <- df |> 
  mutate(
    gtrends_res = map(name_google, ~{
      tryCatch({
        res <- gtrends(c("obama", .x), geo = "US", time = "all")
        Sys.sleep(1)
        res
      }, error = function(e) NA)
    })
  )

取数方式 #

存完之后的取数逻辑和你单独跑gtrends()的返回结果完全一致，比如要取第3位议员的时间序列趋势数据，直接用：
df$gtrends_res[[3]]$interest_over_time
要取对应地域分布数据就用df$gtrends_res[[3]]$interest_by_region，和截图里的列表结构完全对应。

批量提取提示：如果需要一次性拉取所有议员的某一部分数据（比如所有人的interest_over_time），可以直接用map_dfr(df$gtrends_res, ~.x$interest_over_time, .id = "row_id")把所有行的对应子dataframe合并成一张大表。

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