27.12 Guardar gráficas

Manualmente, se usa la función ggsave() inmediatamente después de la gráfica. Se debe poner el nombre con la extensión en la que se quiera guardar la gráfica.

ggsave("dispersión.pdf")
ggsave("dispersión.jpg")

g <- ggplot(data = saber, 
            aes(x = estu_inse_individual, y = punt_matematicas)) +
          geom_point(aes(color = cole_naturaleza), alpha = 0.4) +
          geom_smooth(method = "lm", color = "#c31") + 
          labs(title = "Desempeño en matemáticas", 
          subtitle = "según nivel socioeconómico", 
          x = "Nivel socioeconómico individual", 
          y = "Puntaje Matemáticas en Saber 11", 
          caption = "Fuente: ICFES") + 
  scale_color_manual(values = c('#098', '#dc7')) +
          theme_classic()
g

ggsave( "dispersion2.pdf", g)

Ejercicio 1

Escriba el código para crear un diagrama de dispersión que relacione las variables estu_inse_individual y punt_ingles. En lugar de puntos use +. El color de los + debe ser distinto para las categorías de la variable cole_bilingue. Incluya una línea de tendencia.

---

ggplot(data = saber, 
       mapping = aes(x = estu_inse_individual, y = punt_ingles)) +
  geom_jitter(aes(color = cole_naturaleza), alpha = 0.4) +
  geom_smooth(method = "lm", color = "#c31") + 
  labs(title = "Desempeño en inglés", 
       subtitle = "según nivel socioeconómico", 
       x = "Nivel socioeconómico individual", 
       y = "Puntaje Inglés en saber 11", 
       caption = "Fuente: ICFES") +
  scale_color_manual(values = c('#098', '#dc7')) +
  theme_fivethirtyeight()