R 从具有不同数据结构的列表返回函数结果。（使用lappy或sapply函数）

我正在为这份名单苦苦挣扎

我有一个不同数据结构的列表，如下所示

mylist<-list(dat1=c(rep(5:9, times=2)), dat2=seq(50,120,by=6), dat3=data.frame(a=c(1:4),b=c(-1:2)))

可以使用递归lappy-rappy

可以使用递归lappy-rappy

---

也许是这样的

lapply(mylist,function(x){
  lapply(data.frame(x),function(y){
    data.frame(max=max(y),mean=mean(y))
  })
})

$dat1
$dat1$x
  max mean
1   9    7


$dat2
$dat2$x
  max mean
1 116   83


$dat3
$dat3$a
  max mean
1   4  2.5

$dat3$b
  max mean
1   2  0.5

---

也许是这样的

lapply(mylist,function(x){
  lapply(data.frame(x),function(y){
    data.frame(max=max(y),mean=mean(y))
  })
})

$dat1
$dat1$x
  max mean
1   9    7


$dat2
$dat2$x
  max mean
1 116   83


$dat3
$dat3$a
  max mean
1   4  2.5

$dat3$b
  max mean
1   2  0.5

另一种选择

library(purrr)
library(psych)
map(.x = mylist, .f = ~psych::describe(.x))

另一种选择

library(purrr)
library(psych)
map(.x = mylist, .f = ~psych::describe(.x))

---

是的，这就是我想要的。我分别复制你的代码，比如，tmp@wan必须是数据中的某些内容，是否有任何缺少的值或非数值？不，我使用上面描述的mylist。你试过密码了吗tmp@wan我明白了，你的代码和我的不一样——它改变了数据的结构，所以不再工作了。是的，这就是我想要的。我分别复制你的代码，比如，tmp@wan必须是数据中的某些内容，是否有任何缺少的值或非数值？不，我使用上面描述的mylist。你试过密码了吗tmp@wan我明白了，你的代码和我的不同——它改变了数据的结构，因此不再工作。