如何在R语言中将TIFF图像从RGB色彩空间转换为lαβ？

推荐工具包 #

• colorspace：功能全面的色彩空间转换工具，支持直接对像素矩阵进行RGB到Lab的转换
• imager：专为图像处理设计，内置色彩空间转换函数，操作更简洁

方法一：使用colorspace包（适合精细控制数据格式的场景） #

1. 安装并加载依赖包

install.packages(c("tiff", "colorspace"))
library(tiff)
library(colorspace)

2. 读取TIFF图像并整理像素数据

# 读取TIFF图像，返回三维数组（高度×宽度×RGB通道）
HCC1 <- readTIFF("你的图像文件路径.tiff")
# 将三维数组转换为每行对应一个像素的RGB矩阵（格式要求：每行是R/G/B三元组，值在[0,1]区间）
rgb_pixels <- t(as.matrix(aperm(HCC1, c(3, 1, 2))))

3. 执行RGB到Lab的转换

# 从sRGB色彩空间转换到Lab，scale.in=1表示输入值范围是[0,1]
lab_pixels <- convertColor(rgb_pixels, from = "sRGB", to = "Lab", scale.in = 1)
# 将Lab像素矩阵转回三维数组格式（匹配原图像的高度×宽度×Lab通道结构）
HCC1_lab <- aperm(t(lab_pixels), c(2, 3, 1))

方法二：使用imager包（适合快速图像处理） #

1. 安装并加载包

install.packages("imager")
library(imager)

2. 读取图像并直接转换色彩空间

# 读取TIFF图像
img <- load.image("你的图像文件路径.tiff")
# 一键转换为Lab色彩空间
img_lab <- convertColorSpace(img, from = "RGB", to = "Lab")
# 可选：可视化转换后的图像
plot(img_lab)

关于schemr包的问题说明 #

你之前使用的schemr::rgb_to_lab函数是针对单个颜色通道的数值进行转换，而非基于RGB三元组的完整像素转换，因此会为红、绿、蓝通道分别生成独立的Lab表，这不符合图像色彩空间转换的需求——正确的转换应该是每个像素的RGB组合对应唯一的Lab三元组。

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