R - 填充空变量

Question

给定:

v1 <- c(1,NA,1,NA,NA)  
v2 <- c(NA,NA,1,NA,1)   
df <- data.frame(rbind(v1, v2))

R> df
X1 X2 X3 X4 X5    
1  NA  1 NA NA   
NA NA  1 NA  1

如何填写1之间的'NA'？

使它看起来像这样:

X1 X2 X3 X4 X5   
1  1  1  NA NA 
NA NA 1  1  1

Answer 1

我们可以通过使用 apply 和 MARGIN=1 循环遍历行来完成此操作。找到第一个和最后一个非 NA 元素的索引，并用第一个非 NA 元素更改其间的元素，转置输出并将其分配回数据集。

df[] <- t(apply(df, 1, function(x) {
         st <- range(which(!is.na(x)))
          x[st[1]:st[2]] <- x[st[1]]
          x}))