如何让 lapply 输出从函数获得的 2 个对象

Question

我正在尝试 lapply 列表上的函数。因为我的函数打算输出 2 个对象，所以我运行遇到了问题。对于列表中的每个项目，运行该函数仅输出第二个对象的结果。

这是一个大大简化的示例。

test<-function(x){
  a<-x+4
  b<-x/34
}
list<-c(3,4,5,6,6)
lapply(list,test)

# Outputs b:
[[1]]
[1] 0.08823529

[[2]]
[1] 0.1176471

[[3]]
[1] 0.1470588

[[4]]
[1] 0.1764706

[[5]]
[1] 0.1764706

如何获得同时输出a和b的函数？

Answer 1

该函数只返回它应该返回的最后一行。尝试：

test<-function(x){
a<-x+4
b<-x/34
return(c(a,b))
}
list<-c(3,4,5,6,6)
lapply(list,test)

如何让 lapply 输出从函数获得的 2 个对象

How to get lapply to output 2 objects obtained from a function

r

function

lapply