Cambiar el tamaño de fuente de las etiquetas de cuadrícula de facetas ggplot2 en R

En este artículo, veremos cómo cambiar el tamaño de fuente de las etiquetas de cuadrícula de facetas ggplot2 en el lenguaje de programación R. 

Primero dibujemos un gráfico regular sin ningún cambio para que la diferencia sea evidente.

Ejemplo:

library("ggplot2")
 
DF <- data.frame(X = rnorm(20),                                  
                 Y = rnorm(20),
                 group = c("Label 1", "Label 2",
                           "Label 3", "Label 4"))
 
ggplot(DF, aes(X, Y)) +                                    
  geom_point(size = 5, fill = "green",
             color = "black", shape = 21) +
  facet_grid(group ~ .)

Producción : 

Diagrama de dispersión facetado usando ggplot2

Por defecto, el tamaño de la etiqueta viene dado por las Facetas, aquí es 9. Pero podemos cambiar el tamaño. Para eso, usamos la función theme(), que se usa para personalizar la apariencia de la trama. Podemos cambiar el tamaño de las etiquetas de las facetas, usando strip.text que debe pasarse con valor para producir etiquetas del tamaño deseado .

Sintaxis: tema (strip.text)

Parámetro:

• strip.text: para personalizar las etiquetas de facetas. Para las etiquetas de facetas horizontales se utiliza ‘strip.text.x’ y para las etiquetas de facetas verticales se utiliza ‘strip.text.y’. esta función solo toma la función element_text() como su valor. Tenemos que asignar factores que queremos modificar a element_text.

Retorno : Tema de la trama.

element_text es un elemento temático de texto, que modifica el estilo o el tema del texto. Tiene muchos parámetros para diferentes estilos de texto. size es uno de ellos, que cambia el tamaño del texto. 

Sintaxis: elemento_texto (tamaño, color)

Parámetros:

• tamaño: tamaño del texto.

Retorno: cambia el estilo del texto.

Podemos tanto aumentar como disminuir el tamaño. Veamos primero la versión aumentada.

Ejemplo 1 : 

library("ggplot2")
 
DF <- data.frame(X = rnorm(20),                                  
                 Y = rnorm(20),
                 group = c("Label 1", "Label 2",
                           "Label 3", "Label 4"))
 
ggplot(DF, aes(X, Y)) +            
  geom_point(size = 5, fill = "green",
             color = "black", shape = 21) +
  facet_grid(group ~ .)+
  theme(strip.text = element_text(
    size = 20, color = "dark green"))

Producción :  

Tamaño de etiqueta de faceta aumentado

Ahora veamos el disminuido.

Ejemplo 2: 

library("ggplot2")
 
DF <- data.frame(X = rnorm(20),                                  
                 Y = rnorm(20),
                 group = c("Label 1", "Label 2",
                           "Label 3", "Label 4"))
 
ggplot(DF, aes(X, Y)) +            
  geom_point(size = 5, fill = "green",
             color = "black", shape = 21) +
  facet_grid(group ~ .)+
  theme(strip.text = element_text(
    size = 5, color = "dark green"))

 
Producción :

Tamaño de etiqueta de faceta reducido