Médian remplacer, besoin de données numériques

Question

J'essaie d'imputer des valeurs manquantes en fonction d'un groupe. J'obtiens une erreur que la fonction median() nécessite des données numériques, mais toutes mes données sont numériques, donc je ne peux pas voir le problème. Voici un exemple minimalement reproductible.

set.seed(123) 
cluster = sample(seq(1,10),1000,replace=TRUE) 
V1 = sample(c(runif(100),NA),1000,replace=TRUE) 
V2 = sample(c(runif(100),NA),1000,replace=TRUE) 

df = as.data.frame(cbind(cluster,V1,V2)) 

df_fixed = by(df,df$cluster,function(x){replace(x,is.na(x),median(x, na.rm=TRUE))}) 

Erreur renvoyée:

erreur dans median.default (x, na.rm = TRUE): besoin de données numériques

Ce code fonctionne bien, de sorte que le problème est avec la fonction médiane.

df_fixed = by(df,df$cluster,function(x){replace(x,is.na(x),1)}) 

Answer 1

df_fixed <- apply(df[,2:3], 2, function(x) { 
    md <- sapply(sort(unique(df$cluster)), function(k) median(x[df$cluster==k], na.rm=TRUE)) 
    x[is.na(x)] <- md[df$cluster][is.na(x)] 
    return(x) 
}) 

any(is.na(df_fixed)) 
# [1] FALSE