我想在r语言里实现。先读取文件夹名词中的患者编号，然后找到csv表格里的该患者，然后保留这一行的患者信息。给我一个代码

在R语言中，你可以使用`list.files()`来读取文件夹中的文件名，`read.csv()`来读取CSV文件，然后通过患者编号匹配数据。以下是一个基本的示例代码，假设你有一个名为"patients"的文件夹，并且每个患者的详细信息在一个单独的CSV文件中，每列的第一行为标签（包括"patient_id"）：

# 设置工作目录到包含CSV文件的文件夹
setwd("path/to/patients")

# 获取文件夹中的所有CSV文件名字
file_names <- list.files(pattern = "*.csv", full.names = TRUE)

# 创建一个空的数据框来存储结果
all_data <- data.frame()

# 遍历每个文件
for (filename in file_names) {
  # 读取当前CSV文件
  current_data <- read.csv(filename, stringsAsFactors = FALSE)
  
  # 查找与给定患者编号匹配的行
  patient_id <- "your_patient_id"  # 替换为你要查找的实际患者ID
  matching_row <- which(current_data$patient_id == patient_id, arr.ind = TRUE)

  # 如果找到了匹配的行，添加到结果数据框中
  if (!is.null(matching_row)) {
    all_data <- rbind(all_data, current_data[matching_row,])
  }
}

# 检查是否有数据被添加，如果没有，则说明未找到匹配的患者
if (nrow(all_data) == 0) {
  message("No match found for the given patient ID.")
} else {
  all_data
}