R如何存储不规则数组

4

在这里,我需要构建一个嵌套数组来存储数据,以下是代码:

a<-list()  
b=1 
for(i in 1:5){
 b+1
 a[i]<-array(0,c(b,1))
}

您可以看到,我想要做的是将不同维度的数组(以0为例)保存到a中。

您能否帮助我创建一个锯齿状的数组/列表/矩阵,来存储不同维度的数组呢?

谢谢!


你的意思是 b <- b+1 吗?在你的代码中,b+1 没有任何作用。此外,你应该使用 [[ 而不是 [ 来索引列表。如果这不能解答你的问题,请解释一下你期望的输出应该是什么... - Justin
@Justin,我明白了,我需要使用[[,而不是[。非常感谢!! - Weijia
1个回答

0

要创建不规则数组,也称为锯齿状数组,以下是一个使用列表函数和使用x [1]进行索引的示例:

x = list(a=c(1,2,3,4),b=c(-1,-3,-4),c=c(23,45,23,45,25,48),d=c(2,1))
stk = stack(x)
ustk= unstack(stk)
identical(ustk,x)
[1] TRUE
> x
$a
[1] 1 2 3 4

$b
[1] -1 -3 -4

$c
[1] 23 45 23 45 24 48

$d
[1] 2 1

> x[1]
$a
[1] 1 2 3 4

> x[2]
$b
[1] -1 -3 -4

其他方法:

# empty list to start with
X <- list()
# we get a vector
v1 <- c(1, 2, 3, 4, 5)
# add it to the ragged array
X <- c(X, list(v1))
# get another couple of vectors and add them as well
v2 <- c(9, 8, 7, 6)
v3 <- c(2, 4, 6, 8)
X <- c(X, list(v2, v3))

# add some more elements to the first vector in 
# the vector directly
X[[1]] <- c(X[[1]], 4, 3, 2, 1)

对于创建的锯齿矩阵,这是一个例子:
x = c(3,2,5)
struct = lapply(x, function(i){ 
    sapply(1:i, function(k){
        c(rep(NA, k-1),exp( - (0:(i-k))))
    })
})
> x
[1] 3 2 5
> struct
[[1]]
          [,1]      [,2] [,3]
[1,] 1.0000000        NA   NA
[2,] 0.3678794 1.0000000   NA
[3,] 0.1353353 0.3678794    1

[[2]]
          [,1] [,2]
[1,] 1.0000000   NA
[2,] 0.3678794    1

[[3]]
           [,1]       [,2]      [,3]      [,4] [,5]
[1,] 1.00000000         NA        NA        NA   NA
[2,] 0.36787944 1.00000000        NA        NA   NA
[3,] 0.13533528 0.36787944 1.0000000        NA   NA
[4,] 0.04978707 0.13533528 0.3678794 1.0000000   NA
[5,] 0.01831564 0.04978707 0.1353353 0.3678794    1

网页内容由stack overflow 提供, 点击上面的
可以查看英文原文,
原文链接