从光栅中提取每个RGB层并粘贴到R中的矩阵中

我想将光栅图像存储到空矩阵中。我加载我的图像并创建一个相同维度的空矩阵

setwd("C:/Users/Desktop/image/")
img_path <- "image.jpeg"
raster <- brick(img_path, package="raster")
nrow <- dim(raster)[1]
ncol <- dim(raster)[2]
img_matrix <- matrix(, nrow = nrow, ncol = ncol)
dim(raster)
[1]  896 1408    3
dim(img_matrix)
[1]  896 1408

setwd（“C:/Users/Desktop/image/”）
img_path对于类
光栅
对象，有一种
as.array
方法

library(raster)
raster <- brick("3.jpg", package="raster")
dim(raster)
#[1] 665 800   3

array <- as.array(raster)
dim(array)
#[1] 665 800   3

array[201:205,401:405,1]
#     [,1] [,2] [,3] [,4] [,5]
#[1,]  244  244  244  244  244
#[2,]  244  244  244  244  244
#[3,]  244  244  244  244  244
#[4,]  244  244  244  244  244
#[5,]  244  244  244  244  244

array[201:205,401:405,2]
#     [,1] [,2] [,3] [,4] [,5]
#[1,]  202  202  202  202  202
#[2,]  202  202  202  202  202
#[3,]  202  202  202  202  202
#[4,]  202  202  202  202  202
#[5,]  202  202  202  202  202

库（光栅）
好的，太好了。我可以对每一层都这样做：我确实可以。下一步，在一个有重叠的循环中输入这个
library(raster)
raster <- brick("3.jpg", package="raster")
dim(raster)
#[1] 665 800   3

array <- as.array(raster)
dim(array)
#[1] 665 800   3

array[201:205,401:405,1]
#     [,1] [,2] [,3] [,4] [,5]
#[1,]  244  244  244  244  244
#[2,]  244  244  244  244  244
#[3,]  244  244  244  244  244
#[4,]  244  244  244  244  244
#[5,]  244  244  244  244  244

array[201:205,401:405,2]
#     [,1] [,2] [,3] [,4] [,5]
#[1,]  202  202  202  202  202
#[2,]  202  202  202  202  202
#[3,]  202  202  202  202  202
#[4,]  202  202  202  202  202
#[5,]  202  202  202  202  202