还有一个很短的问题 我在R中很难将数字列表转换为具有固定行数的矩阵 数字一次放在三组(3行的块)中 元素是数字，但我只会显示我希望它们放置的位置.
例如3行
1 2 3 10 11 12
4 5 6 13 14 15
7 8 9 16 17 18
4行
1 2 3 13 14 15
4 5 6 16 17 18
7 8 9 19 20 21
10 11 12 22 23 24
3行:
1 2 3 10 11 12 19 20 21 28 29 30
4 5 6 13 14 15 22 23 24 31 32 33
7 8 9 16 17 18 25 26 27 34 35 36
谢谢！
try 了许多不同的方法和套餐，但没有成功
使用gl创建一个由1、1、1、2、2等组成的载体，最多为nr、nr、nr(其中nr是所需的行数). split将重复它到输入的长度，因此将输入按该长度拆分，并将结果列表组件rbind合并在一起.不使用任何包装.
f <- function(x, nr) do.call("rbind", split(x, gl(nr, 3)))
# tests
f(1:18, 3)
## [,1] [,2] [,3] [,4] [,5] [,6]
## 1 1 2 3 10 11 12
## 2 4 5 6 13 14 15
## 3 7 8 9 16 17 18
f(1:24, 4)
## [,1] [,2] [,3] [,4] [,5] [,6]
## 1 1 2 3 13 14 15
## 2 4 5 6 16 17 18
## 3 7 8 9 19 20 21
## 4 10 11 12 22 23 24
f(1:36, 3)
## [,1] [,2] [,3] [,4] [,5] [,6] [,7] [,8] [,9] [,10] [,11] [,12]
## 1 1 2 3 10 11 12 19 20 21 28 29 30
## 2 4 5 6 13 14 15 22 23 24 31 32 33
## 3 7 8 9 16 17 18 25 26 27 34 35 36
这种变体也有效:
f2 <- function(x, nr) t(simplify2array(split(x, gl(nr, 3))))