如何用R调用DataForSEO API获取Google Trends上升查询并整理为单列数据框

你的脚本能成功调用API但未提取到上升关键词，核心原因是没有深入解析API返回结果中存储上升查询的层级结构。以下是修正后的完整方案：

关键问题说明 #

DataForSEO的Google Trends Explore接口返回的上升查询（rising queries）嵌套在tasks$result$items$rising_queries路径下，默认解析整个JSON后需要主动提取这部分数据。

修正后的R脚本 #

library(httr) 
library(jsonlite)
library(dplyr) # 用于数据合并，也可以用基础R实现

# 替换为你的账号信息
username <- "YOUR_EMAIL" 
password <- "YOUR_API_PASSWORD"

# 设置请求头
headers = c(
  `Authorization` = paste('Basic', base64_enc(paste0(username,":",password))),
  `Content-Type` = 'application/json'
)

# 构造请求体（用toJSON避免手动拼接格式错误）
request_body <- toJSON(list(
  list(
    api = "keywords_data",
    function = "explore",
    se = "google_trends",
    location_code = 2840,
    category_code = 0,
    type = "web",
    time_range = "past_7_days",
    keywords = c("coffee","coffee machine","coffee shop")
  )
), auto_unbox = TRUE)

# 发送请求
res <- POST(
  url = 'https://api.dataforseo.com/v3/keywords_data/google_trends/explore/live',
  add_headers(.headers=headers),
  body = request_body
)

# 检查请求是否成功
if (res$status_code != 200) {
  stop(paste("API请求失败，状态码：", res$status_code))
}

# 解析响应
res_text <- content(res, "text")
res_json <- fromJSON(res_text, flatten = TRUE)

# 提取所有上升查询
rising_queries <- res_json$tasks$result$items %>%
  tidyr::unnest(rising_queries, keep_empty = TRUE) %>% # 展开嵌套的上升查询数据
  pull(query) # 提取查询关键词

# 转换为单列数据框
rising_queries_df <- data.frame(rising_query = rising_queries)

# 查看结果
print(rising_queries_df)

核心步骤解释 #

• 请求体优化：改用toJSON构造请求体，避免手动拼接字符串可能出现的格式错误。
• 状态码检查：先确认API请求成功，排除认证失败、参数错误等问题。
• 嵌套数据提取：用unnest展开每个关键词对应的上升查询列表，再提取query字段。
• 生成数据框：将提取到的所有上升查询合并为单列数据框。

如果仍然没有结果，需要检查：

• 账号权限是否包含Google Trends数据访问权限
• 所选location_code、time_range下是否有可用的上升查询数据
• 关键词是否在目标区域有足够的搜索热度

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