将函数应用于向量中的每个第n个元素

Question

我在R中有一个向量:

> v <- c(5, 10, 15, 20, 25, 30, 35, 40, 45, 50)

我想将一个函数应用于向量的每个第n个元素,并让它返回新的向量.例如,假设我想将向量的每个第三个元素乘以2.然后我会得到

> v
[1] 5 10 30 20 25 60 35 40 90 50

我设法使用向量逻辑提取元素:

> v[c(rep(FALSE,2),TRUE)]
[1] 15 30 45

意思是我已经找到了如何访问元素,我能够对他们做的事情,但我不知道如何让他们回到我原来的矢量v.

Answer 1

我们需要分配

v[c(FALSE, FALSE, TRUE)] <- v[c(FALSE, FALSE, TRUE)]*2

Answer 2

另一种选择是使用seq.您指定n的意愿,并seq会在启动顺序n,通过n直到你的矢量结束(length(v)).

n <- 3
v[seq(n, length(v), n)] <- v[seq(n, length(v), n)]*2

> v
 [1]  5 10 30 20 25 60 35 40 90 50

Answer 3

解决方案ifelse:

ifelse(1:length(v) %% 3 == 0, v * 2, v)
# [1]  5 10 30 20 25 60 35 40 90 50