r - apply 2 矢量图

Question

假设我有 2 个列表

divisor = c(0, 1, 1, 7, 7, 8, 8, 8, 9 )
remainder = c(99,  0,  1,  1, 99,  0,  1, 99,  0)

我想要一个除数 element 是 element + 1 如果它对应的余数不是 0。最终答案应如下所示:

updated.divisor = (1, 1, 2, 8, 8, 8, 9, 9, 9)

我如何使用 sapply 来做到这一点？

到目前为止我有

sapply(remainder, function(x) {
    if x != 0{
       #divisor = divisor + 1
    }
    else{
       #divisor = divisor + 0
    }
}

附言我可能会使用嵌套循环，但我希望能够使用 sapply 执行此操作。

Answer 1

你不需要循环:

divisor + (remainder!=0)
[1] 1 1 2 8 8 8 9 9 9

---

这是 R 最基本的原则之一:所有基本运算(和许多函数)都接受向量作为输入并同时对该向量的所有元素执行运算。