En esta respuesta: https://stackoverflow.com/a/35663834/2301674
tienes como hacerlo (mucho más sencillo que en la que enlazas tú) con reshape2 o si prefieres la versión "tidy" con dplyr y tidyr (la que yo recomiendo, pero solo porque me gusta más). Espero que te sirva On Mon, 25 Jun 2018 at 16:08 Fernando Reche Lorite via R-help-es < r-help-es@r-project.org> wrote: > Puedes probar con la función dummy del paquete dummies. > > Un saludo > Fernando Reche Lorite > Departamento de Matemáticas > Universidad de Almería > > El 25 de junio de 2018, 15:55, Carlos J. Gil Bellosta < > c...@datanalytics.com> > escribió: > > > ¿No te vale model.matrix? > > > > El lun., 25 jun. 2018 a las 15:49, Juan Abasolo (<juan.abas...@ehu.eus>) > > escribió: > > > > > Buenas, compañeros. > > > > > > Tengo una base de datos con bastantes variables todas medidas como > > factor, > > > quiero que todos los factores pasen a ser variables binarias en función > > de > > > sus valores. > > > > > > En este ejemplo de Stackoverflow muestran como hacerlo con una > variable: > > > > > > https://stackoverflow.com/questions/33990760/converting- > > factors-to-binary-in-r > > > > > > df <-data.frame(a = c(1,2,3), b = c(1,1,2), c = > > > c("Rose","Pink","Red"), d = c(2,3,4)) > > > > > > cbind(df[1:2], sapply(levels(df$c), function(x) as.integer(x == df$c)), > > > df[4]) > > > > > > o así > > > > > > library(data.table) > > > setDT(df)[, c(levels(df$c), "c") := > > > c(lapply(levels(c), function(x) as.integer(x == c)), .(NULL))] > > > > > > > > > Pero no me resuelve el tener que hacerlo algunos cientos de veces, que > es > > > lo que querría evitar. Sé que es evidente cómo se tiene que hacer, pero > > soy > > > ciego a esa evidencia :-( > > > > > > Muchas gracias por la ayuda > > > > > > > > > -- > > > Juan Abasolo > > > > > > Hizkuntzaren eta Literaturaren Didaktika Saila > > > Bilboko Hezkuntza Fakultatea > > > Euskal Herriko Unibertsitatea > > > UPV/EHU > > > > > > Sarriena auzoa z/g > > > 48940 Leioa > > > Bizkaia > > > > > > [[alternative HTML version deleted]] > > > > > > _______________________________________________ > > > R-help-es mailing list > > > R-help-es@r-project.org > > > https://stat.ethz.ch/mailman/listinfo/r-help-es > > > > > > > [[alternative HTML version deleted]] > > > > _______________________________________________ > > R-help-es mailing list > > R-help-es@r-project.org > > https://stat.ethz.ch/mailman/listinfo/r-help-es > > > > [[alternative HTML version deleted]] > > _______________________________________________ > R-help-es mailing list > R-help-es@r-project.org > https://stat.ethz.ch/mailman/listinfo/r-help-es > -- *Víctor Granda García* Data Technician v.gra...@creaf.uab.cat Tel. +34 93 581 33 53 Campus UAB. Edifici C. 08193 Bellaterra (Barcelona) | *www.creaf.cat* <http://www.creaf.uab.es/cat/index.htm> Abans d'imprimir aquest missatge electrònic penseu en el medi ambient. [[alternative HTML version deleted]] _______________________________________________ R-help-es mailing list R-help-es@r-project.org https://stat.ethz.ch/mailman/listinfo/r-help-es