die Länge von 3 Vektoren in R Equalizing auf einem regelbasierten

Question

Angenommen, ich habe den 3 Vektoren x, y und z, die von ungleicher Länge ist (siehe Code unten).

Ich habe mich gefragt, wie ich das letzte Mitglied der kürzeren Vektoren (hier x und y) werden wiederholt, so haben könnte, dass die drei Vektoren immer gleich lang werden, wenn sie ungleich lang sind?

Zum Beispiel wird in dem Beispiel unten 2 in x 2 mal wiederholt werden, und in "hi"y 3 Mal wiederholt werden.

x = c(1, 2) ; y = c("hi") ; z = c(1, 2, 3, 4) 

Answer 1

Da Sie sagen, wenn Ihre Vektoren unterschiedlich sind (das heißt, Regel), auf diese Weise:

is.df <- function(...) length(unique(lengths(list(...)))) != 1 
    cr <- function(...) c(x, rep(rev(x)[1], max(lengths(list(...))) - length(x))) 

x = c(1, 2) ; y = c("hi") ; z = c(1, 2, 3, 4) 

if(is.df(x, y, z)){ x = cr(x, y, z) ; y = cr(y, x, z) ; z = cr(z, x, y) } 

# x 
# [1] 1 2 2 2 

# y 
# [1] "hi" "hi" "hi" "hi" 

# z 
# [1] 1 2 3 4 

Answer 2

foo = function(...){ 
    ml = list(...) 
    L = max(lengths(ml)) 
    lapply(ml, function(x) c(x, rep(tail(x, 1), L - length(x)))) 
} 
foo(x, y, z) 
#[[1]] 
#[1] 1 2 2 2 

#[[2]] 
#[1] "hi" "hi" "hi" "hi" 

#[[3]] 
#[1] 1 2 3 4