は

Question

が想定ルールに基づいて、R 3つのベクトルの長さを等化Iは、不等長（が以下のコードを参照）である3つのベクターx、y、及びzを有します。私は最後のメンバー短いベクトルの（ここxとy）は、彼らが等しくない長さのものであるときは常に3つのベクトルが常に同じ長さになるように繰り返すことを持っている可能性がどのように

を不思議でしたか？

例えば、2がxであり、"hi"がyで3回繰り返されることがある。

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

Answer 1

あなたのベクトルは、このよう（つまり、ルール）異なっている場合あなたが言うので：

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