如何在RStudio中将多份导入的房屋销售Excel文件合并为单一长文件？

核心结论 #

完全可以在R中完成合并，而且比先在Excel合并再导入更高效、可控——尤其是你后续还要做分析，全程在R中处理能避免手动操作的误差，还能保留可重复的工作流。

具体实现步骤 #

1. 加载必要工具包 #

需要用到readxl读取Excel文件，dplyr做数据操作，purrr批量处理文件：

# 首次使用先安装包
install.packages(c("readxl", "dplyr", "purrr", "stringr"))
# 加载包
library(readxl)
library(dplyr)
library(purrr)
library(stringr)

2. 批量读取并合并文件 #

假设你的5份Excel文件都放在当前工作目录，文件名类似北京房屋销售.xlsx、上海房屋销售.xlsx（能从文件名区分地区）：

# 获取所有Excel文件的完整路径
file_paths <- list.files(pattern = "\\.xlsx$", full.names = TRUE)

# 从文件名提取地区名称（根据你的实际文件名调整匹配规则）
region_names <- str_remove(basename(file_paths), "房屋销售\\.xlsx$")

# 批量读取文件，给每份数据添加「地区」列，再合并成一个长数据框
combined_data <- map2_dfr(file_paths, region_names, function(file, region) {
  read_excel(file) %>%
    mutate(地区 = region, .before = 1)  # 把地区列放在最前面，方便查看
})

3. 处理文件结构不一致的情况 #

如果不同文件的列名、列顺序不一致，先统一列名再合并：
比如某份文件的「销售额」列叫「销售金额」，可以在读取时重命名：

combined_data <- map2_dfr(file_paths, region_names, function(file, region) {
  read_excel(file) %>%
    rename(销售额 = 销售金额) %>%  # 统一列名
    mutate(地区 = region)
})

为什么推荐在R中合并？ #

• 避免手动复制粘贴的错误，尤其是数据量较大时
• 代码可重复：以后新增地区文件，只需重新运行代码即可
• 合并后直接衔接后续分析（比如按地区分组统计月度销售、找年度最佳月份），不用切换工具

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