Rのreplace_na_ifをハッキングする最善の方法

Question

replace_na_if動詞の不一致で、すべての文字/数値/論理/ etc ...列のNAsを同じ値で体系的に置き換えるにはどうすればよいでしょうか？ここで私は今何をしています。

library(dplyr) 
starwars %>% mutate_if(is.numeric, funs(ifelse(is.na(.), 0, .))) 

あなたはあまりにもtidyr :: replace_naを使用しますが、あります」：

、BEFORE

starwars %>% 
    # islolate the columns for the post 
    select_if(is.numeric) %>% 
    filter(!complete.cases(.)) 

# A tibble: 51 x 3 
    height mass birth_year 
    <int> <dbl>  <dbl> 
1  97 32   NA 
2 180 NA   64 
3 180 110   NA 
4 150 NA   48 
5  NA NA   NA 
6 160 68   NA 
7 191 90   NA 
8 170 NA   91 
9 224 82   NA 
10 206 NA   NA 
# ... with 41 more rows 

starwars %>% 
    # isolate the columns for the post 
    select_if(is.numeric) %>% 
    filter(!complete.cases(.)) %>% 
    replace_na(as.list(
    setNames(rep(0, sum(map_chr(., class) == "numeric")), 
      colnames(.)[map_chr(., class) == "numeric"]))) 

# A tibble: 51 x 3 
    height mass birth_year 
    <int> <dbl>  <dbl> 
1  97 32   0 
2 180  0   64 
3 180 110   0 
4 150  0   48 
5  NA  0   0 
6 160 68   0 
7 191 90   0 
8 170  0   91 
9 224 82   0 
10 206  0   0 
# ... with 41 more rows 

Answer 1

後にはmutate_ifとifelseはこれを達成するために組み合わせることができますしかし、列のリストとその塗りつぶし値を提供する必要があります：

library(tidyr) 
replace_ls <- starwars %>% 
    select_if(is.numeric) %>% names() %>% 
    sapply(function(x) 0, USE.NAMES=TRUE) %>% 
    as.list() 

replace_na(starwars, replace_ls) 

Answer 2

is.naはdata.frameメソッドを持っているので、それは

starwars[is.na(starwars)] <- 0