Создание попарной диаграммы рассеяния в R с данными в 4-стороннем массиве

Question

До сих пор я пробовал несколько вещей для построения графика этой функции, однако ни одна из них не позволяет мне собирать данные с изображения. Данные хранятся в четырехстороннем массиве «im», где последний режим массива соответствует представлению цвета RGB. Я пытаюсь создать попарную диаграмму рассеяния, чтобы исследовать связь значений пикселей изображения с различными цветовыми координатами. Например, значения пикселей в красном могут быть извлечены как «im [,,, 1]». До сих пор я пытался использовать функцию pair () и получил сообщение Error: in plot.new (): слишком большие поля рисунка. Я не обязательно уверен, как правильно отобразить данные в нескольких точках рассеяния.

setwd("~/Downloads")
install.packages("imager")
library (imager)
library(graphics)
im <- load.image('Denny.jpg')
im 
plot(im)
img=(im[,,,1]+im[,,,2]+im[,,,3])/3
img= apply(apply(img,1,rev))
image(img,col=grey(0:12/12))
A=apply(im[,,1,1],1,rev)
image(A)

pairs(im[,,,1:3]


    setwd("~/Downloads")
    install.packages("imager")
    library (imager)
    library(graphics)
    im <- load.image('Denny.jpg')
    im
    plot(im)
    img=(im[,,,1]+im[,,,2]+im[,,,3])/3
    img= apply(apply(img,1,rev))
    image(img,col=grey(0:12/12))
    A=apply(im[,,1,1],1,rev)
    image(A)

    pairs(im[,,,1:3]