Invertir el orden de una leyenda ggplot2

En este artículo, veremos cómo invertir el orden de los elementos de leyenda de los gráficos ggplot2 en el lenguaje de programación R.

Empezando

Primero, cargue el paquete ggplot2 usando la función library() . Si aún no lo ha instalado, simplemente puede instalarlo escribiendo el siguiente comando en R Console.

install.packages("ggplot2")

Primero creemos una trama regular, para que la diferencia sea evidente.

Ejemplo:

# Load Package
library("ggplot2")
 
# Create a DataFrame
data <- data.frame(Xdata = rnorm(7),                       
                   Ydata = rnorm(7),
                   LegendData = c("ld-01", "ld-02",
                                  "ld-03", "ld-04",
                                  "ld-05", "ld-06",
                                  "ld-07"))
 
# Create a Scatter Plot
ggplot(data, aes(Xdata, Ydata, color = LegendData)) +  
  geom_point(size = 10)

Producción:

Diagrama de dispersión con leyenda en orden predeterminado

Para invertir el orden de la leyenda, tenemos que agregar las funciones guides() y guide_legend() a la función geom_point(). Dentro de la función guides(), tomamos el parámetro color , que llamará a la función de guía guide_legend() como valor. Dentro de la función guide_legend(), tomamos un argumento llamado reverse , que es un parámetro lógico. Si “reverse = TRUE”, el orden de las leyendas se invierte; de ​​lo contrario, permanecerá como estaba.

Sintaxis: guías (…)

Parámetro:

• …: ya sea una string o una llamada a una función de guía. aquí llamamos a la función de guía guide_legend().

Retorno: cada escala se puede configurar escala por escala 

Sintaxis: guía_leyenda (inverso = VERDADERO)

Parámetro:

• reverse : Es un parámetro lógico que especifica el orden de la leyenda de la trama.

Retorno: Guías de leyendas para varias escalas

Ejemplo:

# Load Package
library("ggplot2")
 
# Create a DataFrame
data <- data.frame(Xdata = rnorm(7),                       
                   Ydata = rnorm(7),
                   LegendData = c("ld-01", "ld-02",
                                  "ld-03", "ld-04",
                                  "ld-05",  "ld-06",
                                  "ld-07"))
 
# Create a Scatter Plot and change
# the size of legend
ggplot(data, aes(Xdata, Ydata, color = LegendData)) +  
  geom_point(size = 10)+
  guides(color = guide_legend(reverse=TRUE))

Producción: 

Diagrama de dispersión con leyenda en orden inverso