在数据帧列表中使用lapply和匿名函数

Question

在数据帧的列表listdf中，我希望确定每个数据帧中列集中的平均值、最大值、最小值、stdv以及列集中的数或行数(值数)：

mean <- lapply(listdf, function(x) {mean(x$Concentration, na.rm = F)})
max <- lapply(listdf, function(x) {max(x$Concentration, na.rm = F)})
min <- lapply(listdf, function(x) {min(x$Concentration, na.rm = F)})
sd <- lapply(listdf, function(x) {sd(x$Concentration, na.rm = F)})
nbr <- lapply(listdf, function(x) {nrow(x$Concentration, na.rm = F)})

但是，nrow不适用于lapply和函数。我怎么修改它呢？

另外，是否可以添加(通过lapply和函数或tibble )？listdf的第六个分析列表告诉我们，listdf中被拒绝的数据帧的数量是"NA“？我之所以知道这一点，是因为我在listdf中选择了所有没有拒绝值的数据帧，但我希望在脚本中添加此步骤以进行进一步分析。

nbr_rejected <- lapply(listdf, ??? "NA") 

(nbr_rejected="NA")

Answer 1

您可以使用length

a <- list(mtcars, mtcars)
lapply(a, function(x) {length(x$hp[!is.na(x$hp)])})

编辑您的第二个问题：

a <- list(mtcars, mtcars)
lapply(a, function(x) {data.frame(value = matrix(NA, nrow(x), 1))})