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

2 votes210 views2 answers
Read excel in r
R
0 vote170 views1 answer
Remove name of a column
R
0 vote188 views1 answer
How to substring in R from position
R
0 vote232 views3 answers
Read xlsx in r
R
0 vote224 views1 answer
Rename variable in r dplyr
R
0 vote211 views1 answer
Repeat sample in r
R
0 vote182 views2 answers
Animated bar chart race in r
R
0 vote182 views1 answer
How to convert categorical data to numerical data in r
R
0 vote244 views1 answer
Open xlsx with r
R
0 vote176 views1 answer
R yardstick confusion matrix
R