Cbind vectors of different lengths r

x <- 1:2
y <- 1:10
n <- max(length(x), length(y))
length(x) <- n                      
length(y) <- n

Source: stackoverflow.com

Cbind vectors of different lengths r

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
}

Source: stackoverflow.com

Cbind vectors of different lengths r

> 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

Source: stackoverflow.com

Similar codes

0 vote116 views1 answer
Remove first and last character from string R
R
0 vote128 views1 answer
R df space in column name
R
2 votes140 views3 answers
Convert a datetime to date r
R
0 vote72 views1 answer
R delete na
R
0 vote116 views1 answer
Vector with real numbers R
R
1 vote115 views1 answer
Principal component analysis in r
R
0 vote121 views1 answer
How to read a vector input in r
R
0 vote120 views1 answer
Insert character into string r
R
0 vote113 views1 answer
Imputation in r
R
0 vote175 views1 answer
Factor in r
R