wypełnienia kolumny z poprzedniej kolumny jeśli NA

Question

Mam ramki danych jak ten

df <- data.frame(v1 = 10:14, v2 = c(NA, 1, NA, 3, 6), v3 = c(1, NA, NA, 9, 4)) 

    v1 v2 v3 
1 10 NA 1 
2 11 1 NA 
3 12 NA NA 
4 13 3 9 
5 14 6 4 

Teraz chcę, aby wypełnić NAS z wartością poprzedniej kolumnie, więc wygląda to tak:

v1 v2 v3 
1 10 10 1 
2 11 1 1 
3 12 12 12 
4 13 3 9 
5 14 6 4 

wiem jak to zrobić ręcznie, tak:

df$v2 <- ifelse(is.na(df$v2), df$v1, df$v2) 

Jak mogę zautomatyzować to dla pełnej ramki danych z wielu kolumn?

Answer 1

Można to zrobić z fill z tidyr:

library(dplyr) 
library(tidyr) 

data.frame(t(df)) %>% 
    fill(., names(.)) %>% 
    t() 

Wynik:

v1 v2 v3 
X1 10 10 1 
X2 11 1 1 
X3 12 12 12 
X4 13 3 9 
X5 14 6 4 

Uwaga:

Zasadniczo transponowane df wypełnione każdą kolumnę w dół, a następnie transponowane go z powrotem do pierwotnej orientacji

Answer 2

for (i in 2:ncol(df)) 
    df[,i] = ifelse(is.na(df[,i]), df[,i-1],df[,i]) 

Spowoduje to propagację wartości w poprzek kolumn NA. Jeśli tego nie chcesz, po prostu odwróć kolejność indeksów w deklaracji pętli for.

Answer 3

Można użyć apply jednak pamiętać, że wyjście będzie macierzą

t(apply(df, 1, function(x){ 
    replace(x, is.na(x), x[cumsum(!is.na(x))][is.na(x)]) 
})) 
#  v1 v2 v3 
#[1,] 10 10 1 
#[2,] 11 1 1 
#[3,] 12 12 12 
#[4,] 13 3 9 
#[5,] 14 6 4 

Answer 4

Inną opcją korzystania Reduce z ifelse:

df[] <- Reduce(function(x, y) ifelse(is.na(y), x, y), df, accumulate = TRUE) 

df 
# v1 v2 v3 
#1 10 10 1 
#2 11 1 1 
#3 12 12 12 
#4 13 3 9 
#5 14 6 4 

Answer 5

Korzystając zoona.locf

data.frame(t(apply(df,1,function(x) na.locf(x)))) 
    v1 v2 v3 
1 10 10 1 
2 11 1 1 
3 12 12 12 
4 13 3 9 
5 14 6 4