NAを他の列の最大ファクタカウントで置き換えます。

Question

Okeyは、dplyrカンニングシートで何時間も見つめた後、ついにここで私の質問を諦めています。

私はこの形式でデータを持っている：

ID Material Supplier 
1  a   01 
2  b   02 
3  NA   01 
4  NA   02 
4  a   02 
4  b   02 

は今、私は業者によってグループ化された最も一般的な材料でNASに置き換えたいです。私はこのコードを使って最も一般的なマテリアルを数え、データフレームにカウントを入れますが、同時に置換を行いたいのです。事前に

b <- a[which(!is.na(a$material)),] %>% 
       group_by(supplier, material) %>% 
       summarise(n = n()) %>% 
       group_by(supplier) %>% 
       filter(n == max(n)) 

おかげで...

Answer 1

あなたはdplyr関数内tableを使用してそれを行うことができます：

a %>% 
group_by(Supplier) %>% 
mutate(Material=ifelse(is.na(Material),names(sort(table(Material),dec=T))[1],Material)) 

これが返されます。

ID Material Supplier 
    <int> <chr> <int> 
1  1  a  1 
2  2  b  2 
3  3  a  1 
4  4  b  2 
5  4  a  2 
6  4  b  2