将不同长度的向量保存在矩阵/数据框中

我有一个称为区域的长度为 166860 的数字。它由 412 个不同的元素组成，大部分长度为 405，一些长度为 809。我有它们的开始和结束 id。

我的目标是提取它们并将它们放入具有 412 列的矩阵/数据框中

现在，我正在尝试这段代码：

m = matrix(NA,ncol=412, nrow=809)
for (j in 1:412){
temp.start = start.ids[j]
temp.end = end.ids[j]
m[,j] = area[temp.start:temp.end]
}

但我最终得到了这个错误消息：

“m[ j] = 区域[temp.start:temp.end] 中的错误： 要替换的项目数量不是替换长度的倍数”

这是一个非常简单的方法：

示例数据：

area <- c(1:4, 1:5, 1:6, 1:3)
# [1] 1 2 3 4 1 2 3 4 5 1 2 3 4 5 6 1 2 3

start.ids <- which(area == 1)
# [1]  1  5 10 16

end.ids <- c(which(area == 1)[-1] - 1, length(area))
# [1]  4  9 15 18

创建一个包含单行矩阵的列表：

mats <- mapply(function(x, y) t(area[seq(x, y)]), start.ids, end.ids)
# [[1]]
#      [,1] [,2] [,3] [,4]
# [1,]    1    2    3    4
# 
# [[2]]
#      [,1] [,2] [,3] [,4] [,5]
# [1,]    1    2    3    4    5
#
# [[3]]
#      [,1] [,2] [,3] [,4] [,5] [,6]
# [1,]    1    2    3    4    5    6
# 
# [[4]]
#      [,1] [,2] [,3]
# [1,]    1    2    3

使用功能rbind.fill.matrix来自plyr包来创建矩阵并转置它（t):

library(plyr)
m <- t(rbind.fill.matrix(mats))
#    [,1] [,2] [,3] [,4]
# 1    1    1    1    1
# 2    2    2    2    2
# 3    3    3    3    3
# 4    4    4    4   NA
# 5   NA    5    5   NA
# 6   NA   NA    6   NA