tuits %>% ggplot() + aes(Puntuacion_tuit, color = Candidato) + geom_density() + facet_wrap(~Candidato) + tema_graf
