R 向数组中添加矩阵

databox<-matrix(1:30998*21,30998, 21)
resultemptybox <- array(rep(NA,30998*21*100), dim = c(30998, 21, 99))
resultemptybox[[1]] <- databox # I would like to add databox on the first dim of resultemptybox

resultbox1 <- array(c(databox,resultemptybox), dim = c(30998,21,100))

str(resultbox1)
List of 65095800

databox <- matrix(1:2*3,2,3)
resultemptybox <- array(rep(NA,2*3*3), dim = c(2,3,2))

 > resultbox  
, , 1
     [,1] [,2] [,3]
[1,]    3    3    3
[2,]    6    6    6

, , 2

     [,1] [,2] [,3]
[1,]   NA   NA   NA
[2,]   NA   NA   NA

, , 3

     [,1] [,2] [,3]
[1,]   NA   NA   NA
[2,]   NA   NA   NA

da <- dim(resultemptybox)
array(c(databox, resultemptybox), dim=replace(da, 3, da[3]+1))
#, , 1
#
#     [,1] [,2] [,3]
#[1,]    3    3    3
#[2,]    6    6    6
#
#, , 2
#
#     [,1] [,2] [,3]
#[1,]   NA   NA   NA
#[2,]   NA   NA   NA
#
#, , 3
#
#     [,1] [,2] [,3]
#[1,]   NA   NA   NA
#[2,]   NA   NA   NA

R相关问答推荐

在Julia中调用R函数

在R中使用GG Plot时如何 suppress 等值线图中的彩色条

更改网格的crs以匹配简单要素点对象的crs

将模拟变量乘以多个观测结果中的模拟变量

跨列应用多个摘要函数：summerise_all：列表对象无法强制为double类型'

如何修复R码的置换部分？

用黄土法确定区间

如何使用按钮切换轨迹？

提取第一个下划线和最后一个下划线之间的任何内容，例外情况除外

如何在R中描绘#符号？

在ggplot2的框图中绘制所有级别的系数

R spatstat Minkowski Sum()返回多个边界

为什么我使用geom_density的绘图不能到达x轴？

过滤名称以特定字符串开头的文件

悬崖三角洲超大型群数计算导致整数溢出

如何将这个小列表转换为数据帧？

R代码，用于在线条图下显示观测表

使用ifElse语句在ggploy中设置aes y值

当由base：：限定时，`[.factor`引发NextMethod错误

在同一单元格中创建包含整数和百分比的交叉表