Coloque el texto de ggplot en cada esquina en R

En este artículo, aprenderemos cómo colocar el texto ggplot2 en cada esquina en el lenguaje de programación R. 

Para realizar esta tarea, utilizaremos la función geom_text() de la biblioteca ggplot. También usaremos palabras clave reservadas en R, que es Inf e -Inf. Estas son palabras clave reservadas en el lenguaje de programación R y almacenan el valor de Infinito e infinito negativo. Inf almacena el mayor valor mientras que -Inf almacena el menor valor posible.

Sintaxis:

geom_text(datos, aes(…), etiqueta()

Primero importe los paquetes requeridos y prepare una lista de texto que irá a cada esquina. Además, prepare una lista para todas las coordenadas X y las coordenadas Y para que los datos se coloquen en cada esquina. Cree una trama regular con algunos datos. Ahora usa geom_text() y pasa la lista así hecha como argumento y también la lista de coordenadas para posicionarlas correctamente.

La lista de coordenadas X, Y contiene la combinación de Inf e -Inf, lo que ayuda a decidir el orden de las esquinas, por ejemplo (-Inf, -Inf) indica la parte inferior izquierda, (Inf, Inf) indica la parte superior derecha, etc. Usamos estos valores para determinar las esquinas extremas.

En el atributo de texto , proporcionamos el texto que queremos trazar. Nota: aquí tenemos que proporcionar los datos del texto en el orden en que queremos que se tracen en las esquinas. Luego, en el atributo x_adjust, y_adjust , proporcionamos las coordenadas que podemos usar para ajustar la posición del texto en los planos X e Y. 

Ejemplo 1:

library(ggplot2) 
 
# prepare the data
annotations <- data.frame(
        X = c(-Inf,-Inf,Inf,Inf),
        Y =  c(-Inf, Inf,-Inf,Inf),
        text = c("(x0,y0)","(x0,y1)",
                 "(x1,y0)","(x1,y1)"),
        x_adjust = c(0,0,1,1),
        y_adjust = c(0,1,0,1))
 
ggplot(cars, aes(speed, dist)) + geom_point()+
geom_text(data=annotations, aes(
  x=X,y=Y,hjust=x_adjust,vjust=y_adjust,label=text))

Producción:

Ejemplo 2:
 

library(ggplot2) 
 
# prepare the data
annotations <- data.frame(
 
        X = c(-Inf,-Inf,Inf,Inf),
        Y =  c(-Inf, Inf,-Inf,Inf),
        text = c("Shifted-Up(x0,y0)","(x0,y1)",
                 "Shifted-Left(x1,y0)","(x1,y1)"),
        x_adjust = c(0,0,1.5,1),
        y_adjust = c(-2,1,0,1)
)
 
#scatter plot
  ggplot(cars, aes(speed, dist)) + geom_point()+
geom_text(data=annotations, aes(
  x=X,y=Y,hjust=x_adjust,vjust=y_adjust,label=text))

Producción: