如何在R中分别写入多CSV文件？含排序与插值处理

1. 加载依赖包 #

library(tidyverse)
library(zoo)
# 用于自然排序，未安装先运行 install.packages("gtools")
library(gtools)

2. 读取并合并CSV文件（解决排序混乱） #

默认list.files返回的文件名是字典序（会出现A1→A10→A2的错误顺序），用mixedsort实现符合直觉的自然排序：

# 设置数据路径
data_path <- "D:/Data file"

# 获取所有CSV文件路径并自然排序
csv_files <- list.files(data_path, pattern = "\\.csv$", full.names = TRUE) %>%
  mixedsort()

# 批量读取并合并为单个数据框
combined_df <- map_dfr(csv_files, read_csv)

如果不想额外安装gtools，也可以用tidyverse原生方法处理排序：

csv_files <- list.files(data_path, pattern = "\\.csv$", full.names = TRUE) %>%
  tibble(file_path = .) %>%
  # 从文件名提取Station标识（假设文件名格式如"A1_data.csv"）
  mutate(station = str_extract(basename(file_path), "^[A-Z]\\d+")) %>%
  # 先按字母排序，再按数字部分转数值排序
  arrange(str_extract(station, "^[A-Z]"), as.numeric(str_extract(station, "\\d+"))) %>%
  pull(file_path)

3. 对PAHs列按站点插值处理 #

必须先按Station分组，确保每个站点内独立插值，避免跨站点的无效计算：

processed_df <- combined_df %>%
  group_by(Station) %>%
  mutate(PAHs = na.approx(PAHs, na.rm = FALSE)) %>%
  ungroup()

4. 按Station分组保存为独立CSV文件 #

# 创建结果保存文件夹（可选，避免原文件夹混乱）
output_path <- file.path(data_path, "Processed_Data")
dir.create(output_path, showWarnings = FALSE)

# 遍历每个Station分组，保存为单独的CSV
processed_df %>%
  group_by(Station) %>%
  group_walk(~ write_csv(.x, file.path(output_path, paste0(.y$Station, "_processed.csv"))))

关键说明 #

• 自然排序逻辑：字符串默认排序会把"A10"排在"A2"前，因为"1"的ASCII码小于"2"；转成自然排序后，会先比较字母，再把数字部分转成数值比较，得到A1→A2→A10的正确顺序。
• 分组插值的必要性：插值是针对同一站点的序列数据进行的，跨站点插值会破坏数据逻辑，导致结果错误。
• 分组保存技巧：group_walk专门用于对分组数据执行保存、绘图这类不需要返回值的操作，语法简洁且避免冗余。

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