<div dir="ltr">Por si te fuera de utilidad, esta es la respuesta de chat GPT 4.0<br><br>Parece que tienes un par de problemas y preguntas aquí. Intentaré ayudarte paso a paso.<br><br>### Problema 1: Error en la Separación de Medias HSD por Tratamiento<br><br>Sobre el código que estás utilizando para la separación de medias, el error específico que estás recibiendo `argument "trt" is missing, with no default` posiblemente se relaciona con la función `HSD.test`. Vamos a revisar el bloque de código que has compartido:<br><br>```r<br>by(pppp, pppp$TRAT, function(x) {<br> anova_result <- aov(RTOSE ~ CORTE, data = x)<br> HSD_result <- HSD.test(anova_result)<br> Tratamiento <- unique(x$TRAT)<br> return(list(Tratamiento = TRAT, HSD_result = HSD_result))<br>})<br>```<br><br>Si estás utilizando la función `HSD.test` del paquete `agricolae`, asegúrate de proporcionar todos los argumentos necesarios para esta función, que serían el objeto de anova, el nombre del tratamiento y el nivel de significancia. Por ejemplo:<br><br>```r<br>HSD_result <- HSD.test(anova_result, "CORTE", group=TRUE, console=TRUE)<br>```<br><br>Además, asegúrate de que la variable `TRAT` está disponible en el scope de tu función; en tu código, pareces utilizar `Tratamiento` para almacenar el valor único de `x$TRAT`, pero intentas devolver una variable llamada `TRAT` que no está definida. Tal vez quisiste hacer esto:<br><br>```r<br>return(list(Tratamiento = Tratamiento, HSD_result = HSD_result))<br>```<br><br>### Problema 2: Comparación de Dos Métodos para ANOVA de Split Plot<br><br>Tienes dos bloques de código para ANOVA:<br><br>1. `model <- with(CEPAS, sp.plot(REP, CEPA, VARIEDAD, trAUDPC))`<br>2. `model2.aov <- aov(trAUDPC ~ CEPA*VARIEDAD + REP + Error(REP/CEPA))`<br><br>Dado que no tengo toda la información sobre las funciones y los datos, es un poco difícil decir con certeza si ambos realizan un ANOVA de split plot de la misma manera. <br><br>- La función `sp.plot` no es estándar en R y puede ser parte de un paquete específico o un script personalizado que no estoy familiarizado con. Si proporcionas más información sobre esta función, podría ayudarte mejor.<br>- La segunda línea de código parece utilizar la función `aov` de una manera que podría ser coherente con un diseño de split plot, especificando un término de error estratificado `Error(REP/CEPA)`, pero sin tener acceso a los datos y más contexto, es un poco difícil de verificar.<br><br>Si los resultados que obtienes son diferentes, aquí hay algunas cosas que querrás revisar:<br><br>- **Datos**: Asegúrate de que los datos que se están utilizando son exactamente los mismos en ambos análisis.<br>- **Modelo**: Verifica que los modelos que estás ajustando sean equivalentes y apropiados para tu diseño experimental.<br>- **Hipótesis**: Confirma que las hipótesis que se están probando sean las mismas.<br><br>Recuerda que proporcionar un ejemplo reproducible (datos de ejemplo y código) es la mejor manera de obtener ayuda específica y precisa. Si puedes compartir más detalles, estaré encantado de ayudarte más!<br></div><br><div class="gmail_quote"><div dir="ltr" class="gmail_attr">El mié, 11 oct 2023 a las 10:32, Relloso Barrio, Juan Bautista (<jbautista@neiker.eus>) escribió:<br></div><blockquote class="gmail_quote" style="margin:0px 0px 0px 0.8ex;border-left:1px solid rgb(204,204,204);padding-left:1ex"><div class="msg5985471372216268057">
<div lang="ES" style="overflow-wrap: break-word;">
<div class="m_5985471372216268057WordSection1">
<p class="MsoNormal"><span style="font-size:13pt">Buenos días.<u></u><u></u></span></p>
<p class="MsoNormal"><span style="font-size:13pt">Perdón por insistir. Quiero hacer un ANOVA para unos datos que tienen un diseño Split plot.<u></u><u></u></span></p>
<p class="MsoNormal"><span style="font-size:13pt">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í.<u></u><u></u></span></p>
<p class="MsoNormal"><span style="font-size:13pt">Querría saber si básicamente los dos hacen un análisis de varianza SPLIT PLOT ?. Y el mismo análisis?<u></u><u></u></span></p>
<p class="MsoNormal"><span style="font-size:13pt">Los comandos que doy son estos:<u></u><u></u></span></p>
<p class="MsoNormal"><span style="font-size:13pt">CEPAS, es el nombre del archivo de datos.<u></u><u></u></span></p>
<p class="MsoNormal"><span style="font-size:13pt;color:rgb(68,114,196)">model<-with(CEPAS, sp.plot(REP, CEPA, VARIEDAD, trAUDPC))<u></u><u></u></span></p>
<p class="MsoNormal"><span style="font-size:13pt">Y el otro es este<u></u><u></u></span></p>
<p class="MsoNormal"><span style="font-size:13pt;color:rgb(68,114,196)">model2.aov<- aov(trAUDPC~CEPA*VARIEDAD+REP+Error(REP/CEPA))<u></u><u></u></span></p>
<p class="MsoNormal"><span style="font-size:13pt"><u></u> <u></u></span></p>
<div>
<p class="MsoNormal"><b><span style="font-size:12pt;font-family:"Trebuchet MS",sans-serif;color:rgb(85,85,91)"> </span></b><span style="font-size:12pt;font-family:"Trebuchet MS",sans-serif">Un saludo.<u></u><u></u></span></p>
<p class="MsoNormal"><b><span style="font-size:12pt;font-family:"Trebuchet MS",sans-serif;color:rgb(85,85,91)">Juan Bautista Relloso Barrio<u></u><u></u></span></b></p>
<p class="MsoNormal" style="margin-right:42.55pt;margin-left:0cm;margin-bottom:0.0001pt">
<span style="font-size:10pt;font-family:"Trebuchet MS",sans-serif;color:rgb(85,85,91)">Coordinador de Equipos e Infraestructuras | Técnico de Cultivos del Departamento de Producción Vegetal
<u></u><u></u></span></p>
<p class="MsoNormal" style="margin-right:42.55pt"><span lang="IT" style="font-size:10pt;font-family:"Trebuchet MS",sans-serif;color:rgb(85,85,91)">Talde eta Azpiegitura Koordinatzailea | Laborantza teknikaria Landare Ekoizpen Departamentua
<u></u><u></u></span></p>
<p class="MsoNormal" style="margin-top:4.2pt;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:rgb(85,85,91)">| M. 688 62 98 14
</span><span lang="IT" style="font-size:10pt;line-height:150%;font-family:"Trebuchet MS",sans-serif;color:rgb(85,85,91)"><u></u><u></u></span></p>
<p class="MsoNormal" style="margin-top:4.2pt;line-height:200%"><a href="http://www.neiker.eus/" target="_blank"><b><span lang="IT" style="font-family:"Trebuchet MS",sans-serif;color:rgb(85,85,91)">www.neiker.eus</span></b></a><b><span lang="IT" style="font-family:"Trebuchet MS",sans-serif;color:rgb(85,85,91)">
</span></b><a href="https://www.linkedin.com/company/neiker/" target="_blank"><b><span style="font-family:"Trebuchet MS",sans-serif;color:rgb(85,85,91);text-decoration:none"><img border="0" width="13" height="15" style="width: 0.1333in; height: 0.1583in;" id="m_5985471372216268057Imagen_x0020_15" src="cid:image001.png@01D9FC2D.E9B85580"></span></b></a><b><span lang="IT" style="font-family:"Trebuchet MS",sans-serif;color:rgb(85,85,91)"> </span></b><a href="https://twitter.com/neiker_BRTA" target="_blank"><b><span style="font-family:"Trebuchet MS",sans-serif;color:rgb(85,85,91);text-decoration:none"><img border="0" width="19" height="15" style="width: 0.2in; height: 0.1583in;" id="m_5985471372216268057Imagen_x0020_16" src="cid:image002.png@01D9FC2D.E9B85580"></span></b></a><a href="https://www.facebook.com/neikerBRTA" target="_blank"><b><span style="font-family:"Trebuchet MS",sans-serif;color:rgb(85,85,91);text-decoration:none"><img border="0" width="17" height="15" style="width: 0.175in; height: 0.1583in;" id="m_5985471372216268057Imagen_x0020_17" src="cid:image003.png@01D9FC2D.E9B85580"></span></b></a><b><span lang="IT" style="font-family:"Trebuchet MS",sans-serif;color:rgb(85,85,91)"> </span></b><a href="https://www.youtube.com/user/neikertec" target="_blank"><b><span style="font-family:"Trebuchet MS",sans-serif;color:rgb(85,85,91);text-decoration:none"><img border="0" width="20" height="15" style="width: 0.2083in; height: 0.1583in;" id="m_5985471372216268057Imagen_x0020_18" src="cid:image004.png@01D9FC2D.E9B85580"></span></b></a><b><span lang="IT" style="font-family:"Trebuchet MS",sans-serif;color:rgb(85,85,91)"><u></u><u></u></span></b></p>
<p class="MsoNormal"><b><span style="font-size:12pt;font-family:"Trebuchet MS",sans-serif;color:rgb(85,85,91)"><img border="0" width="300" height="43" style="width: 3.125in; height: 0.45in;" id="m_5985471372216268057Imagen_x0020_19" src="cid:image005.png@01D9FC2D.E9B85580"></span></b><b><span style="font-size:12pt;font-family:"Trebuchet MS",sans-serif;color:rgb(85,85,91)"> </span></b><b><span style="font-size:12pt;font-family:"Trebuchet MS",sans-serif;color:rgb(85,85,91)"><img border="0" width="98" height="54" style="width: 1.0166in; height: 0.5666in;" id="m_5985471372216268057Imagen_x0020_20" src="cid:image006.jpg@01D9FC2D.E9B85580" alt="ej_ekonomia_garapen_lateral"></span></b><b><span style="font-size:12pt;font-family:"Trebuchet MS",sans-serif;color:rgb(85,85,91)"> </span></b> <img border="0" width="40" height="58" style="width: 0.4166in; height: 0.6in;" id="m_5985471372216268057Imagen_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:12pt;font-family:"Trebuchet MS",sans-serif;color:rgb(85,85,91)"><u></u><u></u></span></b></p>
<p class="MsoNormal"><b><span style="font-size:12pt;font-family:"Trebuchet MS",sans-serif;color:rgb(85,85,91)"><u></u> <u></u></span></b></p>
<p class="MsoNormal"><a href="https://neiker.eus/eu/pribatutasun-politika/" target="_blank"><span style="font-size:6pt;font-family:"Trebuchet MS",sans-serif;color:rgb(85,85,91)">PRIBATUTASUN POLITIKA</span></a><span style="font-size:6pt;font-family:"Trebuchet MS",sans-serif;color:rgb(85,85,91)">
| </span><a href="https://neiker.eus/es/politica-privacidad/" target="_blank"><span style="font-size:6pt;font-family:"Trebuchet MS",sans-serif;color:rgb(85,85,91)">POLÍTICA DE PRIVACIDAD</span></a><span style="font-size:6pt;font-family:"Trebuchet MS",sans-serif;color:rgb(85,85,91)">
| </span><a href="https://neiker.eus/en/privacy-policy/" target="_blank"><span style="font-size:6pt;font-family:"Trebuchet MS",sans-serif;color:rgb(85,85,91)">LEGAL NOTICE</span></a><u><span style="font-size:6pt;color:rgb(85,85,91)"><u></u><u></u></span></u></p>
<p class="MsoNormal"><b><span style="font-size:12pt;font-family:"Trebuchet MS",sans-serif;color:rgb(85,85,91)"> </span></b><span> </span><b><span style="font-size:12pt;font-family:"Trebuchet MS",sans-serif;color:rgb(85,85,91)"><u></u><u></u></span></b></p>
<p class="MsoNormal"><b><span style="font-size:12pt;font-family:"Trebuchet MS",sans-serif;color:rgb(85,85,91)"><u></u> <u></u></span></b></p>
</div>
<p class="MsoNormal"><span style="font-size:13pt"><u></u> <u></u></span></p>
<div>
<div style="border-right:none;border-bottom:none;border-left:none;border-top:1pt solid rgb(225,225,225);padding:3pt 0cm 0cm">
<p class="MsoNormal"><b>De:</b> R-help-es <<a href="mailto:r-help-es-bounces@r-project.org" target="_blank">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" target="_blank">r-help-es@r-project.org</a><br>
<b>Asunto:</b> [R-es] no encuentro el error<u></u><u></u></p>
</div>
</div>
<p class="MsoNormal"><u></u> <u></u></p>
<p class="MsoNormal"><span>Buenas tardes.<u></u><u></u></span></p>
<p class="MsoNormal"><span>Intento hacer la separación de medias “por tratamientos”<u></u><u></u></span></p>
<p class="MsoNormal"><span>Pero me da un error que no consigo corregir. No sé que hago mal. Os paso los comandos y el error<u></u><u></u></span></p>
<p class="MsoNormal"><span><u></u> <u></u></span></p>
<p class="MsoNormal"><span># Separación de medias HSD por Tratamiento No funciona<u></u><u></u></span></p>
<p class="MsoNormal"><span>by(pppp, pppp$TRAT, function(x) {<u></u><u></u></span></p>
<p class="MsoNormal"><span> </span><span lang="IT">anova_result <- aov(RTOSE ~ CORTE, data = x)<u></u><u></u></span></p>
<p class="MsoNormal"><span lang="IT"> </span>
<span>HSD_result <- HSD.test(anova_result)<u></u><u></u></span></p>
<p class="MsoNormal"><span> Tratamiento <- unique(x$TRAT)<u></u><u></u></span></p>
<p class="MsoNormal"><span> return(list(Tratamiento = TRAT, HSD_result = HSD_result))<u></u><u></u></span></p>
<p class="MsoNormal"><span>})<u></u><u></u></span></p>
<p class="MsoNormal"><span>Y el error es este:<u></u><u></u></span></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:"Lucida Console";color:rgb(197,6,11);background:rgb(230,230,230)">Error in pmatch(trt, names(A)) :
<u></u><u></u></span></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:"Lucida Console";color:rgb(197,6,11);background:rgb(230,230,230)">argument "trt" is missing, with no default</span><span><u></u><u></u></span></p>
<p class="MsoNormal"><span><u></u> <u></u></span></p>
<p class="MsoNormal"><b><span style="font-size:12pt;font-family:"Trebuchet MS",sans-serif;color:rgb(85,85,91)"> </span></b><span style="font-size:12pt;font-family:"Trebuchet MS",sans-serif">Un saludo.<u></u><u></u></span></p>
<p class="MsoNormal"><b><span style="font-size:12pt;font-family:"Trebuchet MS",sans-serif;color:rgb(85,85,91)">Juan Bautista Relloso Barrio<u></u><u></u></span></b></p>
<p class="MsoNormal" style="margin-right:42.55pt;margin-left:0cm;margin-bottom:0.0001pt">
<span style="font-size:10pt;font-family:"Trebuchet MS",sans-serif;color:rgb(85,85,91)">Coordinador de Equipos e Infraestructuras | Técnico de Cultivos del Departamento de Producción Vegetal
<u></u><u></u></span></p>
<p class="MsoNormal" style="margin-right:42.55pt"><span lang="IT" style="font-size:10pt;font-family:"Trebuchet MS",sans-serif;color:rgb(85,85,91)">Talde eta Azpiegitura Koordinatzailea | Laborantza teknikaria Landare Ekoizpen Departamentua
<u></u><u></u></span></p>
<p class="MsoNormal" style="margin-top:4.2pt;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:rgb(85,85,91)">| M. 688 62 98 14
</span><span lang="IT" style="font-size:10pt;line-height:150%;font-family:"Trebuchet MS",sans-serif;color:rgb(85,85,91)"><u></u><u></u></span></p>
<p class="MsoNormal" style="margin-top:4.2pt;line-height:200%"><a href="http://www.neiker.eus/" target="_blank"><b><span lang="IT" style="font-family:"Trebuchet MS",sans-serif;color:rgb(85,85,91)">www.neiker.eus</span></b></a><b><span lang="IT" style="font-family:"Trebuchet MS",sans-serif;color:rgb(85,85,91)">
</span></b><a href="https://www.linkedin.com/company/neiker/" target="_blank"><b><span style="font-family:"Trebuchet MS",sans-serif;color:rgb(85,85,91);text-decoration:none"><img border="0" width="13" height="15" style="width: 0.1333in; height: 0.1583in;" id="m_5985471372216268057Imagen_x0020_8" src="cid:image001.png@01D9FC2D.E9B85580"></span></b></a><b><span lang="IT" style="font-family:"Trebuchet MS",sans-serif;color:rgb(85,85,91)"> </span></b><a href="https://twitter.com/neiker_BRTA" target="_blank"><b><span style="font-family:"Trebuchet MS",sans-serif;color:rgb(85,85,91);text-decoration:none"><img border="0" width="19" height="15" style="width: 0.2in; height: 0.1583in;" id="m_5985471372216268057Imagen_x0020_9" src="cid:image002.png@01D9FC2D.E9B85580"></span></b></a><a href="https://www.facebook.com/neikerBRTA" target="_blank"><b><span style="font-family:"Trebuchet MS",sans-serif;color:rgb(85,85,91);text-decoration:none"><img border="0" width="17" height="15" style="width: 0.175in; height: 0.1583in;" id="m_5985471372216268057Imagen_x0020_10" src="cid:image003.png@01D9FC2D.E9B85580"></span></b></a><b><span lang="IT" style="font-family:"Trebuchet MS",sans-serif;color:rgb(85,85,91)"> </span></b><a href="https://www.youtube.com/user/neikertec" target="_blank"><b><span style="font-family:"Trebuchet MS",sans-serif;color:rgb(85,85,91);text-decoration:none"><img border="0" width="20" height="15" style="width: 0.2083in; height: 0.1583in;" id="m_5985471372216268057Imagen_x0020_11" src="cid:image004.png@01D9FC2D.E9B85580"></span></b></a><b><span lang="IT" style="font-family:"Trebuchet MS",sans-serif;color:rgb(85,85,91)"><u></u><u></u></span></b></p>
<p class="MsoNormal"><b><span style="font-size:12pt;font-family:"Trebuchet MS",sans-serif;color:rgb(85,85,91)"><img border="0" width="300" height="43" style="width: 3.125in; height: 0.45in;" id="m_5985471372216268057Imagen_x0020_12" src="cid:image005.png@01D9FC2D.E9B85580"></span></b><b><span style="font-size:12pt;font-family:"Trebuchet MS",sans-serif;color:rgb(85,85,91)"> </span></b><b><span style="font-size:12pt;font-family:"Trebuchet MS",sans-serif;color:rgb(85,85,91)"><img border="0" width="98" height="54" style="width: 1.0166in; height: 0.5666in;" id="m_5985471372216268057Imagen_x0020_13" src="cid:image006.jpg@01D9FC2D.E9B85580" alt="ej_ekonomia_garapen_lateral"></span></b><b><span style="font-size:12pt;font-family:"Trebuchet MS",sans-serif;color:rgb(85,85,91)"> </span></b> <img border="0" width="40" height="58" style="width: 0.4166in; height: 0.6in;" id="m_5985471372216268057Imagen_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:12pt;font-family:"Trebuchet MS",sans-serif;color:rgb(85,85,91)"><u></u><u></u></span></b></p>
<p class="MsoNormal"><b><span style="font-size:12pt;font-family:"Trebuchet MS",sans-serif;color:rgb(85,85,91)"><u></u> <u></u></span></b></p>
<p class="MsoNormal"><a href="https://neiker.eus/eu/pribatutasun-politika/" target="_blank"><span style="font-size:6pt;font-family:"Trebuchet MS",sans-serif;color:rgb(85,85,91)">PRIBATUTASUN POLITIKA</span></a><span style="font-size:6pt;font-family:"Trebuchet MS",sans-serif;color:rgb(85,85,91)">
| </span><a href="https://neiker.eus/es/politica-privacidad/" target="_blank"><span style="font-size:6pt;font-family:"Trebuchet MS",sans-serif;color:rgb(85,85,91)">POLÍTICA DE PRIVACIDAD</span></a><span style="font-size:6pt;font-family:"Trebuchet MS",sans-serif;color:rgb(85,85,91)">
| </span><a href="https://neiker.eus/en/privacy-policy/" target="_blank"><span style="font-size:6pt;font-family:"Trebuchet MS",sans-serif;color:rgb(85,85,91)">LEGAL NOTICE</span></a><u><span style="font-size:6pt;color:rgb(85,85,91)"><u></u><u></u></span></u></p>
<p class="MsoNormal"><b><span style="font-size:12pt;font-family:"Trebuchet MS",sans-serif;color:rgb(85,85,91)"> </span></b><span> </span><b><span style="font-size:12pt;font-family:"Trebuchet MS",sans-serif;color:rgb(85,85,91)"><u></u><u></u></span></b></p>
<p class="MsoNormal"><b><span style="font-size:12pt;font-family:"Trebuchet MS",sans-serif;color:rgb(85,85,91)"><u></u> <u></u></span></b></p>
<p class="MsoNormal"><span><u></u> <u></u></span></p>
<div style="border-right:none;border-bottom:none;border-left:none;border-top:1pt solid rgb(225,225,225);padding:3pt 0cm 0cm">
<p class="MsoNormal"><b>De:</b> Carlos Ortega <<a href="mailto:cof@qualityexcellence.es" target="_blank">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" target="_blank">jbautista@neiker.eus</a>><br>
<b>CC:</b> <a href="mailto:r-help-es@r-project.org" target="_blank">r-help-es@r-project.org</a><br>
<b>Asunto:</b> Re: [R-es] Boxplot ordenados...<u></u><u></u></p>
</div>
<p class="MsoNormal"><u></u> <u></u></p>
<div>
<div>
<p class="MsoNormal"><span style="font-size:12pt;font-family:Verdana,sans-serif">Hola Juan,<u></u><u></u></span></p>
</div>
<div>
<p class="MsoNormal"><span style="font-size:12pt;font-family:Verdana,sans-serif"><u></u> <u></u></span></p>
</div>
<div>
<p class="MsoNormal"><span style="font-size:12pt;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".<u></u><u></u></span></p>
</div>
<div>
<p class="MsoNormal"><span style="font-size:12pt;font-family:Verdana,sans-serif">Sería así:<u></u><u></u></span></p>
</div>
<div>
<p class="MsoNormal"><span style="font-size:12pt;font-family:Verdana,sans-serif"><u></u> <u></u></span></p>
</div>
<div>
<p class="MsoNormal"><span style="font-size:12pt;font-family:Verdana,sans-serif">#-------------<u></u><u></u></span></p>
</div>
<div>
<p class="MsoNormal"><b><span style="font-size:12pt;font-family:Verdana,sans-serif;color:red">library(ggeasy)</span></b><span style="font-size:12pt;font-family:Verdana,sans-serif"><u></u><u></u></span></p>
</div>
<div>
<p class="MsoNormal"><span style="font-size:12pt;font-family:Verdana,sans-serif"><u></u> <u></u></span></p>
</div>
<div>
<p class="MsoNormal"><span style="font-size:12pt;font-family:Verdana,sans-serif">ggplot(data = AÑOS, aes(x = VARIEDAD, y = rAUDPCor, colour = ANO,<u></u><u></u></span></p>
<p class="MsoNormal"><span style="font-size:12pt;font-family:Verdana,sans-serif">
</span><span lang="IT" style="font-size:12pt;font-family:Verdana,sans-serif">group = ANO)) +</span><span style="font-size:12pt;font-family:Verdana,sans-serif"><u></u><u></u></span></p>
<p class="MsoNormal"><span lang="IT" style="font-size:12pt;font-family:Verdana,sans-serif"> stat_summary(fun = mean, geom = "point") +</span><span style="font-size:12pt;font-family:Verdana,sans-serif"><u></u><u></u></span></p>
<p class="MsoNormal"><span lang="IT" style="font-size:12pt;font-family:Verdana,sans-serif"> stat_summary(fun = mean, geom = "line") +</span><span style="font-size:12pt;font-family:Verdana,sans-serif"><u></u><u></u></span></p>
<p class="MsoNormal"><span lang="IT" style="font-size:12pt;font-family:Verdana,sans-serif">
</span><span style="font-size:12pt;font-family:Verdana,sans-serif">labs(y = 'mean rAUDPCor') +<u></u><u></u></span></p>
<p class="MsoNormal"><span style="font-size:12pt;font-family:Verdana,sans-serif"> labs(x = 'Variety') +<u></u><u></u></span></p>
<p class="MsoNormal"><span style="font-size:12pt;font-family:Verdana,sans-serif"> theme_bw() +<u></u><u></u></span></p>
<p class="MsoNormal"><b><span style="font-size:12pt;font-family:Verdana,sans-serif">easy_rotate_x_labels( angle = 90)</span></b><span style="font-size:12pt;font-family:Verdana,sans-serif"><u></u><u></u></span></p>
<p class="MsoNormal"><span style="font-size:12pt;font-family:Verdana,sans-serif"><u></u> <u></u></span></p>
<p class="MsoNormal"><span style="font-size:12pt;font-family:Verdana,sans-serif">#------------<u></u><u></u></span></p>
</div>
<div>
<p class="MsoNormal"><span style="font-size:12pt;font-family:Verdana,sans-serif"><u></u> <u></u></span></p>
</div>
<div>
<p class="MsoNormal"><span style="font-size:12pt;font-family:Verdana,sans-serif"><u></u> <u></u></span></p>
</div>
<div>
<p class="MsoNormal"><span style="font-size:12pt;font-family:Verdana,sans-serif">Gracias,<u></u><u></u></span></p>
</div>
<div>
<p class="MsoNormal"><span style="font-size:12pt;font-family:Verdana,sans-serif">Carlos Ortega<u></u><u></u></span></p>
</div>
<div>
<p class="MsoNormal"><span style="font-size:12pt;font-family:Verdana,sans-serif"><a href="http://www.qualityexcellence.es" target="_blank">www.qualityexcellence.es</a><u></u><u></u></span></p>
</div>
</div>
<p class="MsoNormal"><u></u> <u></u></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" target="_blank">jbautista@neiker.eus</a>>) escribió:<u></u><u></u></p>
</div>
<blockquote style="border-top:none;border-right:none;border-bottom:none;border-left:1pt solid rgb(204,204,204);padding:0cm 0cm 0cm 6pt;margin:5pt 0cm 5pt 4.8pt">
<div>
<div>
<div>
<p class="MsoNormal">Buenas noches.<u></u><u></u></p>
<p class="MsoNormal">Quisiera saber si alguien me puede decir como en estos comandos para un gráfico …<u></u><u></u></p>
<p class="MsoNormal"> <u></u><u></u></p>
<p class="MsoNormal"> <u></u><u></u></p>
<p class="MsoNormal">ggplot(data = AÑOS, aes(x = VARIEDAD, y = rAUDPCor, colour = ANO,<u></u><u></u></p>
<p class="MsoNormal">
<span lang="IT">group = ANO)) +</span><u></u><u></u></p>
<p class="MsoNormal"><span lang="IT"> stat_summary(fun = mean, geom = "point") +</span><u></u><u></u></p>
<p class="MsoNormal"><span lang="IT"> stat_summary(fun = mean, geom = "line") +</span><u></u><u></u></p>
<p class="MsoNormal"><span lang="IT">
</span>labs(y = 'mean rAUDPCor') +<u></u><u></u></p>
<p class="MsoNormal"> labs(x = 'Variety') +<u></u><u></u></p>
<p class="MsoNormal"> theme_bw()<u></u><u></u></p>
<p class="MsoNormal"> <u></u><u></u></p>
<p class="MsoNormal">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.<u></u><u></u></p>
<p class="MsoNormal">Muchas gracias.<u></u><u></u></p>
<p class="MsoNormal"><span style="font-size:12pt;font-family:"Trebuchet MS",sans-serif">Un saludo.</span><u></u><u></u></p>
<p class="MsoNormal"><b><span style="font-size:12pt;font-family:"Trebuchet MS",sans-serif;color:rgb(85,85,91)">Juan Bautista Relloso Barrio</span></b><u></u><u></u></p>
<p class="MsoNormal" style="margin-right:42.55pt"><span style="font-size:10pt;font-family:"Trebuchet MS",sans-serif;color:rgb(85,85,91)">Coordinador de Equipos e Infraestructuras | Técnico de Cultivos del Departamento de Producción Vegetal
</span><u></u><u></u></p>
<p class="MsoNormal" style="margin-right:42.55pt">
<span lang="IT" style="font-size:10pt;font-family:"Trebuchet MS",sans-serif;color:rgb(85,85,91)">Talde eta Azpiegitura Koordinatzailea | Laborantza teknikaria Landare Ekoizpen Departamentua
</span><u></u><u></u></p>
<p class="MsoNormal" style="margin-top:4.2pt;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:rgb(85,85,91)">| M. 688 62 98 14
</span><u></u><u></u></p>
<p class="MsoNormal" style="margin-top:4.2pt;line-height:200%">
<a href="http://www.neiker.eus/" target="_blank"><b><span lang="IT" style="font-family:"Trebuchet MS",sans-serif;color:rgb(85,85,91)">www.neiker.eus</span></b></a><b><span lang="IT" style="font-family:"Trebuchet MS",sans-serif;color:rgb(85,85,91)">
</span></b><a href="https://www.linkedin.com/company/neiker/" target="_blank"><b><span style="font-family:"Trebuchet MS",sans-serif;color:rgb(85,85,91);text-decoration:none"><img border="0" width="13" height="15" style="width: 0.1333in; height: 0.1583in;" id="m_5985471372216268057_x0000_i1031"></span></b></a><b><span lang="IT" style="font-family:"Trebuchet MS",sans-serif;color:rgb(85,85,91)"> </span></b><a href="https://twitter.com/neiker_BRTA" target="_blank"><b><span style="font-family:"Trebuchet MS",sans-serif;color:rgb(85,85,91);text-decoration:none"><img border="0" width="19" height="15" style="width: 0.2in; height: 0.1583in;" id="m_5985471372216268057_x0000_i1030"></span></b></a><a href="https://www.facebook.com/neikerBRTA" target="_blank"><b><span style="font-family:"Trebuchet MS",sans-serif;color:rgb(85,85,91);text-decoration:none"><img border="0" width="17" height="15" style="width: 0.175in; height: 0.1583in;" id="m_5985471372216268057_x0000_i1029"></span></b></a><b><span lang="IT" style="font-family:"Trebuchet MS",sans-serif;color:rgb(85,85,91)"> </span></b><a href="https://www.youtube.com/user/neikertec" target="_blank"><b><span style="font-family:"Trebuchet MS",sans-serif;color:rgb(85,85,91);text-decoration:none"><img border="0" width="20" height="15" style="width: 0.2083in; height: 0.1583in;" id="m_5985471372216268057_x0000_i1028"></span></b></a><u></u><u></u></p>
<p class="MsoNormal"><b><span style="font-size:12pt;font-family:"Trebuchet MS",sans-serif;color:rgb(85,85,91)"><img border="0" width="300" height="43" style="width: 3.125in; height: 0.45in;" id="m_5985471372216268057_x0000_i1027"></span></b><b><span style="font-size:12pt;font-family:"Trebuchet MS",sans-serif;color:rgb(85,85,91)"> </span></b><b><span style="font-size:12pt;font-family:"Trebuchet MS",sans-serif;color:rgb(85,85,91)"><img border="0" width="98" height="54" style="width: 1.0166in; height: 0.5666in;" id="m_5985471372216268057_x0000_i1026" alt="ej_ekonomia_garapen_lateral"></span></b><b><span style="font-size:12pt;font-family:"Trebuchet MS",sans-serif;color:rgb(85,85,91)"> </span></b> <img border="0" width="40" height="58" style="width: 0.4166in; height: 0.6in;" id="m_5985471372216268057_x0000_i1025"><u></u><u></u></p>
<p class="MsoNormal"><b><span style="font-size:12pt;font-family:"Trebuchet MS",sans-serif;color:rgb(85,85,91)"> </span></b><u></u><u></u></p>
<p class="MsoNormal"><a href="https://neiker.eus/eu/pribatutasun-politika/" target="_blank"><span style="font-size:6pt;font-family:"Trebuchet MS",sans-serif;color:rgb(85,85,91)">PRIBATUTASUN POLITIKA</span></a><span style="font-size:6pt;font-family:"Trebuchet MS",sans-serif;color:rgb(85,85,91)">
| </span><a href="https://neiker.eus/es/politica-privacidad/" target="_blank"><span style="font-size:6pt;font-family:"Trebuchet MS",sans-serif;color:rgb(85,85,91)">POLÍTICA DE PRIVACIDAD</span></a><span style="font-size:6pt;font-family:"Trebuchet MS",sans-serif;color:rgb(85,85,91)">
| </span><a href="https://neiker.eus/en/privacy-policy/" target="_blank"><span style="font-size:6pt;font-family:"Trebuchet MS",sans-serif;color:rgb(85,85,91)">LEGAL NOTICE</span></a><u></u><u></u></p>
<p class="MsoNormal"> <u></u><u></u></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><u></u><u></u></p>
</div>
</blockquote>
</div>
<p class="MsoNormal"><br clear="all">
<br>
<span class="m_5985471372216268057gmailsignatureprefix">-- </span><u></u><u></u></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><u></u><u></u></p>
</div>
</div>
</div>
_______________________________________________<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" rel="noreferrer" target="_blank">https://stat.ethz.ch/mailman/listinfo/r-help-es</a><br>
</div></blockquote></div>