<html><head></head><body><div>Buenas,</div><div><br></div><div>Desconozco si estas opciones funcionan con gráficos generados con qqplot, pero</div><div><br></div><div>1. La instrucción par parte la pantalla en una matriz de forma que los sucesivos gráficos se van pintando en celdas.</div><div>2. Similar split.screen. La función split.screen divide el dispositivo en partes que a su vez pueden dividirse en partes. La función screen selecciona el dispositivo a usar.</div><div>3. Otra alternativa es la instrucción layout que recibe como argumento una matriz que asocia a cada porción de la pantalla un número</div><div><br></div><div>Más abajo pongo ejemplos de uso.</div><div><br></div><div># Ejemplo de 1</div><div># Guardamos los parámetros gráficos</div><div>pg <- par()</div><div># Partimos la ventana gráfica en 4 celdas, dos filas y dos columnas</div><div>par(mfrow=c(2,2))</div><div># Hacemos los gráficos</div><div>hist(runif(100), main="Muestra 1", xlab="", ylab="", col="red")</div><div>hist(runif(100), main="Muestra 2", xlab="", ylab="", col.axis="blue")</div><div>hist(runif(100), main="Muestra 3", xlab="", ylab="", lty=10)</div><div>hist(runif(100), main="Muestra 4", xlab="", ylab="", col.main="yellow")</div><div># Restauramos los parámetros</div><div>par(pg)</div><div><br></div><div><br></div><div># Ejemplo de 2</div><div>split.screen(c(1,2))</div><div>screen(1)</div><div><div><span style="font-size: 14.660252px;">hist(runif(100), main="Muestra 1", xlab="", ylab="", col="red")</span></div></div><div>split.screen(c(2,1),2)</div><div>screen(3)</div><div style="caret-color: rgb(0, 0, 0); color: rgb(0, 0, 0); font-family: Ubuntu; font-size: 14.660252px; font-style: normal; font-variant-caps: normal; font-weight: 400; letter-spacing: normal; orphans: auto; text-align: start; text-indent: 0px; text-transform: none; white-space: normal; widows: auto; word-spacing: 0px; -webkit-tap-highlight-color: rgba(0, 0, 0, 0.4); -webkit-text-stroke-width: 0px; text-decoration: none;">hist(runif(100), main="Muestra 2", xlab="", ylab="", col.axis="blue")</div><div style="caret-color: rgb(0, 0, 0); color: rgb(0, 0, 0); font-family: Ubuntu; font-size: 14.660252px; font-style: normal; font-variant-caps: normal; font-weight: 400; letter-spacing: normal; text-align: start; text-transform: none; white-space: normal; word-spacing: 0px; -webkit-tap-highlight-color: rgba(0, 0, 0, 0.4); -webkit-text-stroke-width: 0px; text-decoration: none;">screen(4)</div><div style="font-size: 14.660252px;">hist(runif(100), main="Muestra 3", xlab="", ylab="", lty=10)</div><div><br></div><div># Ejemplo de 3</div><div># Dividimos la pantalla en 2 filas y 3 columnas</div><div>layout(matrix(c(1, 1, 2, 3, 2, 4), 2, 3))</div><div>layout.show(3)</div><div><br></div><div>Un saludo.</div><div><span><pre>-- <br></pre><div data-evo-paragraph="" class="" style="width: 71ch;" data-evo-signature-plain-text-mode="">--------------------------------------------------</div><div data-evo-paragraph="" class="" style="width: 71ch;"><br></div><div data-evo-paragraph="" class="" style="width: 71ch;"><a href="http://knuth.uca.es/R">http://knuth.uca.es/R</a></div><div data-evo-paragraph="" class="" style="width: 71ch;">--------------------------------------------------</div><div data-evo-paragraph="" class="" style="width: 71ch;">Proyecto R-UCA</div><div data-evo-paragraph="" class="" style="width: 71ch;">--------------------------------------------------</div><div data-evo-paragraph="" class="" style="width: 71ch;">Nombre: Manuel Muñoz Márquez</div><div data-evo-paragraph="" class="" style="width: 71ch;">Departamento: Departamento de Estadística e Investigación Operativa</div><div data-evo-paragraph="" class="" style="width: 71ch;">Institución: Escuela Superior de Ingeniería</div><div data-evo-paragraph="" class="" style="width: 71ch;">Organización: Universidad de Cádiz</div><div data-evo-paragraph="" class="" style="width: 71ch;">--------------------------------------------------</div></span></div><div><br></div><div>El lun, 05-06-2023 a las 14:49 -0500, David Camilo Gomez Medina escribió:</div><blockquote type="cite" style="margin:0 0 0 .8ex; border-left:2px #729fcf solid;padding-left:1ex"><div dir="ltr"><div class="gmail_default" style="font-family:georgia,serif;font-size:small;color:#000000">Buen día para todos. Deseo presentar distintos gráficos en uno solo, pero he tenido problemas con el resultado, ¿alguien sabe cómo podría mejorarlo?</div><div class="gmail_default" style="font-family:georgia,serif;font-size:small;color:#000000"><br></div><div class="gmail_default" style="font-family:georgia,serif;font-size:small;color:#000000">Quedo atento, gracias de antemano.</div><div class="gmail_default" style="font-family:georgia,serif;font-size:small;color:#000000"><br></div><div class="gmail_default" style="font-family:georgia,serif;font-size:small;color:#000000"><b>Código:</b></div><div class="gmail_default" style="font-family:georgia,serif;font-size:small;color:#000000">pdf("RESULTS/GRAPHS/mi_grafico.pdf", paper = "letter")<br>grid.arrange(nina_plot_1, nina_plot_2, nina_plot_3, nina_plot_4,<br> nino_plot_1, nino_plot_2, nino_plot_3, nino_plot_4,<br> norm_plot_1, norm_plot_2, norm_plot_3, norm_plot_4,<br> nrow = 4, ncol = 3)<br>dev.off()<br></div><div class="gmail_default" style="font-family:georgia,serif;font-size:small;color:#000000"><br></div><div class="gmail_default" style="font-family:georgia,serif;font-size:small;color:#000000">Adjunto la imagen resultado:</div><div class="gmail_default" style="font-family:georgia,serif;font-size:small;color:#000000"><br></div><div class="gmail_default" style="font-family:georgia,serif;font-size:small;color:#000000"><img src="cid:ii_lij9m7uf0" alt="image.png" width="515" height="482"><br></div></div><div><br></div><div><b style="color:rgb(34,34,34);font-family:Calibri,sans-serif;font-size:14.6667px;font-style:normal;letter-spacing:normal;text-align:justify;text-indent:0px;text-transform:none;white-space:normal;word-spacing:0px;background-color:rgb(255,255,255)"><span style="font-size:6.5pt;line-height:9.96667px;font-family:"Ancizar Sans",sans-serif;color:black">Aviso legal:</span></b><span style="font-style:normal;font-weight:400;letter-spacing:normal;text-align:justify;text-indent:0px;text-transform:none;white-space:normal;word-spacing:0px;background-color:rgb(255,255,255);font-size:6.5pt;line-height:9.96667px;font-family:"Ancizar Sans",sans-serif;color:black"> El contenido de este mensaje y los archivos adjuntos son confidenciales y de uso exclusivo de la Universidad Nacional de Colombia. Se encuentran dirigidos sólo para el uso del destinatario al cual van enviados. La reproducción, lectura y/o copia se encuentran prohibidas a cualquier persona diferente a este y puede ser ilegal. Si usted lo ha recibido por error, infórmenos y elimínelo de su correo. Los Datos Personales serán tratados conforme a la Ley 1581 de 2012 y a nuestra Política de Datos Personales que podrá consultar en la página web </span><span style="color:rgb(34,34,34);font-family:Calibri,sans-serif;font-style:normal;font-weight:400;letter-spacing:normal;text-align:justify;text-indent:0px;text-transform:none;white-space:normal;word-spacing:0px;background-color:rgb(255,255,255);font-size:6.5pt;line-height:9.96667px"><a href="https://urldefense.com/v3/__http://www.unal.edu.co/__;!!D9dNQwwGXtA!WEOmwARNYG3iWGJ0VaNfRksSrCH7Is_jTqVHEjqFRBSACaBxQokrPxHjzwxSD-nZfgK16NBPEgVkF_9Fa2g$" style="color:blue" target="_blank"><span style="font-family:"Ancizar Sans",sans-serif">www.unal.edu.co</span></a></span><span style="font-style:normal;font-weight:400;letter-spacing:normal;text-align:justify;text-indent:0px;text-transform:none;white-space:normal;word-spacing:0px;background-color:rgb(255,255,255);font-size:6.5pt;line-height:9.96667px;font-family:"Ancizar Sans",sans-serif;color:black">.<u><span> </span></u>Las opiniones, informaciones, conclusiones y cualquier otro tipo de dato contenido en este correo electrónico, no relacionados con la actividad de la Universidad Nacional de Colombia, se entenderá como personales y de ninguna manera son avaladas por la Universidad.</span><br><span style="color:rgb(245,132,111);font-family:ClearSans-Regular,Arial,Verdana,Helvetica,sans-serif;font-size:14px;font-style:normal;font-weight:400;letter-spacing:normal;text-align:left;text-indent:0px;text-transform:none;white-space:normal;word-spacing:0px;background-color:rgb(255,255,255);display:inline!important;float:none"><span></span></span><span style="color:rgb(245,132,111);font-family:ClearSans-Regular,Arial,Verdana,Helvetica,sans-serif;font-size:14px;font-style:normal;font-weight:400;letter-spacing:normal;text-align:left;text-indent:0px;text-transform:none;white-space:normal;word-spacing:0px;background-color:rgb(255,255,255);display:inline!important;float:none"><span></span></span></div><div>_______________________________________________<br></div><div>R-help-es mailing list<br></div><div><a href="mailto:R-help-es@r-project.org">R-help-es@r-project.org</a><br></div><div><a href="https://urldefense.com/v3/__https://stat.ethz.ch/mailman/listinfo/r-help-es__;!!D9dNQwwGXtA!WEOmwARNYG3iWGJ0VaNfRksSrCH7Is_jTqVHEjqFRBSACaBxQokrPxHjzwxSD-nZfgK16NBPEgVkXdp7qws$">https://urldefense.com/v3/__https://stat.ethz.ch/mailman/listinfo/r-help-es__;!!D9dNQwwGXtA!WEOmwARNYG3iWGJ0VaNfRksSrCH7Is_jTqVHEjqFRBSACaBxQokrPxHjzwxSD-nZfgK16NBPEgVkXdp7qws$</a> <br></div></blockquote></body></html>