R 语言经典实例（原书第 2 版）

366

｜

第

12

章

v[seq_along(v) %% n == 0]

12.7.3 讨论

这个问题出现在系统采样中：我们想通过选择每隔

n

个元素的值来采样数据集。函数

seq_along(v) 生成可以索引 v 的整数序列，它相当于 1:length(v)。我们通过以

下表达式进行每个索引值模

n

的运算：

v <- rnorm(10)

n <- 2

seq_along(v) %% n

#> [1] 1 0 1 0 1 0 1 0 1 0

然后找到等于零的索引值：

seq_along(v) %% n == 0

#> [1] FALSE TRUE FALSE TRUE FALSE TRUE FALSE TRUE FALSE TRUE

结果是一个逻辑向量，长度与 v 相同，并且每隔

n

个元素为 TRUE，可以用它来索引 v

从而选择所需的元素：

v

#> [1] 2.325 0.524 0.971 0.377 -0.996 -0.597 0.165 -2.928 -0.848 0.799

v[ seq_along(v) %% n == 0 ]

#> [1] 0.524 0.377 -0.597 -2.928 0.799

如果你只是想获得每隔两个元素的值，可以调用循环规则。用一个二元素逻辑向量来索

引 v，如下所示：

v[c(FALSE, TRUE)]

#> [1] 0.524 0.377 -0.597 -2.928 0.799

如果 v 有两个以上的元素，则索引向量太短。因此，R 将调用循环规则并将索引向量扩

展到 v 的长度，循环它的内容。这给出了一个索引向量，它是 ...