# YCbCrへの変換

library(imager)

# 元の画像
im.rgb <- boats

# RGBからYCbCrに変換
im.ycbcr <- RGBtoYCbCr(im.rgb)

# [0,1]に規格化してY,Cb,Crを分割
il.ycbcr <- imsplit(im.ycbcr / 255, "c")

layout(t(1 : 4))
plot(im.rgb, main = "元の画像")
plot(il.ycbcr[[1]], rescale = FALSE, main = "Y")
plot(il.ycbcr[[2]], rescale = FALSE, main = "Cb")
plot(il.ycbcr[[3]], rescale = FALSE, main = "Cr")
layout(1)