<html xmlns:v="urn:schemas-microsoft-com:vml" xmlns:o="urn:schemas-microsoft-com:office:office" xmlns:w="urn:schemas-microsoft-com:office:word" xmlns:m="http://schemas.microsoft.com/office/2004/12/omml" xmlns="http://www.w3.org/TR/REC-html40"><head><meta http-equiv=Content-Type content="text/html; charset=utf-8"><meta name=Generator content="Microsoft Word 15 (filtered medium)"><!--[if !mso]><style>v\:* {behavior:url(#default#VML);}
o\:* {behavior:url(#default#VML);}
w\:* {behavior:url(#default#VML);}
.shape {behavior:url(#default#VML);}
</style><![endif]--><style><!--
/* Font Definitions */
@font-face
{font-family:"Cambria Math";
panose-1:2 4 5 3 5 4 6 3 2 4;}
@font-face
{font-family:Calibri;
panose-1:2 15 5 2 2 2 4 3 2 4;}
@font-face
{font-family:Tahoma;
panose-1:2 11 6 4 3 5 4 4 2 4;}
/* Style Definitions */
p.MsoNormal, li.MsoNormal, div.MsoNormal
{margin:0cm;
margin-bottom:.0001pt;
font-size:12.0pt;
font-family:"Times New Roman",serif;}
a:link, span.MsoHyperlink
{mso-style-priority:99;
color:blue;
text-decoration:underline;}
a:visited, span.MsoHyperlinkFollowed
{mso-style-priority:99;
color:purple;
text-decoration:underline;}
p.msonormal0, li.msonormal0, div.msonormal0
{mso-style-name:msonormal;
mso-margin-top-alt:auto;
margin-right:0cm;
mso-margin-bottom-alt:auto;
margin-left:0cm;
font-size:12.0pt;
font-family:"Times New Roman",serif;}
span.EstiloCorreo19
{mso-style-type:personal-reply;
font-family:"Calibri",sans-serif;
color:#1F497D;}
.MsoChpDefault
{mso-style-type:export-only;
font-family:"Calibri",sans-serif;
mso-fareast-language:EN-US;}
@page WordSection1
{size:612.0pt 792.0pt;
margin:70.85pt 3.0cm 70.85pt 3.0cm;}
div.WordSection1
{page:WordSection1;}
--></style><!--[if gte mso 9]><xml>
<o:shapedefaults v:ext="edit" spidmax="1026" />
</xml><![endif]--><!--[if gte mso 9]><xml>
<o:shapelayout v:ext="edit">
<o:idmap v:ext="edit" data="1" />
</o:shapelayout></xml><![endif]--></head><body lang=ES-AR link=blue vlink=purple><div class=WordSection1><p class=MsoNormal><span style='font-size:11.0pt;font-family:"Calibri",sans-serif;color:#1F497D;mso-fareast-language:EN-US'>Hola Lorena:<o:p></o:p></span></p><p class=MsoNormal><span style='font-size:11.0pt;font-family:"Calibri",sans-serif;color:#1F497D;mso-fareast-language:EN-US'>Fijate si con el siguiente script podes realizar lo que estás buscando.<o:p></o:p></span></p><p class=MsoNormal><span style='font-size:11.0pt;font-family:"Calibri",sans-serif;color:#1F497D;mso-fareast-language:EN-US'><o:p> </o:p></span></p><p class=MsoNormal><span style='font-size:11.0pt;font-family:"Calibri",sans-serif;color:#1F497D;mso-fareast-language:EN-US'>library(reshape2)# en este paquete esta la función melt<o:p></o:p></span></p><p class=MsoNormal><span style='font-size:11.0pt;font-family:"Calibri",sans-serif;color:#1F497D;mso-fareast-language:EN-US'>ldatos1<-melt(ldatos) # a partir de la base de datos ldatos, y con la función melt, se transformaron los nombres de las columnas en una nueva variable llamada “variable”.<o:p></o:p></span></p><p class=MsoNormal><span style='font-size:11.0pt;font-family:"Calibri",sans-serif;color:#1F497D;mso-fareast-language:EN-US'><o:p> </o:p></span></p><p class=MsoNormal><span style='font-size:11.0pt;font-family:"Calibri",sans-serif;color:#1F497D;mso-fareast-language:EN-US'>library(dplyr) #este paquete es para manipular la base de datos<o:p></o:p></span></p><p class=MsoNormal><span lang=EN-US style='font-size:11.0pt;font-family:"Calibri",sans-serif;color:#1F497D;mso-fareast-language:EN-US'>library(ggplot2)<o:p></o:p></span></p><p class=MsoNormal><span lang=EN-US style='font-size:11.0pt;font-family:"Calibri",sans-serif;color:#1F497D;mso-fareast-language:EN-US'><o:p> </o:p></span></p><p class=MsoNormal><span style='font-size:11.0pt;font-family:"Calibri",sans-serif;color:#1F497D;mso-fareast-language:EN-US'>ldatos1%>%<o:p></o:p></span></p><p class=MsoNormal><span style='font-size:11.0pt;font-family:"Calibri",sans-serif;color:#1F497D;mso-fareast-language:EN-US'> filter(variable%in%c("Z1","Z2","Z3","Z4"))%>% #aquí estoy comparando las 4 categorías de la variable #“variable”<o:p></o:p></span></p><p class=MsoNormal><span style='font-size:11.0pt;font-family:"Calibri",sans-serif;color:#1F497D;mso-fareast-language:EN-US'> ggplot(.,aes(Ep,value,color=variable))+ #a través del argumento color=variable, podes comparar #gráficamente distintas categorías a un mismo nivel de Ep.<o:p></o:p></span></p><p class=MsoNormal><span style='font-size:11.0pt;font-family:"Calibri",sans-serif;color:#1F497D;mso-fareast-language:EN-US'> geom_boxplot()<o:p></o:p></span></p><p class=MsoNormal><span style='font-size:11.0pt;font-family:"Calibri",sans-serif;color:#1F497D;mso-fareast-language:EN-US'><o:p> </o:p></span></p><p class=MsoNormal><span style='font-size:11.0pt;font-family:"Calibri",sans-serif;color:#1F497D;mso-fareast-language:EN-US'>Bueno, espero que se entienda y que sea, al menos en parte, el resultado que estás buscando.<o:p></o:p></span></p><p class=MsoNormal><span style='font-size:11.0pt;font-family:"Calibri",sans-serif;color:#1F497D;mso-fareast-language:EN-US'><o:p> </o:p></span></p><p class=MsoNormal><span style='font-size:11.0pt;font-family:"Calibri",sans-serif;color:#1F497D;mso-fareast-language:EN-US'>Saludos<o:p></o:p></span></p><p class=MsoNormal><span style='font-size:11.0pt;font-family:"Calibri",sans-serif;color:#1F497D;mso-fareast-language:EN-US'>Darío<o:p></o:p></span></p><p class=MsoNormal><span style='font-size:11.0pt;font-family:"Calibri",sans-serif;color:#1F497D;mso-fareast-language:EN-US'><o:p> </o:p></span></p><p class=MsoNormal><b><span lang=ES style='font-size:11.0pt;font-family:"Calibri",sans-serif'>De:</span></b><span lang=ES style='font-size:11.0pt;font-family:"Calibri",sans-serif'> R-help-es [mailto:r-help-es-bounces@r-project.org] <b>En nombre de </b>Lorena Saavedra Aracena<br><b>Enviado el:</b> martes, 24 de septiembre de 2019 20:57<br><b>Para:</b> Diego Martín <ako.sistemas@gmail.com><br><b>CC:</b> r-help-es@r-project.org<br><b>Asunto:</b> Re: [R-es] help: boxplot multivariables<o:p></o:p></span></p><p class=MsoNormal><o:p> </o:p></p><div><div><p class=MsoNormal><span style='font-family:"Tahoma",sans-serif'>Gracias Diego, que bello.<br>En realidad no es lo que quería hacer pero de todas formas tu script me sirve para mejorar mis gráficos, sobretodo el anterior para poner los gráficos juntos (lo había intentado sin éxito también). <o:p></o:p></span></p></div><div><p class=MsoNormal><span style='font-family:"Tahoma",sans-serif'>Estoy dudando un poco ahora de si es correcto hacer lo de poder comparar, o si tengo mis datos bien ordenados para esto.<o:p></o:p></span></p></div><div><p class=MsoNormal><span style='font-family:"Tahoma",sans-serif'>en mi mente es algo así (en paint ja):<o:p></o:p></span></p></div><div><p class=MsoNormal><span style='font-family:"Tahoma",sans-serif'><o:p> </o:p></span></p></div><div><div><p class=MsoNormal><span style='font-family:"Tahoma",sans-serif'><img width=413 height=300 id="_x0000_i1025" src="cid:image001.png@01D57332.993DA250" alt=image.png><o:p></o:p></span></p></div><div><p class=MsoNormal><span style='font-family:"Tahoma",sans-serif'>Lo del punto muestral son los valores que están dentro de las columnas GS y GI respectivamente, i.e. cuántas veces sucede ese comportamiento. ¿Debiera crear una nueva columna q los contenga a ambos?<o:p></o:p></span></p></div><div><p class=MsoNormal><span style='font-family:"Tahoma",sans-serif'>Avanzaré mientras con emparejar mis gráficos con los pasos que me dijiste.<br>Gracias nuevamente<o:p></o:p></span></p></div></div></div><p class=MsoNormal><o:p> </o:p></p><div><div><p class=MsoNormal>El mar., 24 sept. 2019 a las 16:53, Diego Martín (<<a href="mailto:ako.sistemas@gmail.com">ako.sistemas@gmail.com</a>>) escribió:<o:p></o:p></p></div><blockquote style='border:none;border-left:solid #CCCCCC 1.0pt;padding:0cm 0cm 0cm 6.0pt;margin-left:4.8pt;margin-right:0cm'><div><div><div><p class=MsoNormal>Hola Lorena:<o:p></o:p></p><div><p class=MsoNormal><o:p> </o:p></p></div><div><p class=MsoNormal> Lo prometido es deuda. Dije que miraría si iba este asunto:<o:p></o:p></p></div><div><div><p class=MsoNormal><o:p> </o:p></p></div><div><p class=MsoNormal>ggplot(data = dLSaa,<o:p></o:p></p></div><div><p class=MsoNormal> aes(x = factor(AA), y = AD, colour = factor(AA))) +<o:p></o:p></p></div><div><p class=MsoNormal> geom_boxplot() +<o:p></o:p></p></div><div><p class=MsoNormal> xlab( "AA" ) + <o:p></o:p></p></div><div><p class=MsoNormal> ylab( "AD" ) +<o:p></o:p></p></div><div><p class=MsoNormal> labs(colour = "Leyenda") +<o:p></o:p></p></div><div><p class=MsoNormal> ggtitle(label = "Comparación de AD frente a AA")<o:p></o:p></p></div></div><div><p class=MsoNormal><o:p> </o:p></p></div><div><p class=MsoNormal> Y este es el resultado:<o:p></o:p></p></div><div><div><p class=MsoNormal><img border=0 width=433 height=456 id="_x0000_i1026" src="cid:image003.png@01D57332.993DA250" alt=image.png><o:p></o:p></p></div></div><div><p class=MsoNormal><o:p> </o:p></p></div><div><p class=MsoNormal> ¿Te sirve así?.<o:p></o:p></p></div><div><p class=MsoNormal> Saludos.<o:p></o:p></p></div><div><p class=MsoNormal><o:p> </o:p></p></div></div></div></div></blockquote></div><p class=MsoNormal><br clear=all><o:p></o:p></p><div><p class=MsoNormal><o:p> </o:p></p></div><p class=MsoNormal>-- <o:p></o:p></p><div><div><div><p class=MsoNormal><em>Lorena Saavedra A.</em><i><br></i><em><span style='font-size:9.5pt'>Ing. Recursos Naturales Renovables</span></em><o:p></o:p></p></div><div><p class=MsoNormal><em>+56 9 9880 2972</em><o:p></o:p></p></div></div></div></div><div id="DAB4FAD8-2DD7-40BB-A1B8-4E2AA1F9FDF2"><br /> <table style="border-top: 1px solid #D3D4DE;">
<tr>
<td style="width: 55px; padding-top: 18px;"><a href="https://www.avast.com/sig-email?utm_medium=email&utm_source=link&utm_campaign=sig-email&utm_content=emailclient" target="_blank"><img src="https://ipmcdn.avast.com/images/icons/icon-envelope-tick-round-orange-animated-no-repeat-v1.gif" alt="" width="46" height="29" style="width: 46px; height: 29px;" /></a></td>
<td style="width: 470px; padding-top: 17px; color: #41424e; font-size: 13px; font-family: Arial, Helvetica, sans-serif; line-height: 18px;">Libre de virus. <a href="https://www.avast.com/sig-email?utm_medium=email&utm_source=link&utm_campaign=sig-email&utm_content=emailclient" target="_blank" style="color: #4453ea;">www.avast.com</a> </td>
</tr>
</table>
<a href="#DAB4FAD8-2DD7-40BB-A1B8-4E2AA1F9FDF2" width="1" height="1"> </a></div></body></html>