R 从矩阵列表创建光栅_R_Loops_For Loop_Matrix_Raster

R 从矩阵列表创建光栅

r loops for-loop matrix

R 从矩阵列表创建光栅,r,loops,for-loop,matrix,raster,R,Loops,For Loop,Matrix,Raster,我想从下面的列表中创建三个光栅 y <- matrix(1:300,100,3) n <- c(1,2,3) rep = 200 valuematrix <- vector("list",ncol(y)) for (i in 1:ncol(y)) { newmatrix <- replicate(rep,y[,i]) valuematrix[[i]] <- newmatrix } y我们可以在“列表”中继续创建graster，如

我想从下面的列表中创建三个光栅

y <- matrix(1:300,100,3)
n <- c(1,2,3)
rep = 200

valuematrix <- vector("list",ncol(y))

for (i in 1:ncol(y)) {
        newmatrix <- replicate(rep,y[,i])
        valuematrix[[i]] <- newmatrix
}

y我们可以在“列表”中继续创建graster
，如果需要，我们可以使用setNames

 lst <- setNames(lapply(valuematrix, raster), paste0('raster',1:3))

您可以将其保存在列表setNames（lappy（valuematrix，function（x）graster（x）），paste0（“graster'，1:3））中，而不必在全局环境中使用不同的对象。非常感谢。那很好用。
 lst <- setNames(lapply(valuematrix, raster), paste0('raster',1:3))

 stack(lst)