r - 如何使用 R 中的光栅包将 RGB 图像转换为 CIELAB？

Question

我已经使用以下代码读取了 RGB 图像

library(raster)
#Load an image
logo <- stack(system.file("external/rlogo.grd", package="raster"))
plot(logo)

现在，我想将 RGB 图像转换为 CIELAB 图像。如何使用rasterR 包做到这一点？我知道CRImageBioconductor 包有一个功能来实现这个（convertRGBToLAB）。但我想使用rasterR 包来实现它。

Answer 1

您可以使用以下convertColor()功能：

library(raster)
logo <- stack(system.file("external/rlogo.grd", package="raster"))
plot(logo)

new_vals <- values(logo) / 255
new_vals <- convertColor(new_vals, from = "sRGB", to = "Lab")
values(logo) <- new_vals
plot(logo)