Gráficos de líneas lado a lado en R

En este artículo, discutiremos cómo hacer un gráfico de líneas lado a lado en el lenguaje de programación R. 

Método 1: Usar la función par()

Aquí usaremos la función par() para dividir cuadros en cuadrículas.

Sintaxis: par(mfrow, mar, mgp, las)

Parámetros:

• mfrow: Un vector numérico de longitud 2, que establece las filas y columnas en las que se debe dividir el marco.
• mar: un vector numérico de longitud 4, que establece los tamaños de los márgenes en el siguiente orden: inferior, izquierdo, superior y derecho.
• mgp: un vector numérico de longitud 3, que establece las ubicaciones de las etiquetas de los ejes en relación con el borde de la ventana de trazado interior.
• las: un valor numérico que indica la orientación de las etiquetas de marca y cualquier otro texto agregado a un gráfico después de su inicialización.

Aquí, al cambiar los valores de fila y columna, podemos dibujar gráficos en ellos. Para dibujar gráficos uno al lado del otro, mantendremos la fila como 1 y la columna como el no. de parcelas requeridas.

# Define data-set columns
x1 <- c(31,13,25,31,16)
x2 <- c(12,23,43,12,22,45,32) 
  
# set the plotting area into a 1*2 array
par(mfrow = c(1, 2))    
  
# Draw the two line chart using above datasets
plot(x1, type="o", col="green")
plot(x2, type="o", col="blue")

Producción:

Método 2: Usar ggplot2

Aquí usaremos g

Sintaxis: grid.arrange(plot, nrow, ncol)

Parámetro:

• plot: ggplot2 parcela que queremos organizar
• nrow: Número de filas
• ncol: Número de columnas

Aquí, al cambiar los valores de nrow y ncol, podemos dibujar gráficos en ellos. Para dibujar gráficos uno al lado del otro, mantendremos nrow como 1 y ncol como el no. de parcelas requeridas.

# Define data-set columns
x1 <- c(31,13,25,31,16)
x2 <- c(12,23,43,12,22,45,32) 
x3 <- c(234,123,210)
  
label1 <- c('geek','geek-i-knack',
            'technical-scipter',
            'content-writer','problem-setter')
  
label2 <- c('sun','mon','tue',
            'wed','thur','fri','sat') 
  
label3 <- c('solved','attempted','unsolved')
  
# Create data frame using above data column
data1 <- data.frame(x1,label1)
data2 <- data.frame(x2,label2)
data3 <- data.frame(x3,label3)
  
# set the plotting area into a 1*3 array
par(mfrow = c(1, 3))
  
# import library ggplot2 and gridExtra
library(ggplot2)
library(gridExtra)
  
# Draw the three line
# chart using above datasets
plot1<-ggplot(data1,
              aes(x=label1, y=x1, group=1)) +
geom_line()+ geom_point()
plot2<-ggplot(data2, aes(x=label2, y=x2, group=1)) +
geom_line(linetype = "dashed")+ geom_point()
  
plot3<-ggplot(data3, aes(x=label3, y=x3, group=1)) +
geom_line(color="green")+ geom_point()
  
# Use grid.arrange to put plots in columns
grid.arrange(plot1, plot2, plot3, ncol=3)

Producción: