You can also do this with the tidyr::fill
.
library('tidyverse')
df <- tribble(
~DoW, ~Value,
'Mon', 1234,
'Tue', NA,
'Wed', 5678,
'Thu', 9123,
'Fri', 4567,
'Sat', 8912,
'Sun', 3456
)
fill(df, Value)
# # A tibble: 7 x 2
# DoW Value
# <chr> <dbl>
# 1 Mon 1234
# 2 Tue 1234
# 3 Wed 5678
# 4 Thu 9123
# 5 Fri 4567
# 6 Sat 8912
# 7 Sun 3456