基于特定单元格字符串批量分类Excel工作簿的R语言实现问题

问题根源 #

1. for循环无返回值：R的for循环默认不会自动收集迭代结果，需要手动创建容器存储，所以之前的Check_single_core返回NULL。
2. tibble提取方式错误：read_excel返回的是tibble对象，用j[4,4]得到的是1行1列的子tibble，而非单个文本值，导致无法正确判断是否等于"System setting"。

正确实现步骤 #

1. 读取所有Excel的Setup工作表 #

保持原读取逻辑，也可改用更直观的写法：

library(readxl)

# 获取当前文件夹下所有xlsx文件
file_list <- list.files(pattern = "*.xlsx")

# 读取每个文件的Setup工作表，存储为带文件名的列表
setup_sheets <- sapply(file_list, function(file) {
  read_excel(file, sheet = "Setup")
}, simplify = FALSE, USE.NAMES = TRUE)

2. 编写核心分类函数 #

针对每个工作表，提取对应单元格的单个值并判断配置类型：

classify_core_type <- function(df) {
  # 用[[ ]]直接提取单元格的单个文本值
  cell_4_4 <- df[[4, 4]]
  cell_4_6 <- df[[4, 6]]
  cell_4_9 <- df[[4, 9]]
  
  if (!is.na(cell_4_4) && cell_4_4 == "System setting") {
    return("单核配置")
  } else if (!is.na(cell_4_6) && cell_4_6 == "System setting") {
    return("双核配置")
  } else if (!is.na(cell_4_9) && cell_4_9 == "System setting") {
    return("三核配置")
  } else {
    return("未识别配置")
  }
}

3. 批量分类并整理结果 #

批量处理所有工作表，将结果整理为易读的数据框：

# 对所有工作表执行分类
core_results <- lapply(setup_sheets, classify_core_type)

# 转换为数据框，关联文件名和分类结果
classification_table <- data.frame(
  文件名 = names(core_results),
  核心配置 = unlist(core_results),
  stringsAsFactors = FALSE
)

# 查看完整分类结果
print(classification_table)

# 按需筛选特定分类的文件，比如提取所有单核配置文件
single_core_files <- classification_table$文件名[classification_table$核心配置 == "单核配置"]

关键说明 #

• 用df[[row, col]]替代df[row, col]：前者直接提取tibble中指定位置的单个值，后者返回子tibble，无法直接用于字符串判断。
• 增加!is.na()判断：避免因单元格为空导致的错误判断。
• 最终结果整理为数据框，方便后续筛选、导出等操作。

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