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:
R
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:
R
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:
Publicación traducida automáticamente
Artículo escrito por sudhanshublaze y traducido por Barcelona Geeks. The original can be accessed here. Licence: CCBY-SA