Mostrar todas las etiquetas del eje X de Barplot en R

Mientras trabaja en gráficos de barras, puede haber una situación en la que todas las etiquetas en el eje X no estén visibles debido a la longitud de los nombres de las variables. Este artículo trata de resolver el problema en el lenguaje de programación R.

Método 1: Usar gráfico de barras()

En el lenguaje R, la función barplot() se usa para crear un diagrama de barras. Toma los ejes x e y como parámetros requeridos y traza un diagrama de barras. Para mostrar todas las etiquetas, necesitamos rotar el eje, y lo hacemos usando el parámetro las . Para rotar la etiqueta perpendicularmente al eje establecemos el valor de las en 2 , y para la rotación horizontal , establecemos el valor en 1 . En segundo lugar, para aumentar el tamaño de fuente de las etiquetas, usamos cex.names para establecer el tamaño de fuente de las etiquetas.

Sintaxis: gráfico de barras (datos, xlab, ylab)

Parámetro:

data es el vector de datos que se representará en el eje y
xlab es la etiqueta asignada al eje x
ylab es la etiqueta asignada al eje y

Ejemplo:

rm(list = ls())
  
# Create the data
data <- data.frame(value = c(10,20,30,40,50,60,70,80,90),   
                   group = paste0("100_", 1:9))
  
# Original plot
barplot(data$value ~ data$group)
  
# Modify x-axis labels
barplot(data$value ~ data$group,     
        las = 2,
        cex.names = 1)

Producción:

Método 2: Usar ggplot

Otra biblioteca más popular para dibujar gráficos en R es ggplot2. Dibujamos diagramas de caja usando las funciones geom_bar() en ggplot2. Para especificar los cambios para el eje x, usamos el parámetro axis.text.x en la función theme() y usamos element_text() para especificar el ángulo y el tamaño de fuente. 

Ejemplo:

rm(list = ls())
  
# import library
library("ggplot2")
  
# Create the data
data <- data.frame(value = c(90,80,70,60,50,40,30,20,10),   
                   UID = paste0("10012210_", 1:9))
head(data)
  
# creating a bot plot
ggplot(data, aes(UID, value)) + 
  geom_bar(stat = "identity") 
    
  
# ggplot2 plot with modified x-axis labels
ggplot(data, aes(UID, value)) +    
  geom_bar(stat = "identity") +
  theme(axis.text.x = element_text(angle = 90, size = 10))

Producción: