如何创建具有特定格式的向量列表？

Question

我正在尝试创建一个类似于[1, 1] [1, 2] [1, 3], [2, 1] [2, 2] [2, 3], [3, 1] [3, 2] [3, 3] 的列表。我的意思是该列表包含所有向量 c(i, j) 用于从 1 到 3 的 i 和从 1 到 3 的 j。我无法这样做。我只能生成一个包含数字的数组。

my.array <- array(NA, dim = c(3, 3))
for (i in 1:3) {
  for (j in 1:3) {
    my.array[i, j] <- 5
  }
}

您能否详细说明如何实现我的目标？

Answer 1

我不完全确定您在寻找什么 - 也许是这个？

matrix(apply(expand.grid(1:3, 1:3), 1, 
             function(x) paste0("[", paste(x, collapse = ", "), "]")), nrow = 3)
#>       [,1]     [,2]     [,3]    
#> [1,] "[1, 1]" "[1, 2]" "[1, 3]"
#> [2,] "[2, 1]" "[2, 2]" "[2, 3]"
#> [3,] "[3, 1]" "[3, 2]" "[3, 3]"

还是这个？

lapply(split(expand.grid(1:3, 1:3), 1:9), function(x) as.vector(unlist(x)))
#> $`1`
#> [1] 1 1
#> 
#> $`2`
#> [1] 2 1
#> 
#> $`3`
#> [1] 3 1
#> 
#> $`4`
#> [1] 1 2
#> 
#> $`5`
#> [1] 2 2
#> 
#> $`6`
#> [1] 3 2
#> 
#> $`7`
#> [1] 1 3
#> 
#> $`8`
#> [1] 2 3
#> 
#> $`9`
#> [1] 3 3