Usuń kolumny/wiersze z brakiem x%

Question

Chcę usunąć wszystkie kolumny lub wiersze z więcej niż 50% NA s w ramce danych.

To jest moje rozwiązanie:

# delete columns with more than 50% missings 
miss <- c() 
for(i in 1:ncol(data)) { 
    if(length(which(is.na(data[,i]))) > 0.5*nrow(data)) miss <- append(miss,i) 
} 
data2 <- data[,-miss] 


# delete rows with more than 50% percent missing 
miss2 <- c() 
for(i in 1:nrow(data)) { 
    if(length(which(is.na(data[i,]))) > 0.5*ncol(data)) miss2 <- append(miss2,i) 
} 
data <- data[-miss,] 

ale szukam ładniejszy/szybszego rozwiązania.

Chciałbym również docenić dplyr rozwiązanie

Answer 1

Aby usunąć kolumny z pewną ilością NA, można użyć colMeans(is.na(...))

## Some sample data 
set.seed(0) 
dat <- matrix(1:100, 10, 10) 
dat[sample(1:100, 50)] <- NA 
dat <- data.frame(dat) 

## Remove columns with more than 50% NA 
dat[, -which(colMeans(is.na(dat)) > 0.5)] 

i podobnie dla wierszy, używając rowMeans.