变异函数错误：“数值表达式具有 <n> 元素：仅第一个使用”

Question

我想在数据框中使用自定义函数，该函数将两列的值组合起来，并将其添加到数据框中的第三列。

为了添加一列，我使用了 mutate 并且它工作得很好，例如如果我总结两列左右但使用自定义函数我会收到此错误：

数值表达式有32个元素：只使用第一个

函数如下：

 SigSum <- function(x,y) {
  result <- 0
  for(i in c(0:(x-1)))
  {
    result <- result + (1/factorial(i)) * y^i
  }
  return(result)
}

作为一个例子，我用mtcars尝试了它：

> bla <- mtcars  %>% mutate(bbb = SigSum(gear, carb))
Warning message:
In 0:(x - 1) : numerical expression has 32 elements: only the first used

如果我使用例如

> bla <- mtcars  %>% mutate(bbb = gear + carb)

我没有收到警告消息。

Answer 1

您的函数包含错误。您的 for 语句不适用于向量输入。您要求的是 x 向量的循环，而不是向量 x 的长度。

如果您按以下方式更改它，它将起作用：

更新功能：

SigSum <- function(x,y) {
  result <- rep(NA, length(x))
  for(i in 1:length(x)) {
    result[i] <- 0
    for(j in 0:(x[i]-1)) {
      result[i] <- result[i] + (1/factorial(j)) * y[i]^j
    }
  } 
  return(result)
}