¿Cómo resaltar texto dentro de un gráfico creado por ggplot2 usando un cuadro en R?

En este artículo, discutiremos cómo resaltar texto dentro de un gráfico creado por ggplot2 usando un cuadro en el lenguaje de programación R. 

Hay muchas maneras de hacer esto, pero nos centraremos en una de ellas. Usaremos la función geom_label presente en el paquete ggplot2 en R. Esta función nos permite crear un rectángulo debajo del texto para que sea más fácil de leer. También podemos resaltar nuestro texto dentro del cuadro rectangular y también podemos agregar otras estéticas de ese texto usando esta función. Esto se puede lograr con una sola línea de código, por lo tanto, es fácil y recomendable. 

Sintaxis: 

geom_label( mapeo = NULL, data = NULL, stat = “identidad”, posición = “identidad”, …., parse = FALSE, nudge_x = 0, nudge_y = 0, label.r = unit( 0.15, “lines”), etiqueta.relleno = unidad (0,25, «líneas»), etiqueta.tamaño = 0,25, na.rm = FALSO, heredar.aes = VERDADERO, mostrar.leyenda = NA)

El enfoque es simple y directo, llame a la función geom_label() y proporcione los siguientes parámetros: estética del texto, etiqueta del texto y argumento de relleno para resaltar el texto dentro de la etiqueta de texto.

Ejemplo 1.1: Ejemplo para mostrar un gráfico regular para que la diferencia sea evidente.

library(ggplot2)
  
data(mtcars)
head(mtcars)
  
# Plotting the dataset in a scatterplot
ggplot(mtcars, aes(wt, mpg)) + geom_point(color="blue")

Producción :

Ahora, agregaremos texto y lo resaltaremos en nuestro diagrama de dispersión usando la función geom_label tomando como argumentos la estética del texto, como las variables x e y, la etiqueta del texto y el color del texto resaltado dentro del cuadro.

Ejemplo 1.2: Ejemplo para trazar texto resaltado dentro de la trama

library(ggplot2)
  
data(mtcars)
head(mtcars)
  
# Plotting the data, adding the text and highlighting it
ggplot(mtcars, aes(wt, mpg)) + geom_point(color="blue") + 
        geom_label(aes(x=5, y=30, label = "GFG weight vs mileage"),
                   fill= "yellow")

Producción :

Veamos una implementación más.

Ejemplo 2.1: Gráfico regular, de modo que la diferencia sea aparente

library(ggplot2)
  
data(iris)
head(iris)
  
# Line plot
ggplot(iris, aes(Sepal.Length, Petal.Length)) + geom_line()

Producción :

Ahora, agregaremos texto y lo resaltaremos en nuestro diagrama de líneas usando la función geom_label proporcionando la estética del texto como argumentos.

Ejemplo 2.2: Ejemplo para trazar texto resaltado dentro de la trama

library(ggplot2)
  
data(iris)
head(iris)
  
# Adding the text and highlighting it
ggplot(iris, aes(Sepal.Length, Petal.Length)) + geom_line() + 
            geom_label(aes(x=7.5, y=7, label = "GFG Sepal vs Petal"),
                       fill= "red")

Producción :