序列生成

Question

我很不好意思问这个简单的问题，但我无法弄清楚。

我有一个变量，

names <- c("M1", "K2L", "C2L", "N", "R_1_2", "CLA", "T123") # the real dataset has > 6000 valriables 

我想要双重命名并添加字母“a”和“b”，输出（也考虑顺序）将如下所示：

M1a, M1b, K2La, K2Lb, C2La, C2Lb, Na, Nb, R_1_2a, R_1_2b, CLAa, CLAb, T123a, T123b 

感谢您的帮助：

Answer 1

将 rep 与 each 参数一起使用可重复每个名称。然后使用paste将它们与后缀组合起来。

paste(rep(names, each = 2), c("a", "b"), sep = "")

让我们以慢动作再看一遍：

suffixes <- c("a", "b")  # or letters[1:2] if you're feeling fancy
n_suffixes <- length(suffixes)
repeated_names <- rep(names, each = n_suffixes)
final_names <- paste(repeated_names, suffixes, sep = "")

---

使用外部产品的花式替代版本：

as.vector(t(outer(names, suffixes, paste, sep = "")))

虽然我认为这更多是为了炫耀，因为它的可读性较差。

Answer 2

使用 stringr 包的另一种解决方案

library(stringr)
str_c(rep(names, each = 2), c('a', 'b'))