R 中的应用方法缺少参数（缺少参数错误）

Question

我正在尝试在 R 中使用 apply 方法。 但我不断收到错误消息：FUN 中的错误（newX [，i]，...）：“b”中缺少参数。

产生错误的代码：

my_data <- data.frame(x1 = 1:5, x2 = 2:6, x3 = 3)

myFunction <- function(a, b, c){
  return(a + b + c)
}

results = apply(my_data, 1, myFunction) #this line is producing the error massage

例如，如果我将“myFunction”更改为“sum”。 那么就没有错误了。 我怎样才能摆脱这个错误？

Answer 1

function 应更改为

myFunction <- function(x) sum(x)
apply(my_data, 1, myFunction)
#[1]  6  8 10 12 14

此外，使用rowSums按行求和操作更有效

rowSums(my_data)

或通过在 OP 的原始 function 中使用 lambda/匿名 function 单独指定 arguments

apply(my_data, 1, function(x) myFunction(x[1], x[2], x[3]))

Answer 2

您可以使用mapply ：

with(my_data, mapply(myFunction, x1, x2, x3))

Answer 3

另请注意，您的 data.frame 是 3 个向量的列表。 您可以像添加标量一样添加向量。

with(my_data, x1 + x2 + x3)