<div dir="ltr"><div class="gmail_default" style="font-family:verdana,sans-serif;color:rgb(0,0,153)">Hola.</div><div class="gmail_default" style="font-family:verdana,sans-serif;color:rgb(0,0,153)"><br></div><div class="gmail_default" style="font-family:verdana,sans-serif;color:rgb(0,0,153)">
Como te dijo Carlos, el problema está en los nombres de las columnas y en los nombres de las filas. Cuando hice la importación (con dd<-read.csv('mortality.csv'), tuve problemas con las filas de nombre:</div><div class="gmail_default">
<div class="gmail_default"><ul><li><span style="color:rgb(0,0,153);font-family:verdana,sans-serif">Malignant tumour of the larynx</span><span class="" style="color:rgb(0,0,153);font-family:verdana,sans-serif;white-space:pre"> </span><span style="color:rgb(0,0,153);font-family:verdana,sans-serif"> trachea</span><span class="" style="color:rgb(0,0,153);font-family:verdana,sans-serif;white-space:pre"> </span><span style="color:rgb(0,0,153);font-family:verdana,sans-serif"> bronchus and lungs</span><br>
</li><li><span style="color:rgb(0,0,153);font-family:verdana,sans-serif">Malignant tumour of the lip</span><span class="" style="color:rgb(0,0,153);font-family:verdana,sans-serif;white-space:pre"> </span><span style="color:rgb(0,0,153);font-family:verdana,sans-serif"> pharynx and mouth</span><br>
</li><li><span style="color:rgb(0,0,153);font-family:verdana,sans-serif">Other endocrinological</span><span class="" style="color:rgb(0,0,153);font-family:verdana,sans-serif;white-space:pre"> </span><span style="color:rgb(0,0,153);font-family:verdana,sans-serif"> metabolic and nutritional conditions </span></li>
</ul></div><div class="gmail_default"><font color="#000099" face="verdana, sans-serif">que se me corrían a la derecha creándome una columna más. Corregido esto (dentro del archivo csv) procedí como sigue y todo corrió aparentemente bien:</font></div>
<div class="gmail_default"><font color="#000099" face="verdana, sans-serif"><br></font></div><div class="gmail_default"><font color="#000099" face="verdana, sans-serif"><div class="gmail_default">dd<-read.csv('mortality_modificado.csv') # modificado sin mucho cuidado. En tu caso debes adecuarlo bien a tus necesidades</div>
<div class="gmail_default">dd2<-dd[,2:19]</div><div class="gmail_default">rownames(dd2)<-dd[,1]</div><div class="gmail_default">colnames(dd2)<-colnames(mortality)</div><div class="gmail_default"><br></div><div class="gmail_default">
res<-MFA(dd2,group=c(9,9),type=c("f","f"), name.group=c("1979","2006"))</div><div class="gmail_default"><br></div><div class="gmail_default">Ojalá te sea de ayuda.</div><div class="gmail_default">
<br></div><div class="gmail_default">¡Salud!</div></font></div><div class="gmail_default"><font color="#000099" face="verdana, sans-serif"><br></font></div></div></div><div class="gmail_extra"><br><br><div class="gmail_quote">
2013/11/17 Carlos Ortega <span dir="ltr"><<a href="mailto:cof@qualityexcellence.es" target="_blank">cof@qualityexcellence.es</a>></span><br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">
Hola,<br>
<br>
El problema está con el nombre de las columnas y las filas del fichero que<br>
importas.<br>
Mira este detalle tras hacer la importación:<br>
<br>
> names(mort)<br>
[1] "X" "X15.24..79." "X25.34..79."<br>
[4] "X35.44..79." "X45.54..79." "X55.64..79."<br>
[7] "X65.74..79." "X75.84..79." "X85.94..79."<br>
[10] "X95.and.more..79." "X15.24..06." "X25.34..06."<br>
[13] "X35.44..06." "X45.54..06." "X55.64..06."<br>
[16] "X65.74..06." "X75.84..06." "X85.94..06."<br>
[19] "X95.and.more..06."<br>
> head(mort$X)<br>
[1] Accidental poisoning<br>
[2] Addiction to prescription medication<br>
[3] Alcohol abuse and alcohol-related psychosis<br>
[4] Asthma<br>
[5] Blood and hematopoietic disorders<br>
[6] Cerebrovascular disease<br>
65 Levels: 1109 1869 36 ... Viral hepatitis<br>
<br>
En cambio mira el dataset "mortality":<br>
> names(mortality)<br>
[1] "15-24 (79)" "25-34 (79)" "35-44 (79)"<br>
[4] "45-54 (79)" "55-64 (79)" "65-74 (79)"<br>
[7] "75-84 (79)" "85-94 (79)" "95 and more (79)"<br>
[10] "15-24 (06)" "25-34 (06)" "35-44 (06)"<br>
[13] "45-54 (06)" "55-64 (06)" "65-74 (06)"<br>
[16] "75-84 (06)" "85-94 (06)" "95 and more (06)"<br>
> head(rownames(mortality))<br>
[1] "Accidental poisoning"<br>
[2] "Addiction to prescription medication"<br>
[3] "Alcohol abuse and alcohol-related psychosis"<br>
[4] "Asthma"<br>
[5] "Blood and hematopoietic disorders"<br>
[6] "Cerebrovascular disease"<br>
<br>
Entonces tienes que:<br>
<br>
- Hacer que los rownames de "mort" sean mort$X. Esto se hace así:<br>
rownames(mort) <- mort$X<br>
- Y los names de "mort" tengan la misma forma que en mortality. Si no<br>
cuando haces el análisis el que digas name.group=c("1979","2006"), no<br>
funciona...<br>
<br>
<br>
Saludos,<br>
Carlos Ortega<br>
<a href="http://www.qualityexcellence.es" target="_blank">www.qualityexcellence.es</a><br>
<br>
<br>
El 17 de noviembre de 2013 12:19, Dr. José A Betancourt Bethencourt <<br>
<a href="mailto:jbetancourt@iscmc.cmw.sld.cu">jbetancourt@iscmc.cmw.sld.cu</a>> escribió:<br>
<div><div class="h5"><br>
><br>
><br>
> Estimados<br>
><br>
> Queremos con el paquete FactoMineR hacer este tipo de tabla de mortalidad<br>
> que lea los datos desde de una tabla csv<br>
><br>
> Realizamos lo que viene en la ayuda y es muy interesante, sin embargo<br>
> cuando mandamos a leer desde la tabla csv original de los autores<br>
><br>
> no hace el análisis porque algo falta y no nos percatamos de que es.<br>
> Adjunto tabla original<br>
><br>
> Saludos cordiales<br>
><br>
><br>
><br>
> #ESTO ES LO QUE VIENE EN LA AYUDA Y TRABAJA BIEN<br>
><br>
> rm(list = ls())<br>
><br>
> library(FactoMineR)<br>
><br>
> data(mortality)<br>
><br>
> library(epicalc)<br>
><br>
> des(mortality) #Agregue esto para comparar las dos datas<br>
><br>
> res<-MFA(mortality,group=c(9,9),type=c("f","f"), # REALIZA EL ANÁLISIS<br>
> BIEN<br>
><br>
> name.group=c("1979","2006"))<br>
><br>
> plot(res,choix="freq",invisible="ind",habillage="group")<br>
><br>
><br>
><br>
> #CON LA TABLA ORGINAL en csv NO NOS FUNCIONA, ?algo nos falta?<br>
><br>
><br>
><br>
> rm(list = ls())<br>
><br>
> setwd("D:/Public/Documents/R/FactoMineR/")<br>
><br>
> mortality<-read.csv("mortality.csv",header=TRUE,sep=",", dec=".")<br>
><br>
> library(epicalc)<br>
><br>
> des(mortality) #Agregue esto para comparar las dos datas y difieren los<br>
> resultados<br>
><br>
> library(FactoMineR)<br>
><br>
> res<-MFA(mortality,group=c(9,9),type=c("f","f"), #NO REALIZA EL ANÁLISIS<br>
><br>
> name.group=c("1979","2006"))<br>
><br>
</div></div>> _______________________________________________<br>
> R-help-es mailing list<br>
> <a href="mailto:R-help-es@r-project.org">R-help-es@r-project.org</a><br>
> <a href="https://stat.ethz.ch/mailman/listinfo/r-help-es" target="_blank">https://stat.ethz.ch/mailman/listinfo/r-help-es</a><br>
><br>
><br>
<span class="HOEnZb"><font color="#888888"><br>
<br>
--<br>
Saludos,<br>
Carlos Ortega<br>
<a href="http://www.qualityexcellence.es" target="_blank">www.qualityexcellence.es</a><br>
<br>
[[alternative HTML version deleted]]<br>
<br>
</font></span><br>_______________________________________________<br>
R-help-es mailing list<br>
<a href="mailto:R-help-es@r-project.org">R-help-es@r-project.org</a><br>
<a href="https://stat.ethz.ch/mailman/listinfo/r-help-es" target="_blank">https://stat.ethz.ch/mailman/listinfo/r-help-es</a><br>
<br></blockquote></div><br><br clear="all"><div><br></div>-- <br><font color="#000099" face="verdana, sans-serif">«But Gwindor answered: 'The doom lies in yourself, not in your name.'»<br><br>JRR Tolkien</font>
<div style="display:inline"></div>
</div>