En este artículo, discutiremos cómo dibujar múltiples diagramas de celosía en una ventana.
Módulo utilizado
- lattice: El paquete lattice usa el paquete grid para proporcionar mejores relaciones entre los datos. Es un paquete complementario para la implementación de gráficos Trellis (gráficos que muestran relaciones entre variables condicionadas juntas).
- gridExtra: este paquete proporciona múltiples funciones que definen varias cuadrículas que se utilizarán para organizar múltiples parcelas.
Ambos paquetes deben instalarse en el sistema explícitamente. Para empezar, necesitamos configurar un marco de datos, que contenga los datos que se trazarán en los ejes x e y, y también otra columna que se puede usar para diferenciar entre celosías. Para cada valor único de esta columna, se generará un diagrama de celosía diferente.
Los gráficos de celosía individuales se crean a través de la función xyplot(), esta función produce un gráfico de dispersión. Para cada fila, una determinada condición decide en qué celosía debe colocarse.
Sintaxis:
xyplot(fórmula, datos, ..)
Parámetro:
- fórmula: Para especificar cierta condición
- datos: trama de datos a trazar
Una vez que todos los diagramas de celosía están listos, es hora de organizarlos en una ventana para que se emplee esta función de arreglo() del paquete gridExtra.
La función de arreglar() en R Language se usa para reordenar las filas de la tabla con la ayuda de los nombres de las columnas como expresión pasada a la función.
Sintaxis: arreglar (x, expr)
Parámetros:
x: conjunto de datos a reordenar
expr: expresión lógica con nombre de columna
Ejemplo:
R
library(lattice)
library(gridExtra)
df<-data.frame(x = rnorm(100),
y = rnorm(100),
z = c(rep("A", 35),
rep("B", 40),
rep("C", 25))
)
df
lat1 <- xyplot(y~x,df[df$z == 'A',])
lat2 <- xyplot(y~x,df[df$z == 'B',])
lat3 <- xyplot(y~x,df[df$z == 'C',])
grid.arrange(lat1, lat2, lat3, ncol = 3)
Producción:
Publicación traducida automáticamente
Artículo escrito por vanshikagoyal43 y traducido por Barcelona Geeks. The original can be accessed here. Licence: CCBY-SA