如何在R语言中将字符串向量与seq_len组合生成指定序列？

嘿，我懂你想要的效果啦——就是把每个字母和每个数字都配对，按数字分组排列成x1,y1,z1,x2,y2,z2,x3,y3,z3对吧？直接用paste()确实达不到预期，因为它默认是按位置一一对应拼接的，所以会得到x1,y2,z3这种不符合需求的结果。下面给你几种简单有效的解决办法：

方法一：用rep()控制重复模式（最直观） #

核心思路是让字母重复3次（对应每个数字），同时让每个数字重复3次（对应每个字母），再拼接起来：

a1 <- c("x","y","z")
nums <- seq_len(3)

# 生成目标序列
result <- paste(rep(a1, times = length(nums)), rep(nums, each = length(a1)), sep = "")

• rep(a1, times = 3)会输出：x,y,z,x,y,z,x,y,z
• rep(nums, each = 3)会输出：1,1,1,2,2,2,3,3,3
• 两者拼接后正好是你要的顺序！

方法二：用outer()生成所有组合再调整顺序 #

outer()可以直接生成字母和数字的所有组合矩阵，转置后转成向量就能得到目标顺序：

result <- c(t(outer(a1, nums, paste, sep = "")))

• outer(a1, nums, paste, sep = "")会生成一个3×3的矩阵：

  [,1] [,2] [,3]
  [1,] "x1" "x2" "x3"
  [2,] "y1" "y2" "y3"
  [3,] "z1" "z2" "z3"
  

• t()转置后矩阵变成按数字分组的结构，再用c()转成向量就完美匹配需求了。

方法三：用expand.grid()生成组合后排序 #

如果喜欢用数据框的方式处理，可以先生成所有组合，再按数字排序后拼接：

df <- expand.grid(letter = a1, num = nums)
df_sorted <- df[order(df$num), ] # 按数字排序
result <- paste(df_sorted$letter, df_sorted$num, sep = "")

运行任意一种方法，result都会是你想要的"x1" "y1" "z1" "x2" "y2" "z2" "x3" "y3" "z3"序列哦！

内容的提问来源于stack exchange，提问作者Subaru Spirit