tuits %>% mutate(Mes = factor(Mes)) %>% ggplot() + aes(Mes, Puntuacion_tuit, fill = Candidato) + geom_boxplot(width = 1) + facet_wrap(~Candidato) + tema_graf + theme(legend.position = "none")
