Question

我有一个包含4个数据框的列表：

> names(listofdf) [1] "q12014local" "q12014national" "q22014local" "q22014national"

所有数据框都具有相同的变量名称。我想创建一个新的数据框，按变量和数据框计算NA的数量。结果输出应如下所示：

               v1    v2    v3    v4    v5    v6    v7
q12014local    328   278   1786  0     0     12    1
q12014national  0    100   124   0     0     7     0
q22014local     0    0     0     0     0     289   0
q22014national  423  0     10    10    78    0     0

这是一个可重复的例子：

> df1 <- data.frame(v1 = c(1:5), v2 = c("apple", "pear", NA, "peaches", NA), v3 = c("sunday", "monday", NA, NA, NA))

> df2 <- data.frame(v1 = c(2, 7, NA, NA, "9"), v2 = c("plum", NA, "kiwi", NA, "jackfruit"), v3 = c(NA, NA, "saturday", NA, "wednesday"))

> df3 <- data.frame(v1 = c(12, NA, NA, NA, 8), v2 = c("pineapple", "guava", "lytchee", NA, NA), v3 = c("tuesday", "thursday", "friday", NA, "monday"))

> listofdf <- list(df1, df2, df3)

到目前为止，我一直在使用lapply(listofdf, function(x) table(is.na(x[, 15])))来检查列表中每个数据框的NA，这很麻烦！

Answer 1

在显示的示例中，NAs是字符串。

 names(listofdf) <- c("q12014local" , "q12014national", "q22014local")
 as.data.frame(t(sapply(listofdf, function(x) colSums(x=='NA'))))
 #                v1 v2 v3
 #q12014local     0  2  3
 #q12014national  2  2  3
 #q22014local     3  2  1

真实NAs

 t(sapply(listofdf, function(x) colSums(is.na(x))))

对于列表中的多个数据帧，通过变量为NA计数数据帧

1 个答案: