如何将函数应用于所有数据框变量？

Question

我想要一个带有90个变量的数据框，并且超过一百万个观察值。 我想计算每个变量上NA行的百分比。 我有以下代码：sum（is.na（dataframe $ variable）/ nrow（dataframe）* 100）我的问题是，如何才能将此函数应用于所有90个变量，而不必在代码中键入所有变量名？

Answer 1

将lapply()与您的方法一起使用：

lapply(df, function(x) sum(is.na(x))/nrow(df)*100)

Answer 2

如果你想返回一个data.frame而不是一个列表（通过lapply()或载体（通过sapply()可以使用summarise_each从dplyr包：

library(dplyr)

df %>%
  summarise_each(funs(sum(is.na(.)) / length(.)))

或者，更简洁地说：

df %>% summarise_each(funs(mean(is.na(.)))) 

数据

df <- data.frame(
  x = 1:10,
  y = 1:10,
  z = 1:10
)

df$x[c(2, 5, 7)] <- NA
df$y[c(4, 5)] <- NA