如何将多个Google Trends数据框合并导出为单个Excel文件？

方法一：从数据框层面直接合并 #

如果你已经在R环境中拥有Data1、Data2、Data3这些数据框，可按以下步骤操作：

1. 添加县域标识列
   因为原始数据中没有采集县的信息，先给每个数据框添加专属标识，方便后续区分：

# 替换为实际的县名
Data1$county <- "县A"
Data2$county <- "县B"
Data3$county <- "县C"

2. 合并数据框
   由于所有数据框结构完全一致（时间范围、搜索词、列名均匹配），直接用rbind()合并：

combined_data <- rbind(Data1, Data2, Data3)

3. 导出到单个Excel文件
   使用openxlsx或writexl包完成导出，以openxlsx为例：

# 首次使用需安装包
# install.packages("openxlsx")
library(openxlsx)

write.xlsx(combined_data, file = "合并后的Google Trends数据.xlsx")

方法二：从已导出的Excel文件层面合并 #

如果已经将各数据框导出为单独的Excel文件（如Data1.xlsx、Data2.xlsx等），可按以下步骤批量合并：

1. 加载所需工具包
   需要readxl读取Excel，openxlsx导出结果：

# 首次使用需安装包
# install.packages(c("readxl", "openxlsx"))
library(readxl)
library(openxlsx)

2. 批量读取并标记数据
   先获取目标Excel文件路径，再循环读取并添加县域标识：

# 获取当前工作目录下所有匹配的Excel文件（可根据实际文件名调整匹配规则）
excel_files <- list.files(pattern = "Data.*\\.xlsx$")

# 初始化列表存储读取的数据
data_list <- list()

for (i in seq_along(excel_files)) {
  # 读取单份Excel数据
  df <- read_excel(excel_files[i])
  # 添加县域标识：可从文件名提取或手动指定
  # 示例1：从文件名提取（假设文件名为"Data1_县A.xlsx"）
  df$county <- gsub("Data\\d+_(.*)\\.xlsx", "\\1", excel_files[i])
  # 示例2：手动指定对应县名
  # df$county <- c("县A", "县B", "县C")[i]
  
  data_list[[i]] <- df
}

# 合并所有读取的数据
combined_data <- do.call(rbind, data_list)

3. 导出合并结果

write.xlsx(combined_data, file = "合并后的Google Trends数据.xlsx")

注意事项 #

• 确保所有数据框/Excel文件的列名、数据类型完全一致，否则rbind()会报错；
• 若使用gtrends包获取数据，返回的是包含多个表格的列表，需先提取interest_over_time（核心趋势数据）再合并，示例：

Data1 <- gtrends(keyword = keyword, geo = geo) %>% pluck("interest_over_time")

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