在R中如何对多个数据不同的csv文件复用同一段代码？

一、先解决当前文件定位报错 #

你遇到的路径无法识别的问题可以按以下步骤排查修复：

• 确认文件真实存在：打开c:/users/dell/desktop/analysis文件夹，核对目标文件名称、后缀是否完全匹配suburb b - deflated.csv。注意Windows默认隐藏已知文件后缀，很容易出现实际文件名为suburb b - deflated.csv.txt的情况导致匹配失败。
• 优化路径写法：R中路径支持正斜杠、双反斜杠两种写法，也可以用file.path()函数自动适配系统路径格式，避免斜杠写错：

  # 写法1：双反斜杠适配Windows规则
  read.csv("c:\\users\\dell\\desktop\\analysis\\suburb b - deflated.csv")
  # 写法2：用函数拼接路径，容错率更高
  file_path <- file.path("c:", "users", "dell", "desktop", "analysis", "suburb b - deflated.csv")
  data <- read.csv(file_path)
  

• 建议提前设置工作目录到分析文件夹，后续读写文件无需写全路径，降低出错概率：

  setwd("c:/users/dell/desktop/analysis")
  # 之后直接读文件名即可
  data <- read.csv("suburb b - deflated.csv")
  

二、实现多郊区CSV的复用处理 #

你可以把重复的处理逻辑封装成自定义函数，只需传入郊区名称即可完成全套分析，无需为每个郊区单独写脚本：

# 先加载通用依赖包，不要放在函数里重复加载
library(fpp2)
# 提前设置工作目录
setwd("c:/users/dell/desktop/analysis")

# 封装分析函数，suburb_name为郊区名字符串
analyse_suburb_sales <- function(suburb_name) {
  # 自动拼接对应csv文件名
  file_name <- paste0(suburb_name, " - deflated.csv")
  data <- read.csv(file_name)
  # 生成时间序列
  Y <- ts(data[,2], start=c(1990), end=c(2021), frequency=4)
  # 生成并返回图表，标题自动匹配郊区名
  plot <- autoplot(Y) + 
    ggtitle(paste0("Time Plot: Median House Sales Per Quarter- ", suburb_name)) + 
    ylab("Median Sale Price")
  return(plot)
}

# 调用示例：处理郊区a
analyse_suburb_sales("suburb a")
# 调用示例：处理郊区b
analyse_suburb_sales("suburb b")

如果需要批量处理所有郊区的csv，还可以自动读取目录下所有符合规则的文件批量输出结果：

# 读取analysis文件夹下所有带"- deflated.csv"后缀的文件
all_suburb_files <- list.files(pattern = "- deflated.csv$")
# 提取所有郊区名称
all_suburb_names <- gsub(" - deflated.csv", "", all_suburb_files)
# 批量生成所有郊区的分析图表
all_plots <- lapply(all_suburb_names, analyse_suburb_sales)
# 查看第1个郊区的图表
print(all_plots[[1]])

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