Gráficas mejoradas

Las gráficas que hemos generado han sido muy simples estéticamente, podemos mejorlas sustancialemnte creando lo que se conoce como themes in R.

Podemos crear un objeto (aquí llamado estetica)con la información de mejoras para las gráficas:

estetica <- theme(

  plot.title = element_text(face = "bold", size = 14),

  plot.subtitle = element_text(face = "bold", size = 12),

  legend.title = element_text(face = "bold", size = 14),

  legend.text = element_text(face = "bold", size = 12),

  axis.title.x = element_text(size = 12, face = "bold"),

  axis.text.x = element_text(size = 12),

  axis.title.y = element_text(size = 12, face = "bold"),

  axis.text.y = element_text(size = 12),

  strip.text.x = element_text(size = 12, face = "bold"),

  plot.background = element_rect(colour = "black", fill=NA, size=0.3))

Así a cualquier gráfica le podemos agregar este objeto, por ejemplo:

> ggplot(dfmg, aes(x = Tratamiento, y = Peso)) + geom_boxplot(aes(color = Tratamiento)) + facet_grid(~Dia) + estetica

Otra mejor puede ser cambiar el tema de ggplot (theme_bw)y añadir nuevos títulos de los ejes.

Opción NO mejorada

> ggboxplot(dia6, x = "Tratamiento", y = "Peso") + stat_pvalue_manual(pwc, hide.ns = TRUE) + labs(subtitle = get_test_label(res.kruskal, detailed = TRUE),caption = get_pwc_label(pwc))

Opción mejorada y salvada a un objeto:

> mg_bxplot <- ggboxplot(dia6, x = "Tratamiento", y = "Peso") + stat_pvalue_manual(pwc, hide.ns = TRUE) + labs(subtitle = get_test_label(res.kruskal, detailed = TRUE),caption = get_pwc_label(pwc)) + theme_bw(base_size = 16) + labs(y= "Peso (mg)") + ggtitle ("Diferencias en peso al final del experimento")