Add missing value in column with value from row above

Question

Every week I a incomplete dataset for a analysis. That looks like:

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


        

Answer 1

Here is a simpler way:

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