Anotar texto en una faceta individual en ggplot2 en R

En este artículo, discutiremos cómo anotar un texto en la faceta Individual en ggplot2 en el lenguaje de programación R.

Para trazar facetas en el lenguaje de programación R, usamos la función facet_grid() de la biblioteca ggplot2 . El facet_grid() se utiliza para formar una array de paneles definidos por variables de facetado de fila y columna, es decir, para mostrar todas las combinaciones de las variables que existen en los datos. Anotar texto es algo similar al texto de la etiqueta, pero hay una diferencia entre una etiqueta y la anotación es que, por lo general, no podemos cambiar la posición y las propiedades de una etiqueta, pero al anotar un texto no existe una regla predefinida. La anotación son metadatos adicionales sobre la figura, y una etiqueta es una pieza de información sobre la figura utilizada para identificar la figura. 

Sintaxis: facet_grid(rows = NULL,cols = NULL,scales = “fixed”,space = “fixed”,shrink = TRUE,..)

Parámetros:

• filas, columnas : se utiliza para definir grupos de facetas en la dimensión de filas o columnas.
• scales : para establecer el uso compartido de escalas en todas las facetas. El valor predeterminado es «fijo», lo que significa que todas las escalas se comparten en todas las facetas. Si varían en las filas, las escalas se establecen en «libre_x», para variar en las columnas, se establece en «libre_y», y tanto para las filas como para las columnas, se establece en «libre».
• espacio : Para establecer el tamaño del panel. De forma predeterminada, está configurado para ser «fijo», es decir, todos los paneles tienen el mismo tamaño. Si se establece en «free_y», su altura será proporcional a la longitud de la escala y, si se establece en «free_x», su ancho será proporcional a la longitud de la escala x y si se establece ser «libre», entonces tanto la altura como el ancho variarán.
• encogimiento : Se utiliza para ajustar la salida del resultado de las estadísticas a la pantalla, por defecto es verdadero.

Primero, cargue e instale las bibliotecas necesarias para trazar la faceta, es decir, cargue la biblioteca ggplot2 y cree un conjunto de datos ficticio.

Conjunto de datos en uso:

   Name Gender Price
1     A      M     1
2     B      M     2
3     C      F     3
4     D      F     4
5     E      M     5

Trace los datos usando el comando ggplot pasando el marco de datos como argumento. Veamos primero la trama sin anotaciones, para que la diferencia sea evidente.

Ejemplo: Gráfico sin texto de anotación en facetas individuales.

# Facet before adding Annotating text 
  
# installing ggplot2 library
install.packages("ggplot2")
  
# loading the library
library("ggplot2")
  
# creating a dummy dataset
people <- c("A","B","C","D","E")
gender <- c("M","M","F","F","M")    
price <- c(1,2,3,4,5)
  
df <- data.frame(Name = people, Gender = gender, Price = price)
  
# plotting the data using ggplot
plt <- ggplot(
      
    # providing dataset
    df,
      
    # to plot price vs Gender 
    aes(x=Price, y=Gender)
      
    # to plot data point as a (.) dot
) + geom_point()
  
# creating facet from Gender and Price variable
plt <- plt + facet_grid(Gender ~ Price)
  
# displaying facet plot
plt

Producción:

Trazar antes de agregar texto de anotación

Para agregar texto, cree un texto anotado personalizado que desee aplicar al gráfico.

Ejemplo:

ann_dat_text<-data.frame(

 Género=c(“F”,”M”),

 Precio=c(3,4),

 label=c(“Parcela 1″,”Parcela 2”)

)

Aquí, en la declaración anterior, estamos creando un marco de datos que usaremos para anotar el texto en la faceta. Aquí estamos aplicando la etiqueta «Parcela 1» y «Parcela 2» en ambas facetas, en el lado «F» de la columna de género tendremos texto anotado como «Parcela 1» y en el lado «M» estaremos teniendo un texto anotado “Parcela 2”. Y Price especificará la posición del texto.

Ahora aplique este texto personalizado a las facetas pasándolas dentro de la función geom_text() con los argumentos apropiados proporcionados con los valores requeridos.

Sintaxis:

geom_text(datos, etiqueta)

Usando facet_grid, hemos creado dos facetas y en geom_text() los datos serán los datos anotados personalizados recién creados que vamos a usar para aplicar texto anotado en la faceta.

Ejemplo: Trazar después de anotar facetas individuales.

# Annotating text on individual facet in ggplot2
  
# installing ggplot2 library
install.packages("ggplot2")
  
# loading the library
library("ggplot2")
  
# creating a dummy dataset
people <- c("A","B","C","D","E")
gender <- c("M","M","F","F","M")    
price <- c(1,2,3,4,5)
  
df <- data.frame(Name = people, Gender = gender, Price = price)
  
# plotting the data using ggplot
plt <- ggplot(
      
    # providing dataset
    df,
      
    # to plot price vs Gender 
    aes(x=Price, y=Gender)
      
    # to plot data point as a (.) dot
) + geom_point()
  
  
# creating a dataframe for annotating text
ann_dat_text<-data.frame(
      
    # Providing F as an annotation of Plot 1
    # and M as an annotation of Plot 2
    Gender=c("F","M"),
    Price=c(3,4),
    label=c("Plot 1","Plot 2")
)
  
# creating facet from Gender and Price variable
plt <- plt + facet_grid(Gender ~ Price)
  
# annotating the graph with the custom label made 
plt + geom_text(
      
    # the new dataframe for annotating text
    data = ann_dat_text,
    label=ann_dat_text$label
)

Producción:

Texto anotado en una faceta