R语言中如何创建指定的自定义序列？

你附上的目标序列截图如下：

你可以根据你需要的序列规律选择对应的实现方式，以下是不同场景下的常用方案：

• 如果你要生成数值n重复n次的递增序列，直接使用R内置的rep()函数即可，这是生成重复序列最基础也最高效的方法，刚好匹配你截图中的序列规律：

# 示例：生成1到5每个数字重复对应出现次数的序列
target_seq <- rep(1:5, times = 1:5)
# 查看输出结果
print(target_seq)

运行后输出结果为：[1] 1 2 2 3 3 3 4 4 4 4 5 5 5 5 5

• 如果你要生成先递增后递减的对称序列，直接拼接两段递增/递减序列即可：

# 示例：生成1到5再回退到1的对称序列
sym_seq <- c(1:5, 4:1)
print(sym_seq)

运行后输出结果为：[1] 1 2 3 4 5 4 3 2 1

• 如果你要生成固定步长的等差序列，使用seq()函数实现：

# 示例：生成从1到10、步长为2的奇数序列
step_seq <- seq(from = 1, to = 10, by = 2)
print(step_seq)

运行后输出结果为：[1] 1 3 5 7 9

• 如果你的序列有特殊递推规则，可以通过循环自定义生成：

# 示例：生成首项为1、后一项是前一项2倍加1的递推序列
custom_seq <- numeric(4)
custom_seq[1] <- 1
for (i in 2:4) {
  custom_seq[i] <- custom_seq[i-1] * 2 + 1
}
print(custom_seq)

运行后输出结果为：[1] 1 3 7 15

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