theme_update(text = element_text(family = "mono", face = "italic"))
ggplot(data = saber, mapping = aes(x = estu_inse_individual,
y = punt_ingles,
color = cole_naturaleza)) +
geom_point(alpha = 0.5) +
scale_color_manual(values = c('#098', '#dc7')) +
labs(title = "Al aumentar el nivel socioeconómico el puntaje de inglés tiende a aumentar ",
subtitle = "Los colegios privados tienden a tener mayor nivel socioeconómico",
x = "Nivel Socioeconómico", y = "Punta de Inglés",
color = "Tipo de Colegio") +
theme_minimal()
theme_set(theme_bw())
ggplot(data = saber,
mapping = aes(x= fami_estratovivienda, fill = desemp_ingles)) +
geom_bar(position = "stack", alpha = 0.7) +
scale_x_discrete(na.translate = FALSE) +
scale_fill_manual(values = c("#07b", "#3be", "#098", "#e73", "#c31"))
