Agregue el valor que falta en la columna con el valor de la fila de arriba

Question

Cada semana, un conjunto de datos incompletos para un análisis. Parece que:

df1 <- data.frame(var1 = c("a","","","b",""), 
      var2 = c("x","y","z","x","z")) 

Faltan algunos valores var1. El conjunto de datos debe terminar pareciéndose a esto:

df2 <- data.frame(var1 = c("a","a","a","b","b"), 
      var2 = c("x","y","z","x","z")) 

Actualmente uso de una macro de Excel para hacer esto. Pero esto hace que sea más difícil automatizar el análisis. A partir de ahora me gustaría hacer esto en R. Pero no tengo idea de cómo hacer esto.

Gracias por su ayuda.

PREGUNTA ACTUALIZACIÓN Después del comentario

var2 no es relevante para mi pregunta. Lo único que intento es. Obtener de df1 a df2.

df1 <- data.frame(var1 = c("a","","","b","")) 
df2 <- data.frame(var1 = c("a","a","a","b","b")) 

Answer 1

Aquí es una forma de hacerlo es mediante el uso de RLE (rle) y su inversa rle.inverse:

fillTheBlanks <- function(x, missing=""){ 
    rle <- rle(as.character(x)) 
    empty <- which(rle$value==missing) 
    rle$values[empty] <- rle$value[empty-1] 
    inverse.rle(rle) 
} 

df1$var1 <- fillTheBlanks(df1$var1) 

Los resultados:

df1 

    var1 var2 
1 a x 
2 a y 
3 a z 
4 b x 
5 b z 

Answer 2

Aquí es una manera más simple:

library(zoo) 
df1$var1[df1$var1 == ""] <- NA 
df1$var1 <- na.locf(df1$var1) 

Answer 3

Aquí es otra forma que es ligeramente más corto y no obliga al personaje:

Fill <- function(x,missing="") 
{ 
    Log <- x != missing 
    y <- x[Log] 
    y[cumsum(Log)] 
} 

Resultados:

# For factor: 
Fill(df1$var1) 
[1] a a a b b 
Levels: a b 

# For character: 
Fill(as.character(df1$var1)) 
[1] "a" "a" "a" "b" "b"