Cómo doblar la leyenda en dos filas en ggplot2 en R

En este artículo, vamos a ver cómo dibujar una leyenda ggplot2 con dos filas en el lenguaje de programación R.

Si queremos dibujar ggplot2 Legend con dos filas, debemos agregar funciones de guía y guía_leyenda a la función theme(). Dentro de la función guides(), tomamos el parámetro llamado color, que tiene como valor una llamada a la función de guía guide_legend(). 

Dentro de la función guide_legend(), tomamos un argumento llamado nrow, que tiene como valor el número deseado de filas de leyenda.

Sintaxis: guía_leyenda (nrow)

Parámetro:  

nrow : el número deseado de filas de la leyenda.

Retorno: Guías de leyendas para varias escalas

Trama de datos en uso:

  Batch Students                        Class
1  2017     2300                DSA Essential
2  2018     1200                 Placement100
3  2019     3500                  C++: Expert
4  2020     1400     Web Development Bootcamp
5  2021      120 Android Development Bootcamp

Para crear un diagrama R, usamos la función ggplot() y, para convertirlo en un diagrama de dispersión, agregamos la función geom_point(), asignamos este diagrama completo al objeto de datos gplot. Primero creemos una trama regular para que la diferencia sea evidente.

Ejemplo: Leyenda por defecto

library("ggplot2")
    
# Create a DataFrame
data <- data.frame(Batch = c(2017, 2018, 2019, 2020, 2021),
                   Students = c(2300, 1200, 3500, 1400, 120),
                   Class = c("DSA Essential", "Placement100",
                             "C++: Expert", "Web Development Bootcamp",
                             "Android DevelopmentBootcamp"))
  
# Create a ggplot2 scatter plot
ggplot(data, aes(Batch, Students, color = Class)) +
geom_point(size = 4)

Producción:

Ahora, para doblar la leyenda, agregue la función guides() con color como guide_legend() junto con el parámetro nrow=2, que dobla la leyenda en dos filas.

Ejemplo: Leyenda doblada en 2 filas

library("ggplot2")
    
# Create a DataFrame
data <- data.frame(Batch = c(2017, 2018, 2019, 2020, 2021),
                   Students = c(2300, 1200, 3500, 1400, 120),
                   Class = c("DSA Essential", "Placement100", 
                             "C++: Expert", "Web Development Bootcamp", 
                             "Android Development Bootcamp"))
  
# Create a ggplot2 scatter plot
ggplot(data, aes(Batch, Students, color = Class)) + 
geom_point(size = 4) + 
guides(color = guide_legend(nrow = 2))

Producción: