要么
x <- c("a","b","c","d","e","f") n <- 3 x[seq_len(n)+rep(0:(length(x)-n), each=n)] # [1] "a" "b" "c" "b" "c" "d" "c" "d" "e" "d" "e" "f"