Trazar etiquetas al final del gráfico de líneas ggplot en R

En este artículo, veremos el enfoque para trazar etiquetas al final del diagrama de líneas ggplot2 en el lenguaje de programación R.

En este enfoque para trazar las etiquetas al final de la línea ggplot2, el usuario necesita instalar e importar el paquete ggplot2 y ggrepel en la consola de trabajo R, aquí se usará el paquete ggplot2 para trazar el potenciómetro de línea ggplot2 simple y el ggrepel El paquete se usa aquí para agregar las etiquetas al final del diagrama de líneas trazado y luego el usuario debe llamar a la función geom_label_repel() del paquete ggrepel con la función del tema del paquete ggplot2 y especificar que sus parámetros son según los requisitos, continuar con este proceso conducirá al trazado de las etiquetas al final del gráfico de líneas ggplot2 en el lenguaje de programación R.

La función geom_label_repel() se usa para agregar texto directamente a la trama. geom_label_repel dibuja un rectángulo debajo del texto, haciéndolo más fácil de leer. Las etiquetas de texto se repelen entre sí y se alejan de los puntos de datos.

Sintaxis:

geom_label_repel( mapeo = NULL,datos = NULL,stat = “identidad”,posición = “identidad”,parse = FALSE, nudge_x = 0,na.rm)

Parámetros:

• mapeo:-Conjunto de mapeos estéticos creados por aes o aes_. Si se especifica y heritage.aes ​​= TRUE (valor predeterminado), se combina con la asignación predeterminada en el nivel superior de la gráfica. Solo necesita proporcionar el mapeo si no hay un mapeo definido para la trama.
• datos:-Un marco de datos. Si se especifica, anula el marco de datos predeterminado definido en el nivel superior del gráfico.
• stat:-La transformación estadística que se usará en los datos de esta capa, como una string.
• posición: -Ajuste de posición, ya sea como una string, o como resultado de una llamada a una función de ajuste de posición.
• parse:-Si es VERDADERO, las etiquetas se analizarán en expresiones y se mostrarán como se describe en la gráfica matemática
• na.rm:-Si es FALSO (valor predeterminado), elimina los valores faltantes con una advertencia. Si es verdadero, elimina silenciosamente los valores que faltan.

Tracemos primero una trama regular sin ningún cambio, de modo que la diferencia sea evidente.

Ejemplo: trama inicial

library("ggplot2")
library("ggrepel")
  
gfg<- data.frame(x = 1:10,
                 y = c(rnorm(10),
                       rnorm(10,3,3),
                       rnorm(10, 5, 3),
                       rnorm(10, 10, 1.5),
                       rnorm(10, 5, 2)),
                 group = rep(LETTERS[1:5], each = 10))
  
ggplot(gfg, aes(x, y, col = group)) +geom_line()

Producción:

Ahora apliquemos lo requerido de acuerdo con el enfoque anterior para agregar etiquetas de trama al final.

Ejemplo: agregar etiquetas de parcela al final 

library("ggplot2")
library("ggrepel")
  
gfg<- data.frame(x = 1:10,
                 y = c(rnorm(10),
                       rnorm(10,3,3),
                       rnorm(10, 5, 3),
                       rnorm(10, 10, 1.5),
                       rnorm(10, 5, 2)),
                 group = rep(LETTERS[1:5], each = 10))
  
gfg$label <- NA
  
gfg$label[which(gfg$x == max(gfg$x))] <- gfg$group[which(gfg$x == max(gfg$x))]
  
ggplot(gfg, aes(x, y, col = group)) +geom_line() + geom_label_repel(aes(
  label = label), nudge_x = 1, na.rm = TRUE) 

Producción: