r - R中apply语句的问题

Question

我想使用 apply 语句对 R 中数据框的每一行做一些事情。

下面是我用一堆参数和索引 i 调用函数“calc.Sphere.Metrics”的地方。我将结果存储在每一行中。

for(i in 1: dim(position.matrix)[1]){
   results.obs[i,] <- calc.Sphere.Metrics(i, culled.mutation.data, position.matrix, protein.metrics, radius) 
 }

我已经尝试了几个 apply、mapply 语句，但没有运气。这样做的正确方法是什么？

编辑:
根据要求，这是 calc.Sphere.Metrics 的骨架

calc.Sphere.Metrics <- function(index, culled.mutation.data, position.matrix, protein.metrics, radius){
  results <- matrix(data = 0, nrow = 1, ncol = 8)
  colnames(results) <- c("Line.Length","Center", "Start","End","Positions","MutsCount","P.Value", "Within.Range")
  results <- as.data.frame(results)

 ....
 look up a bunch of stuff and fill in each column of results. All the data required is in the parameters passed in and the index.  
 .....
 return(results)
}

结果的列数与 top 函数中的 results.obs 相同。希望这有帮助!

谢谢!

Answer 1

大概是这样的:

result.obs <- do.call(rbind, lapply(seq_len(dim(position_matrix)[1]),
    calc.Sphere.Metrics, culled.mutation.data, position.matrix, protein.metrics, radius))