请帮我整理一个完整的代码用R进行文件夹下excel表格的批量筛选

在R中，你可以使用`list.files()`获取指定目录下的所有Excel文件，然后对每个文件进行读取、筛选并保存。以下是一个简单的示例，假设你想基于某一列的内容进行筛选：

# 首先安装并加载需要的库
install.packages(c("readxl", "tidyverse"))  # 如果还未安装
library(readxl)  # 读取Excel文件
library(tidyverse)  # 数据操作

# 定义要搜索的目录路径和筛选条件
dir_path <- "path/to/your/directory"  # 替换为你需要搜索的文件夹路径
column_name <- "your_column_name"  # 替换为你要筛选的列名
value_to_match <- "your_value"  # 替换为你要匹配的值

# 获取该目录下的所有Excel文件
file_list <- list.files(dir_path, pattern = "*.xlsx", full.names = TRUE)

# 对每个文件进行筛选并保存
for (file in file_list) {
  # 读取Excel文件
  data <- read_excel(file)
  
  # 筛选行（例如，如果列名为'your_column_name'且值等于'value_to_match'）
  filtered_data <- data %>%
    filter({{column_name}} == value_to_match)
    
  # 保存筛选后的数据
  output_file <- str_replace_all(file, ".xlsx", "_filtered.xlsx")
  write_excel(filtered_data, output_file)
  
  # 显示进度信息
  cat(paste("处理文件:", basename(file), "\n"))
}

# 结束后显示完成的消息
cat("所有文件处理完毕。\n")