Trabajando con Legends en R usando ggplot2

Una leyenda en un gráfico nos ayuda a comprender qué grupos pertenecen a cada barra, línea o cuadro en función de su tipo, color , etc. Podemos agregar un cuadro de leyenda en R usando la función legend() . Estos funcionan como guías. Las claves se pueden determinar mediante saltos de escala. En este artículo, trabajaremos con leyendas y personalización asociada usando ggplot2 en el lenguaje de programación R. 

Sintaxis: 

leyenda (x, y = NULL, leyenda, relleno = NULL, col = par («col»), borde = «negro», lty, lwd, pch)

Instalación

Primero instalaremos y cargaremos el paquete ggplot2 ya que, sin este paquete, no podríamos trazar nuestros datos. Entonces, podemos instalar el paquete usando el siguiente comando.

install.packages("ggplot2")

Cargue el paquete usando la función de biblioteca en el lenguaje de programación R.

Intentaremos trazar diferentes aspectos de los datos usando la función ggplot() . Para un gráfico que trata con datos que se pueden comparar entre sí, se generará una leyenda adecuada de forma predeterminada como referencia.

Ejemplo: programa R para mostrar la leyenda predeterminada

library(ggplot2)
  
# Read the dataset
data("USArrests")
  
head(USArrests)
  
# Plot the data
plt <- ggplot(USArrests, aes(Murder, Assault, colour = UrbanPop)) +
geom_point()
  
plt

Producción :

La leyenda así generada se puede personalizar fácilmente según los requisitos.

Cambiar el color y el tamaño del título de la leyenda 

Aquí, cambiaremos el color y el tamaño del título de la leyenda formada a partir de la trama. Esto se puede hacer usando la función theme(). Pasaremos el argumento legend.title dentro de esta función. El argumento legend.title básicamente se refiere al título de la leyenda formada. El argumento legend.title es igual a la función element_text que se hereda del título y acepta argumentos como color, tamaño, etc.

Sintaxis: 

tema (leyenda.título = elemento_texto(), …., completo = FALSO, validar = VERDADERO)

Ejemplo: programa R para personalizar el título de la leyenda

# Installing and loading the package
library(ggplot2)
  
# Read the dataset
data("USArrests")
  
# Plot the data
plt <- ggplot(USArrests, aes(Murder, Assault, colour = UrbanPop)) +
geom_point()
  
# Changing the title and font style of the 
# text of legend
plt + theme(legend.title = element_text(colour = "red", size = 12))

Producción :

Cambiar el color y el tamaño de las etiquetas 

Aquí cambiaremos el color y el tamaño de las etiquetas de la leyenda formada. Esto se puede hacer usando la función theme() pasando legend.text como argumento. La leyenda.texto es igual a la función element_text() que se hereda del texto y acepta argumentos como color, tamaño, fuente, etc. El argumento leyenda.texto básicamente se refiere a las etiquetas de los elementos de la leyenda .

Sintaxis: 

tema( leyenda.texto = elemento_texto(), … , completo = FALSO, validar = VERDADERO)

Ejemplo: programa R para personalizar etiquetas de leyenda

library(ggplot2)
  
# Read the dataset
data("USArrests")
  
head(USArrests)
  
# Plot the data
plt <- ggplot(USArrests, aes(Murder, Assault, colour = UrbanPop)) +
geom_point()
  
plt + theme(legend.text = element_text(colour = "blue", size = 9))
  
plt

Producción :

Ocultar el título de la leyenda 

Ocultaremos el título de la leyenda aquí usando la función theme() proporcionando legend.title como argumento. Aquí, legend.title es igual a la función element_blank(). element_blank() no asigna espacio y tampoco dibuja nada.

Sintaxis: 

tema (leyenda.título = elemento_en blanco(),…., completo = FALSO, validar = VERDADERO)

Ejemplo: programa R para ocultar el título de la leyenda

# Installing and loading the package
library(ggplot2)
  
# Read the dataset
data("USArrests")
  
# Plot the data
plt <- ggplot(USArrests, aes(Murder, Assault, colour = UrbanPop)) +
geom_point()
  
# Hiding legend title
plt + theme(legend.title = element_blank())

Producción :

Eliminando leyenda

Podemos eliminar la leyenda proporcionando «ninguno» en legend.position como argumento de la función theme(). El argumento legend.position se refiere a la posición de las leyendas.

Sintaxis: 

tema (leyenda.posición = “ninguno”, …, completo = FALSO, validar = VERDADERO)

Ejemplo: programa R para eliminar leyendas

# Installing and loading the package
library(ggplot2)
  
# Read the dataset
data("USArrests")
  
# Plot the data
plt <- ggplot(USArrests, aes(Murder, Assault, colour = UrbanPop))+
geom_point()
  
# Removing legend 
plt + theme(legend.position = "none")

Producción :

Colocar la posición de la leyenda en la parte superior

Aquí, cambiaremos la posición de la leyenda de lado a lado. Haremos esto usando la función theme() y proporcionando legend.position como argumento. El argumento legend.position se asignará como parte superior.

Sintaxis: 

tema (leyenda.posición = “superior”, …, completo = FALSO, validar = VERDADERO)

Ejemplo: programa R para colocar la leyenda en la parte superior

# Installing and loading the package
library(ggplot2)
  
# Read the dataset
data("USArrests")
  
# Plot the data
plt <- ggplot(USArrests, aes(Murder, Assault, colour = UrbanPop)) + 
geom_point()
  
# For placing the legend position as top
plt + theme(legend.position = "top")

Producción :

Colocar la posición de la leyenda en la parte inferior 

Aquí, cambiaremos la posición de la leyenda y la colocaremos en la parte inferior. Usaremos la función theme() y pasaremos el argumento legend.position. El argumento legend.position se asignará con la parte inferior.

Sintaxis: 

tema (leyenda.posición = “abajo”, …, completo = FALSO, validar = VERDADERO)

Ejemplo: programa R para colocar la leyenda en la parte inferior

# Installing and loading the package
library(ggplot2)
  
# Read the dataset
data("USArrests")
  
# Plot the data
plt <- ggplot(USArrests, aes(Murder, Assault, colour = UrbanPop)) + 
geom_point()
  
# For placing the legend position as bottom
plt + theme(legend.position = "bottom")

Producción :

Dibujar un cuadro alrededor de la leyenda y agregarle un color de fondo 

Agregaremos un cuadro alrededor de nuestra leyenda y le agregaremos color usando la función theme() y proporcionando legend.background como argumento. legend.background es igual a la función element_rect(), donde esta función crea un cuadro rectangular alrededor de nuestra leyenda, y podemos usar el argumento de relleno para agregarle color de fondo.

Sintaxis: 

tema(leyenda.caja.fondo = elemento_rect(), …., completo = FALSO, validar = VERDADERO)

Ejemplo: programa R para dibujar un cuadro alrededor de una leyenda y agregarle un color de fondo

library(ggplot2)
  
# Read the dataset
data("USArrests")
  
head(USArrests)
  
# Plot the data
plt <- ggplot(USArrests, aes(Murder, Assault, colour = UrbanPop)) +
geom_point()
  
# Drawing a rectangular box around legend 
# and adding background color to it
plt + theme( legend.background = element_rect( fill = "lightblue", 
                size = 0.5, linetype = "solid", colour = "black"))

Producción :

Cambiar el estilo de la tecla y cambiar el color de la leyenda

Podemos cambiar el estilo clave de la leyenda y el color de la leyenda utilizando la función de tema y proporcionando legend.key como argumento. El argumento legend.key es igual a la función element_rect que contiene «color» para el color del contorno de las claves de la leyenda y «relleno» para el color interior de las claves como sus argumentos. La función as.factor() se usará para el argumento de color para convertir un vector o columna de numérico a factor.

Ejemplo: estilo de tecla de cambio de programa R y color de leyenda

library(ggplot2)
  
data("USArrests")
  
head(USArrests)
  
# Plot the data
plt <- ggplot(USArrests, aes(Murder, Assault, colour = 
                    as.factor(UrbanPop))) + geom_point()+
      theme(legend.key = element_rect( color = "black", 
                                      fill = "light blue"))
  
plt

Producción :

Ejemplo 2: estilo de tecla de cambio de programa R y color de leyenda

library(ggplot2)
  
data("USArrests")
   
head(USArrests)
  
# Plot the data
plt <- ggplot(USArrests, aes(Murder, Assault, colour = as.factor(UrbanPop))) +
geom_point()+ theme(legend.key = element_rect( color = "white", fill = "black"))
  
plt

Producción :