Smart猫小萌
辅助功能......bind.pad <- function(l, side="r", len=max(sapply(l,length))){ if (side %in% c("b", "r")) { out <- sapply(l, 'length<-', value=len) } else { out <- sapply(sapply(sapply(l, rev), 'length<-', value=len, simplify=F), rev)} if (side %in% c("r", "l")) out <- t(out) out}例子:> l <- lapply(c(3,2,1,2,3),seq)> lapply(c("t","l","b","r"), bind.pad, l=l, len=4)[[1]] [,1] [,2] [,3] [,4] [,5][1,] NA NA NA NA NA[2,] 1 NA NA NA 1[3,] 2 1 NA 1 2[4,] 3 2 1 2 3[[2]] [,1] [,2] [,3] [,4][1,] NA 1 2 3[2,] NA NA 1 2[3,] NA NA NA 1[4,] NA NA 1 2[5,] NA 1 2 3[[3]] [,1] [,2] [,3] [,4] [,5][1,] 1 1 1 1 1[2,] 2 2 NA 2 2[3,] 3 NA NA NA 3[4,] NA NA NA NA NA[[4]] [,1] [,2] [,3] [,4][1,] 1 2 3 NA[2,] 1 2 NA NA[3,] 1 NA NA NA[4,] 1 2 NA NA[5,] 1 2 3 NA