如何在不重复较短向量的元素的情况下cbind或rbind不同长度的向量？

Question

如何在不重复较短向量的元素的情况下cbind或rbind不同长度的向量？cbind(1:2, 1:10)       [,1] [,2]    [1,]    1    1    [2,]    2    2    [3,]    1    3    [4,]    2    4    [5,]    1    5    [6,]    2    6    [7,]    1    7    [8,]    2    8    [9,]    1    9   [10,]    2   10  我想要一个像下面这样的输出[,1] [,2]  [1,] 1 1  [2,] 2 2  [3,]   3  [4,]   4  [5,]   5  [6,]   6  [7,]   7  [8,]   8  [9,]   9  [10,]  10  

Answer 1

辅助功能......

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