library(zoo)
library(dplyr)
# Gehele dataframe
data.frame(col1 = c(1,2,3,4,5), col2 = c("a", NA, NA , "b", NA)) %>%
do(na.locf(.))
col1 col2
1 1 a
2 2 a
3 3 a
4 4 b
5 5 b
# Specifieke kolommen
data.frame(col1 = c(1,2,3,4,5), col2 = c("a", NA, NA , "b", NA), col3 = c("A", NA, "B", NA, NA)) %>%
mutate(col2 = na.locf(col2))
col1 col2 col3
1 1 a A
2 2 a <NA>
3 3 a B
4 4 b <NA>
5 5 b <NA>