Rリピート一つだけの要素と変更その他の要素

Question

私はこれを必要とする：

"X","Y",151,"X","Y",152,"X","Y",153,"X","Y",154,....."X","Y",334 

しかし、私はこれだけ取得することができます：「（

names<-c("X","Y",seq(152,334,by=1)) 
#"X","Y",151,152,153,154....334 

おかげ

Answer 1

私たちは、シーケンスのベクトルを作成しますv1 '）、が' v1 '、replace the' 'が' v1 'で、ベクター（c("X", "Y", "")）を複製します。

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"を分割するscan、vectorに（c）行列を、 'V1' のlengthによって文字列（"X Y"）を複製V1 '' がrbind、連結であります"X", "Y"。

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