写一个r语言代码，批量提取excel某几个字符串所在行，并按照不同字符串写入新的excel

假设我们要从一个Excel文件中提取包含特定字符串的行，并将它们写入不同的Excel文件中。我们可以使用R中的`readxl`和`write.xlsx`包来实现这个任务。下面是一个示例代码：

library(readxl)
library(openxlsx)

# 读取Excel文件
data <- read_excel("path/to/excel/file.xlsx")

# 定义要查找的字符串
strings_to_find <- c("string1", "string2", "string3")

# 创建一个空的列表来存储每个字符串匹配的行
matched_rows <- vector("list", length(strings_to_find))

# 循环遍历每个字符串
for (i in 1:length(strings_to_find)) {
  # 查找包含当前字符串的行
  matched_rows[[i]] <- which(grepl(strings_to_find[i], data$column_name))
  
  # 将这些行写入新的Excel文件中
  write.xlsx(data[matched_rows[[i]], ], 
             file = paste0("path/to/output/file_", strings_to_find[i], ".xlsx"), 
             row.names = FALSE)
}

这个代码假设我们要查找的字符串存储在Excel文件的某一列中，这里我们使用`column_name`替换为该列的名称。我们也可以使用`col_index`代替列名称，例如`data[, col_index]`。请注意，这个代码需要将`readxl`和`openxlsx`包安装到您的R环境中。