¿Cómo manipular el tamaño del texto de la cuadrícula de facetas ggplot2 en R?

En este artículo, veremos el enfoque para cambiar el tamaño del texto de la cuadrícula de facetas del paquete ggplot2 en el lenguaje de programación R.

Usaremos la función theme(), además con el argumento strip.text.x = element_text(size) de esta función, el usuario debe ingresar el valor del tamaño requerido según la demanda del usuario, aquí el usuario tiene una opción para aumentar o disminuir el tamaño del texto de la cuadrícula de facetas, ya que el valor de tamaño superior a 10 aumentará el tamaño del texto, mientras que el valor de tamaño inferior a 10 disminuirá el tamaño del texto de la cuadrícula de facetas.

Primero, tracemos el gráfico sin ninguna modificación. Así que, la diferencia es evidente.

Ejemplo:

library("ggplot2")   
  
gfg_data<-data.frame(x=c(1,2,3,4,5),y=c(5,4,3,2,1))
  
gfg_plot<-ggplot(data=gfg_data, aes(x, y)) + 
  geom_bar(stat="identity")+facet_grid(. ~ c('A','B','C','D','E'))
  
gfg_plot

Producción:

Ahora usemos la función theme() y creemos un gráfico con el tamaño modificado del texto de la cuadrícula de facetas.

La función theme() es una forma poderosa de personalizar los componentes que no son datos de sus gráficos: es decir, títulos, etiquetas, fuentes, fondo, cuadrículas y leyendas. 

Sintaxis:

tema(línea,rect,texto,título,aspect.ratio,strip.text, …, validar = TRUE)

Parámetros:

• línea: todos los elementos de línea (element_line())
• rect : todos los elementos rectangulares (element_rect())
• texto :todos los elementos de texto (element_text())
• título: todos los elementos del título: diagrama, ejes, leyendas (elemento_texto(); hereda del texto)
• aspect.ratio : relación de aspecto del panel
• strip.text, strip.text.x, strip.text.y : etiquetas de faceta (element_text(); hereda del texto). Las etiquetas de facetas horizontales (strip.text.x) y las etiquetas de facetas verticales (strip.text.y) se heredan de strip.text o se pueden especificar por separado

Primero aumentemos el tamaño del texto.

Ejemplo 1:

library("ggplot2")   
  
gfg_data<-data.frame(x=c(1,2,3,4,5),y=c(5,4,3,2,1))
  
gfg_plot<-ggplot(data=gfg_data, aes(x, y)) + 
geom_bar(stat="identity")+facet_grid(. ~ c('A','B','C','D','E'))+
theme(strip.text.x = element_text(size = 30))
  
gfg_plot

Producción:

Disminuyamos ahora el tamaño. 

Ejemplo 2:

library("ggplot2") 
  
gfg_data<-data.frame(x=c(1,2,3,4,5),y=c(5,4,3,2,1))
  
gfg_plot<-ggplot(data=gfg_data, aes(x, y)) + geom_bar(stat="identity")+
facet_grid(. ~ c('A','B','C','D','E'))+
theme(strip.text.x = element_text(size = 5))
  
gfg_plot

Producción: