Замена столбцов NA медиана в R

Question

Я постоянно получаю ошибки с кодами, которые были бы правильными?

Answer 1

Первый правильный, но обычно вы не хотите использовать петли for в R. Попробуйте использовать apply.

Ответ

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) 
} 

Нанести раствор

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))