Question

我正在尝试为列表disp中的所有 250个数据帧计算名为lst的变量的平均值。

for(i in 1:250){
lst[[i]] <- sample_n(mtcars, 25, replace = TRUE)

}

我可以在第一个数据帧中以disp的形式访问lst[[1]][["disp"]]，但是如何使用sapply来计算250个样本中每个disp的平均值？

Answer 1

使用tidyverse：

library(tidyverse)

     lst%>%
       map("disp")%>%
       map_dbl(mean)

      [1] 254.552 257.404 256.164 214.312 227.660 237.824 221.176 221.648 236.804 232.252 212.948 227.620 242.904
     [14] 271.348 251.412 196.428 207.600 257.244 211.756 220.416 248.980 234.524 275.780 220.720 189.656 230.968

R：如何在深层嵌套列表中使用函数？

1 个答案: