在數據幀列表中使用 lapply 和匿名 function

Question

在數據幀listdf列表中，我想確定每個數據幀中濃度列的平均值、最大值、最小值、標准差和行數（值的數量）：

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和 function。 我該如何修改它？

此外，是否可以（通過lapply和 function 或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))})