<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:Verdana;
panose-1:2 11 6 4 3 5 4 4 2 4;}
@font-face
{font-family:"Trebuchet MS";
panose-1:2 11 6 3 2 2 2 2 2 4;}
@font-face
{font-family:"Lucida Console";
panose-1:2 11 6 9 4 5 4 2 2 4;}
/* Style Definitions */
p.MsoNormal, li.MsoNormal, div.MsoNormal
{margin:0cm;
font-size:11.0pt;
font-family:"Calibri",sans-serif;}
a:link, span.MsoHyperlink
{mso-style-priority:99;
color:blue;
text-decoration:underline;}
span.gmailsignatureprefix
{mso-style-name:gmail_signature_prefix;}
span.EstiloCorreo21
{mso-style-type:personal-reply;
font-family:"Calibri",sans-serif;
color:windowtext;}
.MsoChpDefault
{mso-style-type:export-only;
font-size:10.0pt;
mso-ligatures:none;}
@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" link="blue" vlink="purple" style="word-wrap:break-word">
<div class="WordSection1">
<p class="MsoNormal"><span style="font-size:13.0pt;mso-fareast-language:EN-US">Buenos días.<o:p></o:p></span></p>
<p class="MsoNormal"><span style="font-size:13.0pt;mso-fareast-language:EN-US">Perdón por insistir. Quiero hacer un ANOVA para unos datos que tienen un diseño Split plot.<o:p></o:p></span></p>
<p class="MsoNormal"><span style="font-size:13.0pt;mso-fareast-language:EN-US">Y estoy utilizando dos editores diferentes, que, si todo fuera correcto y ya que toman los mismos datos, me debería dar el mismo resultado, … pero no es así.<o:p></o:p></span></p>
<p class="MsoNormal"><span style="font-size:13.0pt;mso-fareast-language:EN-US">Querría saber si básicamente los dos hacen un análisis de varianza SPLIT PLOT ?. Y el mismo análisis?<o:p></o:p></span></p>
<p class="MsoNormal"><span style="font-size:13.0pt;mso-fareast-language:EN-US">Los comandos que doy son estos:<o:p></o:p></span></p>
<p class="MsoNormal"><span style="font-size:13.0pt;mso-fareast-language:EN-US">CEPAS, es el nombre del archivo de datos.<o:p></o:p></span></p>
<p class="MsoNormal"><span style="font-size:13.0pt;color:#4472C4;mso-fareast-language:EN-US">model<-with(CEPAS, sp.plot(REP, CEPA, VARIEDAD, trAUDPC))<o:p></o:p></span></p>
<p class="MsoNormal"><span style="font-size:13.0pt;mso-fareast-language:EN-US">Y el otro es este<o:p></o:p></span></p>
<p class="MsoNormal"><span style="font-size:13.0pt;color:#4472C4;mso-fareast-language:EN-US">model2.aov<- aov(trAUDPC~CEPA*VARIEDAD+REP+Error(REP/CEPA))<o:p></o:p></span></p>
<p class="MsoNormal"><span style="font-size:13.0pt;mso-fareast-language:EN-US"><o:p> </o:p></span></p>
<div>
<p class="MsoNormal"><b><span style="font-size:12.0pt;font-family:"Trebuchet MS",sans-serif;color:#55555B;mso-ligatures:standardcontextual"> </span></b><span style="font-size:12.0pt;font-family:"Trebuchet MS",sans-serif">Un saludo.<o:p></o:p></span></p>
<p class="MsoNormal"><b><span style="font-size:12.0pt;font-family:"Trebuchet MS",sans-serif;color:#55555B">Juan Bautista Relloso Barrio<o:p></o:p></span></b></p>
<p class="MsoNormal" style="mso-margin-top-alt:4.85pt;margin-right:42.55pt;margin-bottom:0cm;margin-left:0cm;margin-bottom:.0001pt">
<span style="font-size:10.0pt;font-family:"Trebuchet MS",sans-serif;color:#55555B;mso-fareast-language:EN-US">Coordinador de Equipos e Infraestructuras | Técnico de Cultivos del Departamento de Producción Vegetal
<o:p></o:p></span></p>
<p class="MsoNormal" style="margin-right:42.55pt"><span lang="IT" style="font-size:10.0pt;font-family:"Trebuchet MS",sans-serif;color:#55555B;mso-fareast-language:EN-US">Talde eta Azpiegitura Koordinatzailea | Laborantza teknikaria Landare Ekoizpen Departamentua
<o:p></o:p></span></p>
<p class="MsoNormal" style="margin-top:4.2pt;line-height:150%"><a href="mailto:jbautista@neiker.eus"><span lang="IT" style="font-family:"Trebuchet MS",sans-serif">jbautista@neiker.eus
</span></a><span lang="IT" style="font-family:"Trebuchet MS",sans-serif;color:#55555B">| M. 688 62 98 14
</span><span lang="IT" style="font-size:10.0pt;line-height:150%;font-family:"Trebuchet MS",sans-serif;color:#55555B"><o:p></o:p></span></p>
<p class="MsoNormal" style="margin-top:4.2pt;line-height:200%"><a href="http://www.neiker.eus/"><b><span lang="IT" style="font-family:"Trebuchet MS",sans-serif;color:#55555B">www.neiker.eus</span></b></a><b><span lang="IT" style="font-family:"Trebuchet MS",sans-serif;color:#55555B">
</span></b><a href="https://www.linkedin.com/company/neiker/"><b><span style="font-family:"Trebuchet MS",sans-serif;color:#55555B;text-decoration:none"><img border="0" width="13" height="15" style="width:.1333in;height:.1583in" id="Imagen_x0020_15" src="cid:image001.png@01D9FC2D.E9B85580"></span></b></a><b><span lang="IT" style="font-family:"Trebuchet MS",sans-serif;color:#55555B"> </span></b><a href="https://twitter.com/neiker_BRTA"><b><span style="font-family:"Trebuchet MS",sans-serif;color:#55555B;text-decoration:none"><img border="0" width="19" height="15" style="width:.2in;height:.1583in" id="Imagen_x0020_16" src="cid:image002.png@01D9FC2D.E9B85580"></span></b></a><a href="https://www.facebook.com/neikerBRTA"><b><span style="font-family:"Trebuchet MS",sans-serif;color:#55555B;text-decoration:none"><img border="0" width="17" height="15" style="width:.175in;height:.1583in" id="Imagen_x0020_17" src="cid:image003.png@01D9FC2D.E9B85580"></span></b></a><b><span lang="IT" style="font-family:"Trebuchet MS",sans-serif;color:#55555B"> </span></b><a href="https://www.youtube.com/user/neikertec"><b><span style="font-family:"Trebuchet MS",sans-serif;color:#55555B;text-decoration:none"><img border="0" width="20" height="15" style="width:.2083in;height:.1583in" id="Imagen_x0020_18" src="cid:image004.png@01D9FC2D.E9B85580"></span></b></a><b><span lang="IT" style="font-family:"Trebuchet MS",sans-serif;color:#55555B"><o:p></o:p></span></b></p>
<p class="MsoNormal"><b><span style="font-size:12.0pt;font-family:"Trebuchet MS",sans-serif;color:#55555B"><img border="0" width="300" height="43" style="width:3.125in;height:.45in" id="Imagen_x0020_19" src="cid:image005.png@01D9FC2D.E9B85580"></span></b><b><span style="font-size:12.0pt;font-family:"Trebuchet MS",sans-serif;color:#55555B"> </span></b><b><span style="font-size:12.0pt;font-family:"Trebuchet MS",sans-serif;color:#55555B"><img border="0" width="98" height="54" style="width:1.0166in;height:.5666in" id="Imagen_x0020_20" src="cid:image006.jpg@01D9FC2D.E9B85580" alt="ej_ekonomia_garapen_lateral"></span></b><b><span style="font-size:12.0pt;font-family:"Trebuchet MS",sans-serif;color:#55555B"> </span></b> <img border="0" width="40" height="58" style="width:.4166in;height:.6in" id="Imagen_x0020_21" src="cid:image007.jpg@01D9FC2D.E9B85580" alt="https://www.emakunde.euskadi.eus/contenidos/informacion/violencia_puntolila/eu_def/adjuntos/punto.lila.jpg"><b><span style="font-size:12.0pt;font-family:"Trebuchet MS",sans-serif;color:#55555B"><o:p></o:p></span></b></p>
<p class="MsoNormal"><b><span style="font-size:12.0pt;font-family:"Trebuchet MS",sans-serif;color:#55555B"><o:p> </o:p></span></b></p>
<p class="MsoNormal"><a href="https://neiker.eus/eu/pribatutasun-politika/"><span style="font-size:6.0pt;font-family:"Trebuchet MS",sans-serif;color:#55555B">PRIBATUTASUN POLITIKA</span></a><span style="font-size:6.0pt;font-family:"Trebuchet MS",sans-serif;color:#55555B">
| </span><a href="https://neiker.eus/es/politica-privacidad/"><span style="font-size:6.0pt;font-family:"Trebuchet MS",sans-serif;color:#55555B">POLÍTICA DE PRIVACIDAD</span></a><span style="font-size:6.0pt;font-family:"Trebuchet MS",sans-serif;color:#55555B">
| </span><a href="https://neiker.eus/en/privacy-policy/"><span style="font-size:6.0pt;font-family:"Trebuchet MS",sans-serif;color:#55555B">LEGAL NOTICE</span></a><u><span style="font-size:6.0pt;color:#55555B"><o:p></o:p></span></u></p>
<p class="MsoNormal"><b><span style="font-size:12.0pt;font-family:"Trebuchet MS",sans-serif;color:#55555B;mso-ligatures:standardcontextual"> </span></b><span style="mso-ligatures:standardcontextual"> </span><b><span style="font-size:12.0pt;font-family:"Trebuchet MS",sans-serif;color:#55555B;mso-ligatures:standardcontextual"><o:p></o:p></span></b></p>
<p class="MsoNormal"><b><span style="font-size:12.0pt;font-family:"Trebuchet MS",sans-serif;color:#55555B;mso-ligatures:standardcontextual"><o:p> </o:p></span></b></p>
</div>
<p class="MsoNormal"><span style="font-size:13.0pt;mso-fareast-language:EN-US"><o:p> </o:p></span></p>
<div>
<div style="border:none;border-top:solid #E1E1E1 1.0pt;padding:3.0pt 0cm 0cm 0cm">
<p class="MsoNormal"><b>De:</b> R-help-es <<a href="mailto:r-help-es-bounces@r-project.org">r-help-es-bounces@r-project.org</a>>
<b>En nombre de </b>Relloso Barrio, Juan Bautista<br>
<b>Enviado el:</b> viernes, 22 de septiembre de 2023 16:18<br>
<b>Para:</b> <a href="mailto:r-help-es@r-project.org">r-help-es@r-project.org</a><br>
<b>Asunto:</b> [R-es] no encuentro el error<o:p></o:p></p>
</div>
</div>
<p class="MsoNormal"><o:p> </o:p></p>
<p class="MsoNormal"><span style="mso-fareast-language:EN-US">Buenas tardes.<o:p></o:p></span></p>
<p class="MsoNormal"><span style="mso-fareast-language:EN-US">Intento hacer la separación de medias “por tratamientos”<o:p></o:p></span></p>
<p class="MsoNormal"><span style="mso-fareast-language:EN-US">Pero me da un error que no consigo corregir. No sé que hago mal. Os paso los comandos y el error<o:p></o:p></span></p>
<p class="MsoNormal"><span style="mso-fareast-language:EN-US"><o:p> </o:p></span></p>
<p class="MsoNormal"><span style="mso-fareast-language:EN-US"># Separación de medias HSD por Tratamiento No funciona<o:p></o:p></span></p>
<p class="MsoNormal"><span style="mso-fareast-language:EN-US">by(pppp, pppp$TRAT, function(x) {<o:p></o:p></span></p>
<p class="MsoNormal"><span style="mso-fareast-language:EN-US"> </span><span lang="IT" style="mso-fareast-language:EN-US">anova_result <- aov(RTOSE ~ CORTE, data = x)<o:p></o:p></span></p>
<p class="MsoNormal"><span lang="IT" style="mso-fareast-language:EN-US"> </span>
<span style="mso-fareast-language:EN-US">HSD_result <- HSD.test(anova_result)<o:p></o:p></span></p>
<p class="MsoNormal"><span style="mso-fareast-language:EN-US"> Tratamiento <- unique(x$TRAT)<o:p></o:p></span></p>
<p class="MsoNormal"><span style="mso-fareast-language:EN-US"> return(list(Tratamiento = TRAT, HSD_result = HSD_result))<o:p></o:p></span></p>
<p class="MsoNormal"><span style="mso-fareast-language:EN-US">})<o:p></o:p></span></p>
<p class="MsoNormal"><span style="mso-fareast-language:EN-US">Y el error es este:<o:p></o:p></span></p>
<p class="MsoNormal"><span style="font-size:10.0pt;font-family:"Lucida Console";color:#C5060B;background:#E6E6E6">Error in pmatch(trt, names(A)) :
<o:p></o:p></span></p>
<p class="MsoNormal"><span style="font-size:10.0pt;font-family:"Lucida Console";color:#C5060B;background:#E6E6E6">argument "trt" is missing, with no default</span><span style="mso-fareast-language:EN-US"><o:p></o:p></span></p>
<p class="MsoNormal"><span style="mso-fareast-language:EN-US"><o:p> </o:p></span></p>
<p class="MsoNormal"><b><span style="font-size:12.0pt;font-family:"Trebuchet MS",sans-serif;color:#55555B;mso-ligatures:standardcontextual"> </span></b><span style="font-size:12.0pt;font-family:"Trebuchet MS",sans-serif">Un saludo.<o:p></o:p></span></p>
<p class="MsoNormal"><b><span style="font-size:12.0pt;font-family:"Trebuchet MS",sans-serif;color:#55555B">Juan Bautista Relloso Barrio<o:p></o:p></span></b></p>
<p class="MsoNormal" style="mso-margin-top-alt:4.85pt;margin-right:42.55pt;margin-bottom:0cm;margin-left:0cm;margin-bottom:.0001pt">
<span style="font-size:10.0pt;font-family:"Trebuchet MS",sans-serif;color:#55555B;mso-fareast-language:EN-US">Coordinador de Equipos e Infraestructuras | Técnico de Cultivos del Departamento de Producción Vegetal
<o:p></o:p></span></p>
<p class="MsoNormal" style="margin-right:42.55pt"><span lang="IT" style="font-size:10.0pt;font-family:"Trebuchet MS",sans-serif;color:#55555B;mso-fareast-language:EN-US">Talde eta Azpiegitura Koordinatzailea | Laborantza teknikaria Landare Ekoizpen Departamentua
<o:p></o:p></span></p>
<p class="MsoNormal" style="margin-top:4.2pt;line-height:150%"><a href="mailto:jbautista@neiker.eus"><span lang="IT" style="font-family:"Trebuchet MS",sans-serif">jbautista@neiker.eus
</span></a><span lang="IT" style="font-family:"Trebuchet MS",sans-serif;color:#55555B">| M. 688 62 98 14
</span><span lang="IT" style="font-size:10.0pt;line-height:150%;font-family:"Trebuchet MS",sans-serif;color:#55555B"><o:p></o:p></span></p>
<p class="MsoNormal" style="margin-top:4.2pt;line-height:200%"><a href="http://www.neiker.eus/"><b><span lang="IT" style="font-family:"Trebuchet MS",sans-serif;color:#55555B">www.neiker.eus</span></b></a><b><span lang="IT" style="font-family:"Trebuchet MS",sans-serif;color:#55555B">
</span></b><a href="https://www.linkedin.com/company/neiker/"><b><span style="font-family:"Trebuchet MS",sans-serif;color:#55555B;text-decoration:none"><img border="0" width="13" height="15" style="width:.1333in;height:.1583in" id="Imagen_x0020_8" src="cid:image001.png@01D9FC2D.E9B85580"></span></b></a><b><span lang="IT" style="font-family:"Trebuchet MS",sans-serif;color:#55555B"> </span></b><a href="https://twitter.com/neiker_BRTA"><b><span style="font-family:"Trebuchet MS",sans-serif;color:#55555B;text-decoration:none"><img border="0" width="19" height="15" style="width:.2in;height:.1583in" id="Imagen_x0020_9" src="cid:image002.png@01D9FC2D.E9B85580"></span></b></a><a href="https://www.facebook.com/neikerBRTA"><b><span style="font-family:"Trebuchet MS",sans-serif;color:#55555B;text-decoration:none"><img border="0" width="17" height="15" style="width:.175in;height:.1583in" id="Imagen_x0020_10" src="cid:image003.png@01D9FC2D.E9B85580"></span></b></a><b><span lang="IT" style="font-family:"Trebuchet MS",sans-serif;color:#55555B"> </span></b><a href="https://www.youtube.com/user/neikertec"><b><span style="font-family:"Trebuchet MS",sans-serif;color:#55555B;text-decoration:none"><img border="0" width="20" height="15" style="width:.2083in;height:.1583in" id="Imagen_x0020_11" src="cid:image004.png@01D9FC2D.E9B85580"></span></b></a><b><span lang="IT" style="font-family:"Trebuchet MS",sans-serif;color:#55555B"><o:p></o:p></span></b></p>
<p class="MsoNormal"><b><span style="font-size:12.0pt;font-family:"Trebuchet MS",sans-serif;color:#55555B"><img border="0" width="300" height="43" style="width:3.125in;height:.45in" id="Imagen_x0020_12" src="cid:image005.png@01D9FC2D.E9B85580"></span></b><b><span style="font-size:12.0pt;font-family:"Trebuchet MS",sans-serif;color:#55555B"> </span></b><b><span style="font-size:12.0pt;font-family:"Trebuchet MS",sans-serif;color:#55555B"><img border="0" width="98" height="54" style="width:1.0166in;height:.5666in" id="Imagen_x0020_13" src="cid:image006.jpg@01D9FC2D.E9B85580" alt="ej_ekonomia_garapen_lateral"></span></b><b><span style="font-size:12.0pt;font-family:"Trebuchet MS",sans-serif;color:#55555B"> </span></b> <img border="0" width="40" height="58" style="width:.4166in;height:.6in" id="Imagen_x0020_14" src="cid:image007.jpg@01D9FC2D.E9B85580" alt="https://www.emakunde.euskadi.eus/contenidos/informacion/violencia_puntolila/eu_def/adjuntos/punto.lila.jpg"><b><span style="font-size:12.0pt;font-family:"Trebuchet MS",sans-serif;color:#55555B"><o:p></o:p></span></b></p>
<p class="MsoNormal"><b><span style="font-size:12.0pt;font-family:"Trebuchet MS",sans-serif;color:#55555B"><o:p> </o:p></span></b></p>
<p class="MsoNormal"><a href="https://neiker.eus/eu/pribatutasun-politika/"><span style="font-size:6.0pt;font-family:"Trebuchet MS",sans-serif;color:#55555B">PRIBATUTASUN POLITIKA</span></a><span style="font-size:6.0pt;font-family:"Trebuchet MS",sans-serif;color:#55555B">
| </span><a href="https://neiker.eus/es/politica-privacidad/"><span style="font-size:6.0pt;font-family:"Trebuchet MS",sans-serif;color:#55555B">POLÍTICA DE PRIVACIDAD</span></a><span style="font-size:6.0pt;font-family:"Trebuchet MS",sans-serif;color:#55555B">
| </span><a href="https://neiker.eus/en/privacy-policy/"><span style="font-size:6.0pt;font-family:"Trebuchet MS",sans-serif;color:#55555B">LEGAL NOTICE</span></a><u><span style="font-size:6.0pt;color:#55555B"><o:p></o:p></span></u></p>
<p class="MsoNormal"><b><span style="font-size:12.0pt;font-family:"Trebuchet MS",sans-serif;color:#55555B;mso-ligatures:standardcontextual"> </span></b><span style="mso-ligatures:standardcontextual"> </span><b><span style="font-size:12.0pt;font-family:"Trebuchet MS",sans-serif;color:#55555B;mso-ligatures:standardcontextual"><o:p></o:p></span></b></p>
<p class="MsoNormal"><b><span style="font-size:12.0pt;font-family:"Trebuchet MS",sans-serif;color:#55555B;mso-ligatures:standardcontextual"><o:p> </o:p></span></b></p>
<p class="MsoNormal"><span style="mso-fareast-language:EN-US"><o:p> </o:p></span></p>
<div style="border:none;border-top:solid #E1E1E1 1.0pt;padding:3.0pt 0cm 0cm 0cm">
<p class="MsoNormal"><b>De:</b> Carlos Ortega <<a href="mailto:cof@qualityexcellence.es">cof@qualityexcellence.es</a>>
<br>
<b>Enviado el:</b> lunes, 18 de septiembre de 2023 23:04<br>
<b>Para:</b> Relloso Barrio, Juan Bautista <<a href="mailto:jbautista@neiker.eus">jbautista@neiker.eus</a>><br>
<b>CC:</b> <a href="mailto:r-help-es@r-project.org">r-help-es@r-project.org</a><br>
<b>Asunto:</b> Re: [R-es] Boxplot ordenados...<o:p></o:p></p>
</div>
<p class="MsoNormal"><o:p> </o:p></p>
<div>
<div>
<p class="MsoNormal"><span style="font-size:12.0pt;font-family:"Verdana",sans-serif">Hola Juan,<o:p></o:p></span></p>
</div>
<div>
<p class="MsoNormal"><span style="font-size:12.0pt;font-family:"Verdana",sans-serif"><o:p> </o:p></span></p>
</div>
<div>
<p class="MsoNormal"><span style="font-size:12.0pt;font-family:"Verdana",sans-serif">Sí, te recomiendo que uses la librería "ggeasy" que simplifica mucho estas modificaciones, mejor que trabajar directamente con "ggplot".<o:p></o:p></span></p>
</div>
<div>
<p class="MsoNormal"><span style="font-size:12.0pt;font-family:"Verdana",sans-serif">Sería así:<o:p></o:p></span></p>
</div>
<div>
<p class="MsoNormal"><span style="font-size:12.0pt;font-family:"Verdana",sans-serif"><o:p> </o:p></span></p>
</div>
<div>
<p class="MsoNormal"><span style="font-size:12.0pt;font-family:"Verdana",sans-serif">#-------------<o:p></o:p></span></p>
</div>
<div>
<p class="MsoNormal"><b><span style="font-size:12.0pt;font-family:"Verdana",sans-serif;color:red">library(ggeasy)</span></b><span style="font-size:12.0pt;font-family:"Verdana",sans-serif"><o:p></o:p></span></p>
</div>
<div>
<p class="MsoNormal"><span style="font-size:12.0pt;font-family:"Verdana",sans-serif"><o:p> </o:p></span></p>
</div>
<div>
<p class="MsoNormal" style="mso-margin-top-alt:auto;mso-margin-bottom-alt:auto"><span style="font-size:12.0pt;font-family:"Verdana",sans-serif">ggplot(data = AÑOS, aes(x = VARIEDAD, y = rAUDPCor, colour = ANO,<o:p></o:p></span></p>
<p class="MsoNormal" style="mso-margin-top-alt:auto;mso-margin-bottom-alt:auto"><span style="font-size:12.0pt;font-family:"Verdana",sans-serif">
</span><span lang="IT" style="font-size:12.0pt;font-family:"Verdana",sans-serif">group = ANO)) +</span><span style="font-size:12.0pt;font-family:"Verdana",sans-serif"><o:p></o:p></span></p>
<p class="MsoNormal" style="mso-margin-top-alt:auto;mso-margin-bottom-alt:auto"><span lang="IT" style="font-size:12.0pt;font-family:"Verdana",sans-serif"> stat_summary(fun = mean, geom = "point") +</span><span style="font-size:12.0pt;font-family:"Verdana",sans-serif"><o:p></o:p></span></p>
<p class="MsoNormal" style="mso-margin-top-alt:auto;mso-margin-bottom-alt:auto"><span lang="IT" style="font-size:12.0pt;font-family:"Verdana",sans-serif"> stat_summary(fun = mean, geom = "line") +</span><span style="font-size:12.0pt;font-family:"Verdana",sans-serif"><o:p></o:p></span></p>
<p class="MsoNormal" style="mso-margin-top-alt:auto;mso-margin-bottom-alt:auto"><span lang="IT" style="font-size:12.0pt;font-family:"Verdana",sans-serif">
</span><span style="font-size:12.0pt;font-family:"Verdana",sans-serif">labs(y = 'mean rAUDPCor') +<o:p></o:p></span></p>
<p class="MsoNormal" style="mso-margin-top-alt:auto;mso-margin-bottom-alt:auto"><span style="font-size:12.0pt;font-family:"Verdana",sans-serif"> labs(x = 'Variety') +<o:p></o:p></span></p>
<p class="MsoNormal" style="mso-margin-top-alt:auto;mso-margin-bottom-alt:auto"><span style="font-size:12.0pt;font-family:"Verdana",sans-serif"> theme_bw() +<o:p></o:p></span></p>
<p class="MsoNormal" style="mso-margin-top-alt:auto;mso-margin-bottom-alt:auto"><b><span style="font-size:12.0pt;font-family:"Verdana",sans-serif">easy_rotate_x_labels( angle = 90)</span></b><span style="font-size:12.0pt;font-family:"Verdana",sans-serif"><o:p></o:p></span></p>
<p class="MsoNormal" style="mso-margin-top-alt:auto;mso-margin-bottom-alt:auto"><span style="font-size:12.0pt;font-family:"Verdana",sans-serif"><o:p> </o:p></span></p>
<p class="MsoNormal" style="mso-margin-top-alt:auto;mso-margin-bottom-alt:auto"><span style="font-size:12.0pt;font-family:"Verdana",sans-serif">#------------<o:p></o:p></span></p>
</div>
<div>
<p class="MsoNormal"><span style="font-size:12.0pt;font-family:"Verdana",sans-serif"><o:p> </o:p></span></p>
</div>
<div>
<p class="MsoNormal"><span style="font-size:12.0pt;font-family:"Verdana",sans-serif"><o:p> </o:p></span></p>
</div>
<div>
<p class="MsoNormal"><span style="font-size:12.0pt;font-family:"Verdana",sans-serif">Gracias,<o:p></o:p></span></p>
</div>
<div>
<p class="MsoNormal"><span style="font-size:12.0pt;font-family:"Verdana",sans-serif">Carlos Ortega<o:p></o:p></span></p>
</div>
<div>
<p class="MsoNormal"><span style="font-size:12.0pt;font-family:"Verdana",sans-serif"><a href="http://www.qualityexcellence.es">www.qualityexcellence.es</a><o:p></o:p></span></p>
</div>
</div>
<p class="MsoNormal"><o:p> </o:p></p>
<div>
<div>
<p class="MsoNormal">El lun, 18 sept 2023 a las 22:47, Relloso Barrio, Juan Bautista (<<a href="mailto:jbautista@neiker.eus">jbautista@neiker.eus</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-top:5.0pt;margin-right:0cm;margin-bottom:5.0pt">
<div>
<div>
<div>
<p class="MsoNormal" style="mso-margin-top-alt:auto;mso-margin-bottom-alt:auto">Buenas noches.<o:p></o:p></p>
<p class="MsoNormal" style="mso-margin-top-alt:auto;mso-margin-bottom-alt:auto">Quisiera saber si alguien me puede decir como en estos comandos para un gráfico …<o:p></o:p></p>
<p class="MsoNormal" style="mso-margin-top-alt:auto;mso-margin-bottom-alt:auto"> <o:p></o:p></p>
<p class="MsoNormal" style="mso-margin-top-alt:auto;mso-margin-bottom-alt:auto"> <o:p></o:p></p>
<p class="MsoNormal" style="mso-margin-top-alt:auto;mso-margin-bottom-alt:auto">ggplot(data = AÑOS, aes(x = VARIEDAD, y = rAUDPCor, colour = ANO,<o:p></o:p></p>
<p class="MsoNormal" style="mso-margin-top-alt:auto;mso-margin-bottom-alt:auto">
<span lang="IT">group = ANO)) +</span><o:p></o:p></p>
<p class="MsoNormal" style="mso-margin-top-alt:auto;mso-margin-bottom-alt:auto"><span lang="IT"> stat_summary(fun = mean, geom = "point") +</span><o:p></o:p></p>
<p class="MsoNormal" style="mso-margin-top-alt:auto;mso-margin-bottom-alt:auto"><span lang="IT"> stat_summary(fun = mean, geom = "line") +</span><o:p></o:p></p>
<p class="MsoNormal" style="mso-margin-top-alt:auto;mso-margin-bottom-alt:auto"><span lang="IT">
</span>labs(y = 'mean rAUDPCor') +<o:p></o:p></p>
<p class="MsoNormal" style="mso-margin-top-alt:auto;mso-margin-bottom-alt:auto"> labs(x = 'Variety') +<o:p></o:p></p>
<p class="MsoNormal" style="mso-margin-top-alt:auto;mso-margin-bottom-alt:auto"> theme_bw()<o:p></o:p></p>
<p class="MsoNormal" style="mso-margin-top-alt:auto;mso-margin-bottom-alt:auto"> <o:p></o:p></p>
<p class="MsoNormal" style="mso-margin-top-alt:auto;mso-margin-bottom-alt:auto">Qué debo de añadir para que la orientación de las los nombres de las variedades del eje “X” me aparezcan en vertical en vez de en horizontal.<o:p></o:p></p>
<p class="MsoNormal" style="mso-margin-top-alt:auto;mso-margin-bottom-alt:auto">Muchas gracias.<o:p></o:p></p>
<p class="MsoNormal" style="mso-margin-top-alt:auto;mso-margin-bottom-alt:auto"><span style="font-size:12.0pt;font-family:"Trebuchet MS",sans-serif">Un saludo.</span><o:p></o:p></p>
<p class="MsoNormal" style="mso-margin-top-alt:auto;mso-margin-bottom-alt:auto"><b><span style="font-size:12.0pt;font-family:"Trebuchet MS",sans-serif;color:#55555B">Juan Bautista Relloso Barrio</span></b><o:p></o:p></p>
<p class="MsoNormal" style="mso-margin-top-alt:auto;margin-right:42.55pt"><span style="font-size:10.0pt;font-family:"Trebuchet MS",sans-serif;color:#55555B">Coordinador de Equipos e Infraestructuras | Técnico de Cultivos del Departamento de Producción Vegetal
</span><o:p></o:p></p>
<p class="MsoNormal" style="mso-margin-top-alt:auto;margin-right:42.55pt;mso-margin-bottom-alt:auto">
<span lang="IT" style="font-size:10.0pt;font-family:"Trebuchet MS",sans-serif;color:#55555B">Talde eta Azpiegitura Koordinatzailea | Laborantza teknikaria Landare Ekoizpen Departamentua
</span><o:p></o:p></p>
<p class="MsoNormal" style="margin-top:4.2pt;mso-margin-bottom-alt:auto;line-height:150%">
<a href="mailto:jbautista@neiker.eus" target="_blank"><span lang="IT" style="font-family:"Trebuchet MS",sans-serif">jbautista@neiker.eus
</span></a><span lang="IT" style="font-family:"Trebuchet MS",sans-serif;color:#55555B">| M. 688 62 98 14
</span><o:p></o:p></p>
<p class="MsoNormal" style="margin-top:4.2pt;mso-margin-bottom-alt:auto;line-height:200%">
<a href="http://www.neiker.eus/" target="_blank"><b><span lang="IT" style="font-family:"Trebuchet MS",sans-serif;color:#55555B">www.neiker.eus</span></b></a><b><span lang="IT" style="font-family:"Trebuchet MS",sans-serif;color:#55555B">
</span></b><a href="https://www.linkedin.com/company/neiker/" target="_blank"><b><span style="font-family:"Trebuchet MS",sans-serif;color:#55555B;text-decoration:none"><img border="0" width="13" height="15" style="width:.1333in;height:.1583in" id="_x0000_i1031" src="cid:image001.png@01D9EA82.0D7BB740"></span></b></a><b><span lang="IT" style="font-family:"Trebuchet MS",sans-serif;color:#55555B"> </span></b><a href="https://twitter.com/neiker_BRTA" target="_blank"><b><span style="font-family:"Trebuchet MS",sans-serif;color:#55555B;text-decoration:none"><img border="0" width="19" height="15" style="width:.2in;height:.1583in" id="_x0000_i1030" src="cid:image002.png@01D9EA82.0D7BB740"></span></b></a><a href="https://www.facebook.com/neikerBRTA" target="_blank"><b><span style="font-family:"Trebuchet MS",sans-serif;color:#55555B;text-decoration:none"><img border="0" width="17" height="15" style="width:.175in;height:.1583in" id="_x0000_i1029" src="cid:image003.png@01D9EA82.0D7BB740"></span></b></a><b><span lang="IT" style="font-family:"Trebuchet MS",sans-serif;color:#55555B"> </span></b><a href="https://www.youtube.com/user/neikertec" target="_blank"><b><span style="font-family:"Trebuchet MS",sans-serif;color:#55555B;text-decoration:none"><img border="0" width="20" height="15" style="width:.2083in;height:.1583in" id="_x0000_i1028" src="cid:image004.png@01D9EA82.0D7BB740"></span></b></a><o:p></o:p></p>
<p class="MsoNormal" style="mso-margin-top-alt:auto;mso-margin-bottom-alt:auto"><b><span style="font-size:12.0pt;font-family:"Trebuchet MS",sans-serif;color:#55555B"><img border="0" width="300" height="43" style="width:3.125in;height:.45in" id="_x0000_i1027" src="cid:image005.png@01D9EA82.0D7BB740"></span></b><b><span style="font-size:12.0pt;font-family:"Trebuchet MS",sans-serif;color:#55555B"> </span></b><b><span style="font-size:12.0pt;font-family:"Trebuchet MS",sans-serif;color:#55555B"><img border="0" width="98" height="54" style="width:1.0166in;height:.5666in" id="_x0000_i1026" src="cid:image006.jpg@01D9EA82.0D7BB740" alt="ej_ekonomia_garapen_lateral"></span></b><b><span style="font-size:12.0pt;font-family:"Trebuchet MS",sans-serif;color:#55555B"> </span></b> <img border="0" width="40" height="58" style="width:.4166in;height:.6in" id="_x0000_i1025" src="cid:image007.jpg@01D9EA82.0D7BB740"><o:p></o:p></p>
<p class="MsoNormal" style="mso-margin-top-alt:auto;mso-margin-bottom-alt:auto"><b><span style="font-size:12.0pt;font-family:"Trebuchet MS",sans-serif;color:#55555B"> </span></b><o:p></o:p></p>
<p class="MsoNormal" style="mso-margin-top-alt:auto;mso-margin-bottom-alt:auto"><a href="https://neiker.eus/eu/pribatutasun-politika/" target="_blank"><span style="font-size:6.0pt;font-family:"Trebuchet MS",sans-serif;color:#55555B">PRIBATUTASUN POLITIKA</span></a><span style="font-size:6.0pt;font-family:"Trebuchet MS",sans-serif;color:#55555B">
| </span><a href="https://neiker.eus/es/politica-privacidad/" target="_blank"><span style="font-size:6.0pt;font-family:"Trebuchet MS",sans-serif;color:#55555B">POLÍTICA DE PRIVACIDAD</span></a><span style="font-size:6.0pt;font-family:"Trebuchet MS",sans-serif;color:#55555B">
| </span><a href="https://neiker.eus/en/privacy-policy/" target="_blank"><span style="font-size:6.0pt;font-family:"Trebuchet MS",sans-serif;color:#55555B">LEGAL NOTICE</span></a><o:p></o:p></p>
<p class="MsoNormal" style="mso-margin-top-alt:auto;mso-margin-bottom-alt:auto"> <o:p></o:p></p>
</div>
</div>
<p class="MsoNormal">_______________________________________________<br>
R-help-es mailing list<br>
<a href="mailto:R-help-es@r-project.org" target="_blank">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><o:p></o:p></p>
</div>
</blockquote>
</div>
<p class="MsoNormal"><br clear="all">
<br>
<span class="gmailsignatureprefix">-- </span><o:p></o:p></p>
<div>
<p class="MsoNormal"><span style="font-family:"Verdana",sans-serif">Saludos,<br>
Carlos Ortega<br>
<a href="http://www.qualityexcellence.es" target="_blank">www.qualityexcellence.es</a></span><o:p></o:p></p>
</div>
</div>
</body>
</html>