Wie verwendet man NA als Faktor-Ebene und benennen Sie es in R?

Question

Ich habe eine Liste von Faktoren und jeder Faktor hat einige NA. Jetzt möchte ich ein Level für NA hinzufügen und es als Missing umbenennen. Ich stelle auch sicher, dass Missing der letzte in jedem Level ist. Hier ist mein Code, aber es funktioniert nicht.

data = list(a = factor(c(1,1,2,2,3,NA,NA)), 
      b = factor(c("a","b","b")), 
      c = factor(c(3,4,NA,3))) 
data = lapply(data, FUN = function(x) { 
    if (any(is.na(x))) { 
     x = addNA(x) 
     levels(x)[length(levels(x))] = "Missing" 
    } 
}) 

Jede Hilfe wäre willkommen.

Answer 1

Wir können versuchen,

lapply(data, function(x) { 
    if(anyNA(x)) { 
    levels(x) <- c(levels(x), "Missing") 
    x[is.na(x)] <- "Missing" 
    x} 
    else x 

    }) 
#$a 
#[1] 1  1  2  2  3  Missing Missing 
#Levels: 1 2 3 Missing 

#$b 
#[1] a b b 
#Levels: a b 

#$c 
#[1] 3  4  Missing 3  
#Levels: 3 4 Missing