ggplot(data = saber %>% tidyr::drop_na(), mapping = aes(x = estu_genero)) + geom_bar(fill = "gray70", color = "gray90") + geom_text(aes(label = percent(..count../sum(..count..))), stat = "count", vjust = -.5, color = "Black") + theme_minimal()