Найти имена столбцов, которые содержат отсутствующие значения

Question

Я хочу найти все имена столбцов с NA или отсутствующие данные и сохранить имена этих столбцов в векторе. Это моя последняя попытка:

a <- c(1,2,3,4,5,NA,7,8,9,10,NA,12,13,14,NA,16,17,18,19,20) 
cnames <- c("aa", "bb","cc","dd","ee") 
mymatrix <- matrix(a, nrow=4, ncol=5, byrow=TRUE,) 
colnames(mymatrix) <- cnames 
bad <- character() 
for (j in 1:4){  
    tmp <- which(colnames(mymatrix[j,])%in%c("","NA")) 
    bad <- tmp 
} 

я получаю integer(0) как мой, когда я вывод жду «аа», «Й». Любая помощь приветствуется.

Answer 1

Нравится?

colnames(mymatrix)[colSums(is.na(mymatrix)) > 0] 
# [1] "aa" "ee" 

Answer 2

R 3,1 представил anyNA функцию, которая удобнее и быстрее:

colnames(mymatrix)[ apply(mymatrix, 2, anyNA) ] 

Старый ответ:

Если это очень длинная матрица, apply + any может вызвать короткое замыкание и запустить немного быстрее.

apply(is.na(mymatrix), 2, any) 
# aa bb cc dd ee 
# TRUE FALSE FALSE FALSE TRUE 
colnames(mymatrix)[apply(is.na(mymatrix), 2, any)] 
# [1] "aa" "ee" 

Answer 3

Если у вас есть фрейм данных с нечисловых столбцов, это решение является более общим (на основе предыдущих ответов):

R 3,1 +

names(which(sapply(mymatrix, anyNA)))

или

names(which(sapply(mymatrix, function(x) any(is.na(x)))))