序列生成

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'))