2016-08-30 10 views

ответ

1

Мы создаем вектор последовательности (» v1 '), скопируйте вектор (c("X", "Y", "")) на length из' v1 'и replace the "" `с' v1 '.

v1 <- 152:334 
v2 <- rep(c("X", "Y", ""), length(v1)) 
v3 <- replace(v2, v2 == "", v1) 
head(v3, 10) 
#[1] "X" "Y" "152" "X" "Y" "153" "X" "Y" "154" "X" 
tail(v3, 10) 
# [1] "331" "X" "Y" "332" "X" "Y" "333" "X" "Y" "334" 

Или другой вариант скопировать строку ("X Y") по length из 'v1', rbind с 'v1', конкатенации (c) матрицу к vector, scan разделить на "X Y" до "X", "Y".

scan(text=c(rbind(rep("X Y", length(v1)), v1)), what = "", quiet=TRUE)