用以下行中的字符替换缺少的字符值使用R

Question

我有一个带有<NA>的字符列，我想用行下面的字符替换它。下面是一个例子：

df12 <- 
    structure(
    list(Reg = structure(c(NA, 1L, 1L, NA, 1L, 1L, NA, 2L, 2L, NA, 2L, 2L, NA, 2L, 2L) 
         , .Label = c("A", "B"), class = "factor")), 
    .Names = "Reg", row.names = c(NA, -15L), class = "data.frame") 

df12 
Reg 
1 <NA> 
2  A 
3  A 
4 <NA> 
5  A 
6  A 
7 <NA> 
8  B 
9  B 
10 <NA> 
11 B 
12 B 
13 <NA> 
14 B 
15 B 

library(dplyr) 

所需的输出

1  A 
2  A 
3  A 
4  A 
5  A 
6  A 
7  B 
8  B 
9  B 
10 B 
11 B 
12 B 
13 B 
14 B 
15 B 

Answer 1

我们可以通过使用na.locf更快指定.direction

library(dplyr) 
library(tidyr) 
df12 %>% 
    fill(Reg, .direction = "up") 

Answer 2

另一种选择使用fill，严格设计的灌装失踪最新的无缺失值：

zoo::na.locf(df12,fromLast=TRUE) 

# Reg 
# 1 A 
# 2 A 
# 3 A 
# 4 A 
# 5 A 
# 6 A 
# 7 B 
# 8 B 
# 9 B 
# 10 B 
# 11 B 
# 12 B 
# 13 B 
# 14 B 
# 15 B