13

我想从 apply() 函数返回多个值并将它们放在 R 中的单独列中，但我不断收到错误。我想做的是：

experiments$result1, experiments$result2, experiments$result3 <- apply(experiments, 1, 
function(row)
  #Some analysis here
  #return x, y, and z for column result1, result2, and result3
  x, y, z
)

也许这是解决问题的错误方法。实验是一个包含多列数据的数据框。我想附加列，这些列是每一行的分析结果，但我不知道如何在没有循环的情况下做到这一点，这对于 R 来说不是惯用的。提前感谢您的帮助。

所以这里有一些更准确的代码。

experiments$result1, experiments$result2, experiments$result3 <- apply(experiments, 1, function(row)
  x <- row["startingTemp"]*2
  y <- row["startingTemp"]*3
  z <- row["startingTemp"]*4
  return (list(x, y, z))
)

“startingTemp”字段是我的“实验”数据框中的列之一。我收到“闭包”类型不是子集且找不到对象“z”的错误。

4

2 回答 2

13

如果您要返回的三个值可以放入一个向量中（即它们不是某种复杂类型，如统计测试或拟合模型的结果），只需返回该向量apply并将其绑定到一个 3xN 矩阵。

experiments$result <- apply(experiments, 1, function(row){
  x <- row["startingTemp"]*2
  y <- row["startingTemp"]*3
  z <- row["startingTemp"]*4
  c(x, y, z)
})
experiments$result1 <- experiments$result[1,]
experiments$result2 <- experiments$result[2,]
experiments$result3 <- experiments$result[3,]

如果您的三个返回值是复杂类型（或不是标量），则将它们作为列表返回（如 Alan 建议的那样）并使用lapply/提取它们sapply。

experiment$result1 <- lapply(experiment$result, "[[", 1)
于 2012-09-06T14:59:08.383 回答
3

试试return(list(x=x,y=y,z=z))。对于每个实验，您返回一个包含 3 个值的列表。

编辑

该函数为每个实验返回一个列表。

results <- apply(exp,1,function(x) return(list(x=x,y=x*2,z=x*3))) #results is a list of lists`
experiment$res1 <- unlist(results)[attr(unlist(results),"names")=="x"]
experiment$res2 <- unlist(results)[attr(unlist(results),"names")=="y"]
experiment$res3 <- unlist(results)[attr(unlist(results),"names")=="z"]
于 2012-09-06T12:56:01.937 回答