r - 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' 和""`复制向量 ( c("X", "Y", ""))和 'v1'。lengthreplace the

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"

---

或者另一种选择是通过'v1'复制字符串（"X Y"） ，使用'v1'，将矩阵连接（）到a ， 以拆分to 。lengthrbindcvectorscan"X Y""X", "Y"

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