R Notebook

library(tidyverse)
library(glimpse)
library(stringr)
library(readr)

Grafico_uno <- ggplot(data = Nuevos_DatosLimpios) + geom_bar(mapping = aes (x = ANO_NAC)) +
  ggtitle("                     Chilenos nacidos en el año 2012 y en el año 2016")

Grafico_uno

Grafico_dos <- ggplot(data = Nuevos_DatosLimpios, mapping = aes(x = PESO, y = TALLA)) +
  geom_point() +
  facet_wrap(~ ANO_NAC) +
  ggtitle(" Peso y talla de los recien nacidos en Chile en el año 2012 y en el año 2016")

Grafico_dos

Grafico_tres <- ggplot(data = Nuevos_DatosLimpios) +
  geom_histogram(mapping = aes(x = EDAD_M),
                 colour = "black") +
  scale_fill_viridis_d() +
  facet_wrap(~ ANO_NAC) +
  ggtitle("Edad de las madres al momento de dar a luz en el año 2012 y en el año 2016")

Grafico_tres

Grafico_cuatro <- ggplot(data = Nuevos_DatosLimpios) +
  geom_histogram(mapping = aes(x = EDAD_P),
                 colour = "black") +
  scale_fill_viridis_d() +
  facet_wrap(~ ANO_NAC)  +
  ggtitle("Edad de los hombres al momento de convertirse en padres durante el año 2012 y durante el año 2016")

Grafico_cuatro

Grafico_cinco <- ggplot(data = Nuevos_DatosLimpios) +
  geom_histogram(mapping = aes(x = MES_NAC, fill = SEXO),
                 colour = "black") +
  scale_fill_viridis_d() +
  facet_wrap(~ ANO_NAC) +
  ggtitle( "Mes de nacimiento y sexo de los chilenos nacidos en el año 2012 y en el año 2016")

Grafico_cinco

Grafico_seis <- ggplot(data = Nuevos_DatosLimpios) +
  geom_histogram(mapping = aes(x = URBA_RURAL, fill = LOCAL_PART),
                 colour = "black") +
  scale_fill_viridis_d() +
  facet_wrap(~ ANO_NAC) +
  ggtitle("Niños nacidos en localidades urbanas y rurales en los años 2012 y 2016")

Grafico_seis