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
4
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
}
Thank you!
1
0
4.14
6
x <- 1:2
y <- 1:10
n <- max(length(x), length(y))
length(x) <- n
length(y) <- n
Thank you!
6
0
Are there any code examples left?
New code examples in category R
-
R 2022-03-27 14:00:12 R total line text file
-
R 2022-03-27 13:40:24 reduce ggtitle size
-
R 2022-03-23 02:05:30 r merge inner join
-
R 2022-03-21 19:20:02 combine columns in r
-
R 2022-03-16 11:05:16 ggplot box plot without outliers poins
-
R 2022-03-13 03:05:04 calculated defualt values in R function parameters
-
R 2022-03-12 21:55:01 r rename columns
-
R 2022-03-08 02:25:18 r - transform as factor
-
R 2022-03-06 02:50:06 create a dataframe with column names in r