[R-es] Presentación de gráficos

[Proyecto R-UCA]

Buenas,

Desconozco si estas opciones funcionan con gráficos generados con qqplot, pero

1. La instrucción par parte la pantalla en una matriz de forma que los sucesivos gráficos se van pintando en celdas.
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.
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

Más abajo pongo ejemplos de uso.

# Ejemplo de 1
# Guardamos los parámetros gráficos
pg <- par()
# Partimos la ventana gráfica en 4 celdas, dos filas y dos columnas
par(mfrow=c(2,2))
# Hacemos los gráficos
hist(runif(100), main="Muestra 1", xlab="", ylab="", col="red")
hist(runif(100), main="Muestra 2", xlab="", ylab="", col.axis="blue")
hist(runif(100), main="Muestra 3", xlab="", ylab="", lty=10)
hist(runif(100), main="Muestra 4", xlab="", ylab="", col.main="yellow")
# Restauramos los parámetros
par(pg)


# Ejemplo de 2
split.screen(c(1,2))
screen(1)
hist(runif(100), main="Muestra 1", xlab="", ylab="", col="red")
split.screen(c(2,1),2)
screen(3)
hist(runif(100), main="Muestra 2", xlab="", ylab="", col.axis="blue")
screen(4)
hist(runif(100), main="Muestra 3", xlab="", ylab="", lty=10)

# Ejemplo de 3
# Dividimos la pantalla en 2 filas y 3 columnas
layout(matrix(c(1, 1, 2, 3, 2, 4), 2, 3))
layout.show(3)

Un saludo.
-- 
--------------------------------------------------

http://knuth.uca.es/R
--------------------------------------------------
Proyecto R-UCA
--------------------------------------------------
Nombre: Manuel Muñoz Márquez
Departamento: Departamento de Estadística e Investigación Operativa
Institución: Escuela Superior de Ingeniería
Organización: Universidad de Cádiz
--------------------------------------------------

El lun, 05-06-2023 a las 14:49 -0500, David Camilo Gomez Medina escribió:
> 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?
> 
> Quedo atento, gracias de antemano.
> 
> Código:
> pdf("RESULTS/GRAPHS/mi_grafico.pdf", paper = "letter")
> grid.arrange(nina_plot_1, nina_plot_2, nina_plot_3, nina_plot_4,
>              nino_plot_1, nino_plot_2, nino_plot_3, nino_plot_4,
>              norm_plot_1, norm_plot_2, norm_plot_3, norm_plot_4,
>              nrow = 4, ncol = 3)
> dev.off()
> 
> Adjunto la imagen resultado:
> 
> image.png
> 
> Aviso legal: 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 www.unal.edu.co. 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.
> _______________________________________________
> R-help-es mailing list
> R-help-es using r-project.org
> https://urldefense.com/v3/__https://stat.ethz.ch/mailman/listinfo/r-help-es__;!!D9dNQwwGXtA!WEOmwARNYG3iWGJ0VaNfRksSrCH7Is_jTqVHEjqFRBSACaBxQokrPxHjzwxSD-nZfgK16NBPEgVkXdp7qws$
>  

------------ próxima parte ------------
Se ha borrado un adjunto en formato HTML...
URL: <https://stat.ethz.ch/pipermail/r-help-es/attachments/20230606/4626982a/attachment-0001.html>

------------ próxima parte ------------
A non-text attachment was scrubbed...
Name: image.png
Type: image/png
Size: 113028 bytes
Desc: no disponible
URL: <https://stat.ethz.ch/pipermail/r-help-es/attachments/20230606/4626982a/attachment-0001.png>