¿Cómo rotar solo el texto en la anotación en ggplot2?

R tiene ggplot2, que es un paquete de visualización de datos para el lenguaje de programación estadística R. Después de analizar y trazar gráficos, podemos agregar una anotación en nuestro gráfico mediante la función annotate().

Sintaxis: anotar()

Parámetros:

• geom: especifica el texto
• x : ubicación del eje x
• y : ubicación del eje y
• etiqueta: contenido de texto personalizado
• color : color del contenido textual
• tamaño : tamaño del texto
• fontface : fuente del texto
• ángulo : ángulo del texto

Acercarse

• Módulo de importación
• Crear marco de datos
• Trazar gráfico
• Use la función annotate() con los parámetros requeridos

Primero, creemos un gráfico de líneas simple.

Programa:

# Import Package
library(ggplot2)
  
# df dataset
df <- data.frame(a=c(2,4,8),
                 b=c(5, 10, 15))
  
# Basic plot
plot = ggplot(df, aes(x = a, y = b)) + geom_point() + geom_line()
  
# angle=90
plot + annotate('text', x = 6, y = 10, 
                label = 'GeeksForGeeks',
                size = 10,
                angle='90')

Producción:

Podemos rotar el texto en la anotación por parámetro de ángulo. Para modificar el ángulo del texto, se utiliza un argumento de «ángulo». En el siguiente ejemplo, el ángulo asignado al texto «GeeksForGeeks» es 180. 

Para cambiar la fuente del texto, use el argumento fontface y asigne un tipo de fuente como negrita, cursiva, etc. Aquí, se asigna una fuente en cursiva al texto.

Programa :

# Import Package
library(ggplot2)
  
# df dataset
df <- data.frame(a=c(2,4,8),
                 b=c(5, 10, 15))
  
# Basic plot
plot = ggplot(df, aes(x = a, y = b)) + geom_point() + geom_line()
  
plot + annotate('text', x = 6, y = 7.5, 
                  label = 'GeeksForGeeks',
                  size = 10,
                  fontface='bold',
                  angle='180')

Producción:

Ejemplo 2:

# Import Package
library(ggplot2)
  
# df dataset
df <- data.frame(a=c(2,4,8),
                 b=c(5, 10, 15))
   
# Basic plot
myplot = ggplot(df, aes(x = a, y = b)) + geom_point() + geom_line()
  
myplot + annotate('text', x = 6, y = 10, 
                  label = 'GeeksForGeeks',
                  size = 10,
                  angle='90')

Producción: