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

Question

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

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

现在，我想将 RGB 图像转换为 CIELAB 图像。 如何使用raster R package？ 我知道CRImage Bioconductor package 有一个 function 来实现这个（ convertRGBToLAB ）。 但我想使用raster R package 来实现它。

Answer 1

您可以使用convertColor() function：

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)