R 向向量的每个元素添加序列

我有一个向量，如下所示

x <- c(1,32,60,86,115,142,171,198)

---

x您可以使用
saaply
在
x
的每个元素上循环，生成一个
seq
数字序列，并将它们与
c

c(sapply(x, function(x) seq(x, x+2)))

# [1]   1   2   3  32  33  34  60  61  62  86  87  88 115 116 117 142 143 144 171 172 173 
#       198 199 200

我们可以使用矢量化的
rep

rep(x, each = 3) + 0:2
#[1]   1   2   3  32  33  34  60  61  62  86  87  88 115 116 117 142 143
#[18] 144 171 172 173 198 199 200