寻求RGB图像白色像素转黑色的高效矩阵元素替换方法

原代码中通过which提取像素坐标再逐一赋值的方式，在处理1800×1800这类大尺寸图像时，会因索引生成和多次赋值的开销导致效率极低，以下是几种高效的优化方案：

方案一：逻辑掩码批量赋值（基础R实现） #

直接生成匹配像素位置的逻辑矩阵，利用R的向量化特性完成批量替换，无需提取坐标索引：

# 生成逻辑掩码：判断每个像素的RGB通道是否均为255
white_mask <- img[,,1] == 255 & img[,,2] == 255 & img[,,3] == 255

# 对所有通道应用掩码，将白色像素设为0
img[white_mask, ] <- 0

white_mask是与图像尺寸匹配的二维逻辑矩阵，用它索引三维数组时，R会自动将掩码扩展到所有通道，实现一次性批量赋值，效率远高于索引定位。

方案二：基于rowSums的简化掩码赋值 #

如果保留原代码中rowSums的思路，可直接用逻辑结果赋值，跳过which的索引转换步骤：

rgbSum <- rowSums(img, dims = 2)
# 直接用逻辑向量匹配并赋值
img[rgbSum == 765, ] <- 0

rgbSum == 765等价于三个通道均为255的逻辑判断，直接用该向量作为索引，避免了which生成坐标矩阵的额外开销。

方案三：使用专业图像处理包（magick） #

对于大尺寸图像，专门的图像处理包底层采用C/C++实现，效率比基础R更优：

library(magick)

# 读取图像（替换为你的图像路径）
img <- image_read("input_image.jpg")
# 严格匹配白色（#FFFFFF）并替换为黑色
img_processed <- image_fill(img, color = "black", point = "+0+0", fuzz = 0)
# 保存处理后的图像
image_write(img_processed, "output_image.jpg")

fuzz参数设为0表示完全匹配白色，若需要允许轻微颜色偏差，可适当调高该值（单位为百分比）。

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