5

我有一个函数，我正在使用 mapply 在数据帧或矩阵 (df) 列表中应用该函数。该函数根据原始数据帧的一些转换标准输出四种不同类型的数据帧（例如a：d），但我遇到了问题，因为函数只会让我输出一个。我试图将它们整理成一个列表，但是当我运行一个简化的函数时，我得到了这个。

df1<-matrix(rnorm(10), nrow=10, ncol=10)
df2<-df1
df<-list(df1, df2)

func<-function (x) {
  a<-x*1
  b<-x*2
  c<-x*3
  d<-x*4
  return(list(a,b,c,d))
}

finalresult<-mapply(func, x=df)

str(finalresult)

List of 8
 $ : num [1:10, 1:10] -3.211 -0.121 -0.2 0.491 1.118 ...
 $ : num [1:10, 1:10] -6.422 -0.242 -0.4 0.982 2.235 ...
 $ : num [1:10, 1:10] -9.633 -0.362 -0.6 1.473 3.353 ...
 $ : num [1:10, 1:10] -12.844 -0.483 -0.8 1.964 4.471 ...
 $ : num [1:10, 1:10] -3.211 -0.121 -0.2 0.491 1.118 ...
 $ : num [1:10, 1:10] -6.422 -0.242 -0.4 0.982 2.235 ...
 $ : num [1:10, 1:10] -9.633 -0.362 -0.6 1.473 3.353 ...
 $ : num [1:10, 1:10] -12.844 -0.483 -0.8 1.964 4.471 ...
 - attr(*, "dim")= int [1:2] 4 2

在这种情况下，您可以看到它只是给了我来自 df1 的四个输出数据帧 (a:d) 的列表，然后立即附加来自 df2 的下一组输出。我想要一个输出，其中每个数据框转换都放在一个列表中，我可以按类别访问它（例如 finalresults$a）。任何帮助将不胜感激！

谢谢，-切尔西

4

2 回答 2

5

怎么样：

使用mapply但不要简化。

result1 <- mapply(func, x=df, SIMPLIFY=FALSE)

遍历索引（假设结果中的两个列表长度相同）；对于每个索引i，用于lapply拉出i每个列表中的第 th 个元素result1。

 result2 <- lapply(seq_along(result1[[1]]),
              function(i) lapply(result1,"[[",i))

我尝试进一步缩短/混淆它（即消除定义匿名函数的需要），但是对于嵌套lapply的 s 我不太清楚如何使它工作。

于 2014-01-12T05:17:14.253 回答
1

这是一个提供您想要的解决方案。它基本上命名您的列表返回，然后按名称聚合。

df1<-matrix(rnorm(10), nrow=10, ncol=10)
df2<-df1
df<-list(df1, df2)
namesToReferTo = letters[1:4]
func<-function (x) {
  a<-x*1; b<-x*2; c<-x*3; d<-x*4
  retList = list(a,b,c,d)
  names(retList)=namesToReferTo
  return(retList)
}
finalresult = lapply(namesToReferTo, function(y) { lapply(lapply(df,func), function(x) { x[[y]] }) } )
# alternatively: finalresult = lapply(namesToReferTo, function(y) { Map(function(x) { return(x[[y]])} , lapply(df,func)) } )
names(finalresult) = namesToReferTo
str(finalresult)
finalresult$b
于 2014-01-12T04:24:39.827 回答