¿Cómo agregar etiquetas sobre cada barra en Barplot en R?

En este artículo, veremos cómo agregar etiquetas sobre cada barra en el gráfico de barras en el lenguaje de programación R. 

Para agregar etiquetas encima de cada barra en Barplot en R usamos la función geom_text() del paquete ggplot2.

Sintaxis: plot+ geom_text(aes(label = value, nudge_y )

Parámetros:

• valor: campo de valor cuyas etiquetas deben mostrarse.
• nudge_y: cambio de distancia en dirección vertical para la etiqueta

Crear un gráfico de barras básico sin etiquetas encima de las barras:

En el siguiente ejemplo, crearemos un marco de datos y luego trazaremos un gráfico de barras con este marco de datos sin etiquetas.

# Create sample data
set.seed(5642)                            
sample_data <- data.frame(name = c("Geek1","Geek2",
                                   "Geek3","Geek4",
                                   "Geeek5") ,
                          value = c(31,12,15,28,45))
# Load ggplot2 package
library("ggplot2")
 
# Create bar plot
plot<-ggplot(sample_data,
             aes(name,value)) +
geom_bar(stat = "identity")
plot

Producción:

Obtenga etiquetas en la parte superior de las barras

En el siguiente ejemplo, agregaremos geom_text() en el gráfico para obtener etiquetas en la parte superior de cada barra.

# Create sample data
set.seed(5642)                            
sample_data <- data.frame(name = c("Geek1","Geek2",
                                   "Geek3","Geek4",
                                   "Geeek5") ,
                          value = c(31,12,15,28,45))
# Load ggplot2 package
library("ggplot2")
 
# Create bar plot with labels
plot<-ggplot(sample_data,
             aes(name,value)) +
geom_bar(stat = "identity")+
geom_text(aes(label = signif(value)), nudge_y = 3)
plot

Producción:

Múltiples etiquetas en la parte superior de las barras

Al ajustar los valores de nudge_y, puede agregar múltiples etiquetas en la parte superior de las barras.

# Create sample data
set.seed(5642)                            
sample_data <- data.frame(name = c("Geek1","Geek2",
                                   "Geek3","Geek4",
                                   "Geeek5") ,
                          value = c(31,12,15,28,45))
# Load ggplot2 package
library("ggplot2")
 
# Create bar plot with labels
plot<-ggplot(sample_data,
             aes(name,value)) +
geom_bar(stat = "identity")+
geom_text(aes(label = signif(value)), nudge_y = 1) +
geom_text(aes(label = name), nudge_y = 3)
plot

Producción: