: remplir valeur manquante avec les valeurs antérieures

Question

J'ai un dataframe qui ressemble à ceci:

d <- data.frame(county = c("Abilene", rep(NA, 5), "Cook", rep(NA, 4), "Blah", NA, "Allegheny", rep(NA, 3))) 

     county 
1 Abilene 
2  <NA> 
3  <NA> 
4  <NA> 
5  <NA> 
6  <NA> 
7  Cook 
8  <NA> 
9  <NA> 
10  <NA> 
11  <NA> 
12  Blah 
13  <NA> 
14 Allegheny 
15  <NA> 
16  <NA> 
17  <NA> 

Je veux remplir le <NA> avec la valeur du précédent nom du comté non manquant. En d'autres termes, je veux mettre fin à ceci:

county 
1  Abilene 
2  Abilene 
3  Abilene 
4  Abilene 
5  Abilene 
6  Abilene 
7  Cook 
8  Cook 
9  Cook 
10  Cook 
11  Cook 
12  Blah 
13  Blah 
14  Allegheny 
15  Allegheny 
16  Allegheny 
17  Allegheny 

Jusqu'à présent, je me suis mise en boucle sur toutes les valeurs dans d$county, la mise à jour d'une variable temporaire avec le nom de chaque valeur du comté non vide, et remplir chaque cellule. C'est très lent avec une grande base de données. Je préférerais le faire en dplyr, mais je suis ouvert à toute autre solution.

Answer 1

En utilisant tidyr nous pouvons utiliser fill(data, vars):

library(tidyr) 
fill(d, county) 

Answer 2

Nous pouvons utiliser na.locf

library(zoo) 
na.locf(d)