在 R 中显示 RGB 数组的函数

Question

我正在寻找一种功能，可以将表示为 3 维数组的 RGB 图片显示到 RStudio 图形设备。例如，我读过一个 jpeg

library(jpeg)    
pic <- readJPEG(example.jpg)
str(pic)

num [1:360, 1:480, 1:3] 0.106 0.106 0.106 0.106 0.106 ...

那怎么打印到RStudioGD呢？问题是我想对这个数组做一些操作，所以我希望能够在 RStudio 中查看图片。

Answer 1

h <- dim(pic)[1]
w <- dim(pic)[2]
plot(x = c(0, h), y = c(0, w), type = "n", xlab = "", ylab = "")
rasterImage(pic, 0, 0, h, w)

Function to display RGB arrays in R