dolgu sütunu NA

Question

ben artık önceki sütunun değeri ile Nas doldurmak istiyor bu

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 

gibi bir veri çerçevesi var

, bu yüzden aşağıdaki gibiyse:

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

böyle elle bunun nasıl biliyorum:

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

nasıl birçok sütunlu bir tam veri çerçeve için bu otomatik hale getirebilirsiniz?

Answer 1

Sen ile yapabilirsiniz

filltidyr den:

library(dplyr) 
library(tidyr) 

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

Sonuç:

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

Not: Temelde

, ben orijinal oryantasyon

Answer 2

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

Bu NA sütun çizgileri arasında değerleri yaymak olacaktır. Bunu istemiyorsanız, sadece döngü bildirimi içindeki dizinlerin sırasını tersine çevirin.

Answer 3

Sen apply kullanmak ancak çıkış bir matris

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 

olacağını unutmayın olabilir

Answer 4

kullanarak Başka bir seçenek geri aktarılmamıştır Önce aşağı her sütun dolu df aktarılmamıştır Reduceifelse ile:

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

zoona.locf

kullanarak

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