Remplir les valeurs catégorielles manquantes en utilisant dplyr group_by

Question

J'ai un cadre de données incomplet, et je veux remplir les valeurs manquantes pour correspondre au groupe.

incomplete_table <- 
    tibble(id = c(1,1,2,2,3,3,3), 
     value = c("a",NA,"b","b","c","d", NA)) 

# # A tibble: 7 x 2 
#  id value 
# <dbl> <chr> 
# 1  1  a 
# 2  1 <NA> 
# 3  2  b 
# 4  2  b 
# 5  3  c 
# 6  3  d 
# 7  3 <NA> 

Avec des valeurs numériques que je peux utiliser quelque chose comme ceci:

complete_table <- incomplete_table %>% 
    group_by(id) %>% 
    mutate(value = max(value)) 

Comment puis-je remplir des valeurs catégorielles d'une manière similaire, en utilisant dplyr? Ceci est le résultat que je veux:

# # A tibble: 7 x 2 
#  id value 
# <dbl> <chr> 
# 1  1  a 
# 2  1  a 
# 3  2  b 
# 4  2  b 
# 5  3  c 
# 6  3  d 
# 7  3 <NA> 

Answer 1

Vous pouvez coalesce la colonne valeur avec la valeur unique si toutes les valeurs sont les mêmes (n_distinct == 1) autrement NA, qui laissera la colonne comme il est:

incomplete_table %>% 
    group_by(id) %>% 
    mutate(value = coalesce(value, if (n_distinct(na.omit(value)) == 1) na.omit(value)[1] else NA_character_)) 

# A tibble: 7 x 2 
# Groups: id [3] 
#  id value 
# <dbl> <chr> 
#1  1  a 
#2  1  a 
#3  2  b 
#4  2  b 
#5  3  c 
#6  3  d 
#7  3 <NA>