基于R包raynercolor批量处理真菌PNG图片并生成结果dataframe的求助

前期准备 #

首先确保安装并加载PUPMCR包：

# 若未安装包，先执行安装（若包不在CRAN，需从对应来源安装）
# install.packages("PUPMCR")
library(PUPMCR)

核心代码实现 #

以下代码针对新手设计，注释清晰，可直接修改路径后运行：

# 1. 设置你的真菌图片文件夹路径（替换为实际路径）
img_folder <- "C:/你的图片文件夹路径"

# 2. 获取文件夹中所有PNG图片的完整路径
img_paths <- list.files(
  path = img_folder,
  pattern = "\\.png$",  # 只匹配PNG文件
  full.names = TRUE,    # 返回完整路径
  ignore.case = TRUE    # 忽略大小写，匹配.PNG和.png
)

# 3. 初始化空数据框，用于存储结果
result_df <- data.frame(
  文件名 = character(),
  颜色类别 = character(),
  百分比 = numeric(),
  色调 = character(),
  色素关联 = character(),
  stringsAsFactors = FALSE
)

# 4. 循环处理每张图片
for (img_path in img_paths) {
  # 提取文件名（不含路径）
  img_name <- basename(img_path)
  
  # 尝试分析图片，避免单张图片出错中断整个循环
  tryCatch({
    # 调用raynercolor函数分析图片
    color_result <- raynercolor(img_path)
    
    # 将结果整理成数据框行，合并到总结果中
    for (i in 1:nrow(color_result)) {
      result_row <- data.frame(
        文件名 = img_name,
        颜色类别 = color_result$color[i],
        百分比 = color_result$percentage[i],
        色调 = color_result$hue[i],
        色素关联 = color_result$pigment[i],
        stringsAsFactors = FALSE
      )
      result_df <- rbind(result_df, result_row)
    }
  }, error = function(e) {
    # 打印出错的文件名和错误信息，方便排查
    message(paste("处理图片", img_name, "时出错：", e$message))
  })
}

# 5. 查看结果
print(result_df)

# 6. 将结果保存为CSV文件（可选）
write.csv(result_df, file = "真菌颜色分析结果.csv", row.names = FALSE, fileEncoding = "UTF-8")

代码说明 #

• list.files()：批量获取目标文件夹下所有PNG图片的路径，确保不会遗漏或误选其他格式文件。
• tryCatch()：处理单张图片分析时可能出现的错误（如图片损坏），保证循环能继续执行剩余图片。
• 结果整理：将每张图片的多组颜色分析结果逐行存入数据框，方便后续统计或导出。

注意事项 #

• 确保所有图片已去除背景，否则会影响颜色识别的准确性。
• 如果PUPMCR包无法通过install.packages()安装，需参考该包的官方文档获取安装方式。

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