r - 如何在 R 中交换固定字符串和顺序字符串？

Question

如何将固定字符串与顺序字符串互换？

例如，如果我想重复字符串的模式，我会执行以下操作:

> rep(c("Filler","Model"),2)
[1] "Filler" "Model"  "Filler" "Model"  "Filler" "Model" 

但是，我想要这样的东西，我可以在每次重复迭代时自动在“模型”后面添加数字:

[1] "Filler" "Model 1" "Filler" "Model 2" "Filler" "Model 3"

有没有办法将rep()与sprintf()结合起来？

Answer 1

这是一种基本的 R 方法。我们可以访问输入向量的所有偶数元素，然后使用数字序列进行粘贴。

x <- rep(c("Filler","Model"),3)
x[c(FALSE, TRUE)] <- paste(x[c(FALSE, TRUE)], c(1:3))
x

[1] "Filler" "Model 1" "Filler" "Model 2" "Filler" "Model 3"