imager包可以帮助解决这个问题！

1.为演示准备数据

require( tidyr )
require( imager )

# example data from `imager` package
dat <- boats
# plot( boats )

# tall
dat_original <- as.data.frame( dat )
head( dat_original )
#  x y cc  value
#1 1 1  1 0.3882
#2 2 1  1 0.3859
#3 3 1  1 0.3849
#4 4 1  1 0.3852
#5 5 1  1 0.3860
#6 6 1  1 0.3856

dat_wide <- pivot_wider( dat_original, names_from = 'cc', values_from = 'value' )
head( dat_wide )
# A tibble: 6 × 5
#      x     y   `1`   `2`   `3`
#  <int> <int> <dbl> <dbl> <dbl>
#1     1     1 0.388 0.388 0.388
#2     2     1 0.386 0.386 0.386
#3     3     1 0.385 0.385 0.385
#4     4     1 0.385 0.385 0.385
#5     5     1 0.386 0.386 0.386
#6     6     1 0.386 0.386 0.386

2.演示

（您需要将数据从M2 d、M3 d调整为五列宽，使其看起来像这样）：
例如，您可以用途：
第一次

然后让数据变高

dat_tall <- pivot_longer(
    YOUR_DATA
  , cols= c( 'R','G','B' )
  , names_to = 'cc'
  , values_to = 'value'
)
head(dat_tall)
## A tibble: 6 × 4
#      x     y cc    value
#  <int> <int> <chr> <dbl>
#1     1     1 1     0.388
#2     1     1 2     0.388
#3     1     1 3     0.388
#4     2     1 1     0.386
#5     2     1 2     0.386
#6     2     1 3     0.386

并修复列“cc”（它必须是整数，而不是字符）

dat_tall$cc %<>% as.integer
## A tibble: 6 × 4
#      x     y    cc value
#  <int> <int> <int> <dbl>
#1     1     1     1 0.388
#2     1     1     2 0.388
#3     1     1     3 0.388
#4     2     1     1 0.386
#5     2     1     2 0.386
#6     2     1     3 0.386

最后，制作一个图像

image_data <- dat_tall
as.cimg( image_data ) %>% plot