Ersetzen NA Spalten mit Median in R

Question

Ich halte Fehler mit den Codes erhalten, die richtig wäre?

Answer 1

Die erste ist korrekt, aber in der Regel möchten Sie nicht for Schleifen in R. Verwenden Sie apply.

Antwort

v <- runif(10000) 
v[sample(1000,120)] <- NA 
mydata <- as.data.frame(matrix(v,10,100)) 

for (i in 1:ncol(mydata)){ 
    mydata[is.na(mydata[,i]), i] <- median(mydata[,1], na.rm = TRUE) 
} 

Bewerben Lösung

v <- runif(10000) 
v[sample(1000,120)] <- NA 
mydata <- as.data.frame(matrix(v,10,100)) 

medrep <- function(x){ 
    x[is.na(x)] <- median(x, na.rm=TRUE) 
    x 
} 

dat <- data.frame(apply(mydata, 2, medrep))