¿Cómo asignar dentro de aplicar familia?

Question

Tengo data.frame que contiene varios factores y quiero cambiar el nombre de los niveles de factores para todos estos factores. Ej .:

mydf <- data.frame(col1 = as.factor(c("A","A",NA,NA)),col2 = as.factor(c("A",NA,NA,"A"))) 
mydf <- as.data.frame(lapply(mydf,addNA)) 

Tenga en cuenta que el ejemplo de la vida real tiene mucho más que sólo dos columnas. Por lo tanto me gustaría utilizar aplican para asignar otros nombres de nivel a todas estas columnas, al igual que en:

levels(mydf$col1) <- c("1","0") 

He intentado lo siguiente pero no funcionó ...

apply(mydf,1,function(x) levels(x) <- c("1","0")) 

No estoy realmente sorprendido de que no funciona, pero no tengo mejores ideas en este momento. ¿Debo usar with tal vez?

EDIT: Me di cuenta de que cometí un error al simplificar demasiado las cosas. Usé addNA para tener en cuenta el hecho de que las NA ya no deberían manejarse como NA. Por lo tanto, también quiero volver a etiquetarlos. esto no funciona con la sugerencia de Andrie y devuelve el siguiente mensaje de error:

labels = c("1", : invalid labels; length 2 should be 1 or 1 

Tenga en cuenta que he actualizado mi ejemplo df.

Answer 1

Puede cambiar los niveles por referencia utilizando setattr() desde los paquetes bit o data.table. Esto evita la copia de todo el conjunto de datos, y puesto que usted ha dicho que tiene una gran cantidad de columnas ...

require(bit)   # Either package 
require(data.table) # 
setattr(mydf[[1]],"levels",c("1","0")) 
setattr(mydf[[2]],"levels",c("1","0")) 

que se pueden hacer de una forma sencilla for bucle que es muy rápido. Es su responsabilidad asegurarse de reemplazar el vector de niveles por un vector de la misma longitud, de lo contrario, el factor puede dejar de ser válido. Y, debes reemplazar el vector de niveles completos con este método. Hay una forma interna en data.table para reemplazar nombres de niveles particulares por referencia, pero probablemente no sea necesario ir tan lejos.