r语言 - 如何在向量中的每个值周围添加数字序列

Question

我有一个数字向量：

vec <- c(50, 75, 100, 125, 150, 200, 250, 300, 350, 400, 450, 475, 500, 550, 600, 650, 700, 750, 800, 850, 900, 950, 1000)

我想在每个值下面添加 10 个数字。 例如，对于 50，您将添加 40 到 49 和 51 到 60。

任何帮助非常感谢！

Answer 1

使用sapply：

c(sapply(vec, `+`, -10:10))

如果数字重叠，您可能希望将unique添加到上述输出中以仅获取唯一值。

Answer 2

我们可以使用base R中的outer

c(outer(-10:10, vec, `+`))