Как заменить NA на 0 в 20 столбцах?

Question

Я хочу заменить NA на 0 в 20 столбцах. Я нашел этот подход для 2 столбцов, однако, я думаю, это не оптимально, если количество столбцов равно 20. Есть ли альтернативное и более компактное решение?

mydata[,c("a", "c")] <- 
     apply(mydata[,c("a","c")], 2, function(x){replace(x, is.na(x), 0)}) 

ОБНОВЛЕНИЕ: Для простоты позволяет принимать эти данные с 8 столбцов и замещающих ВПЛ в столбцах B, C, E, F и D

a b c d e f g d 
1 NA NA 2 3 4 7 6 
2 g 3 NA 4 5 4 Y 
3 r 4 4 NA t 5 5 

Результат должен быть такой:

a b c d e f g d 
1 0 0 2 3 4 7 6 
2 g 3 NA 4 5 4 Y 
3 r 4 4 0 t 5 5 

Answer 1

Мы можем использовать NAer от qdap, чтобы преобразовать NA в 0. Если существует несколько столбцов, используйте цикл lapply.

library(qdap) 
nm1 <- c('b', 'c', 'e', 'f') 
mydata[nm1] <- lapply(mydata[nm1], NAer) 
mydata 
# a b c d e f g d.1 
#1 1 0 0 2 3 4 7 6 
#2 2 g 3 NA 4 5 4 Y 
#3 3 r 4 4 0 t 5 5 

---

Или с помощью dplyr

library(dplyr) 
mydata %>% 
    mutate_each_(funs(replace(., which(is.na(.)), 0)), nm1) 
# a b c d e f g d.1 
#1 1 0 0 2 3 4 7 6 
#2 2 g 3 NA 4 5 4 Y 
#3 3 r 4 4 0 t 5 5 

Answer 2

Другой вариант:

library(tidyr) 
v <- c('b', 'c', 'e', 'f') 
replace_na(df, as.list(setNames(rep(0, length(v)), v))) 

Что дает:

# a b c d e f g d.1 
#1 1 0 0 2 3 4 7 6 
#2 2 g 3 NA 4 5 4 Y 
#3 3 r 4 4 0 t 5 5