Estimados Quisiéramos que la salida final plot (z) fuera de tres colores, uno para cada especie, no encuentro el comando para ello. Apreciaría su ayuda Saludos Jose rm(list = ls()) library(MASS) data(iris) datos <- data.frame(iris[,1:4],clase=as.vector(iris[,5])) head(datos) especies <- iris[,5] # La columna cinco se refiere a las especies(clase) z <- lda(clase~.,datos) predict(z,iris[1:4, ])$class #Para clasificar las observaciones Tabla <- table(iris[,5],predict(z,iris[,1:4])$class) Tabla (pred.class<-predict(z)$class) # Para clasificar las observaciones plot(z) -- Este mensaje le ha llegado mediante el servicio de correo electronico que ofrece Infomed para respaldar el cumplimiento de las misiones del Sistema Nacional de Salud. La persona que envia este correo asume el compromiso de usar el servicio a tales fines y cumplir con las regulaciones establecidas Infomed: http://www.sld.cu/
Estimado José Betancourt No se que tipo de gráfico desea realizar, en la siguiente página https://www.r-bloggers.com/mastering-r-plot-part-1-colors-legends-and-lines/ hay una forma. Javier Rubén Marcuzzi De: jbetancourt en iscmc.cmw.sld.cu Enviado: lunes, 4 de septiembre de 2017 9:55 Para: r-help-es en r-project.org Asunto: [R-es] gráfico Estimados Quisiéramos que la salida final plot (z) fuera de tres colores, uno para cada especie, no encuentro el comando para ello. Apreciaría su ayuda Saludos Jose rm(list = ls()) library(MASS) data(iris) datos <- data.frame(iris[,1:4],clase=as.vector(iris[,5])) head(datos) especies <- iris[,5] # La columna cinco se refiere a las especies(clase) z <- lda(clase~.,datos) predict(z,iris[1:4, ])$class #Para clasificar las observaciones Tabla <- table(iris[,5],predict(z,iris[,1:4])$class) Tabla (pred.class<-predict(z)$class) # Para clasificar las observaciones plot(z) -- Este mensaje le ha llegado mediante el servicio de correo electronico que ofrece Infomed para respaldar el cumplimiento de las misiones del Sistema Nacional de Salud. La persona que envia este correo asume el compromiso de usar el servicio a tales fines y cumplir con las regulaciones establecidas Infomed: http://www.sld.cu/ _______________________________________________ R-help-es mailing list R-help-es en r-project.org https://stat.ethz.ch/mailman/listinfo/r-help-es [[alternative HTML version deleted]]
Jose, Usa plot(z, col = as.numeric(pred.class)) Saludos, Jorge.- 2017-09-03 8:29 GMT-05:00 <jbetancourt en iscmc.cmw.sld.cu>:> Estimados > Quisiéramos que la salida final plot (z) fuera de tres colores, uno para > cada especie, no encuentro el comando para ello. Apreciaría su ayuda > Saludos > Jose > > > rm(list = ls()) > library(MASS) > data(iris) > datos <- data.frame(iris[,1:4],clase=as.vector(iris[,5])) > head(datos) > especies <- iris[,5] # La columna cinco se refiere a las especies(clase) > z <- lda(clase~.,datos) > predict(z,iris[1:4, ])$class #Para clasificar las observaciones > Tabla <- table(iris[,5],predict(z,iris[,1:4])$class) > Tabla > (pred.class<-predict(z)$class) # Para clasificar las observaciones > plot(z) > > > > -- > Este mensaje le ha llegado mediante el servicio de correo electronico que > ofrece Infomed para respaldar el cumplimiento de las misiones del Sistema > Nacional de Salud. La persona que envia este correo asume el compromiso de > usar el servicio a tales fines y cumplir con las regulaciones establecidas > > Infomed: http://www.sld.cu/ > > _______________________________________________ > R-help-es mailing list > R-help-es en r-project.org > https://stat.ethz.ch/mailman/listinfo/r-help-es >[[alternative HTML version deleted]]
Se ha borrado un adjunto en formato HTML... URL: <https://stat.ethz.ch/pipermail/r-help-es/attachments/20170904/369d517e/attachment.html>
eSTIMADO FUNCIONÓ MUY BIEN plot(z, col = as.numeric(pred.class)) SALUDOS Jose,> > Usa > > plot(z, col = as.numeric(pred.class)) > > Saludos, > Jorge.- > > > 2017-09-03 8:29 GMT-05:00 <jbetancourt en iscmc.cmw.sld.cu>: > >> Estimados >> Quisiéramos que la salida final plot (z) fuera de tres colores, uno >> para >> cada especie, no encuentro el comando para ello. ApreciarÃa su ayuda >> Saludos >> Jose >> >> >> rm(list = ls()) >> library(MASS) >> data(iris) >> datos <- data.frame(iris[,1:4],clase=as.vector(iris[,5])) >> head(datos) >> especies <- iris[,5] # La columna cinco se refiere a las especies(clase) >> z <- lda(clase~.,datos) >> predict(z,iris[1:4, ])$class #Para clasificar las observaciones >> Tabla <- table(iris[,5],predict(z,iris[,1:4])$class) >> Tabla >> (pred.class<-predict(z)$class) # Para clasificar las observaciones >> plot(z) >> >> >> >> -- >> Este mensaje le ha llegado mediante el servicio de correo electronico >> que >> ofrece Infomed para respaldar el cumplimiento de las misiones del >> Sistema >> Nacional de Salud. La persona que envia este correo asume el compromiso >> de >> usar el servicio a tales fines y cumplir con las regulaciones >> establecidas >> >> Infomed: http://www.sld.cu/ >> >> _______________________________________________ >> R-help-es mailing list >> R-help-es en r-project.org >> https://stat.ethz.ch/mailman/listinfo/r-help-es >> >-- Este mensaje le ha llegado mediante el servicio de correo electronico que ofrece Infomed para respaldar el cumplimiento de las misiones del Sistema Nacional de Salud. La persona que envia este correo asume el compromiso de usar el servicio a tales fines y cumplir con las regulaciones establecidas Infomed: http://www.sld.cu/