Удалить столбцы/строки с большим количеством x% отсутствующих

Question

Я хочу удалить все столбцы или строки с более чем 50% NA s в фрейме данных.

Это мое решение:

# 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,] 

, но я ищу красивее/быстрее решения.

Я хотел бы также оценить dplyr решение

Answer 1

Чтобы удалить столбцы с некоторым количеством NA, вы можете использовать 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)] 

и аналогично для строк, используя rowMeans.