Ingreso de datos:

datos <-read_excel("Downloads/nacimientos.xlsm")
datos
## # A tibble: 168 × 1
##    `,"x"`   
##    <chr>    
##  1 1,26.663 
##  2 2,23.598 
##  3 3,26.931 
##  4 4,24.74  
##  5 5,25.806 
##  6 6,24.364 
##  7 7,24.477 
##  8 8,23.901 
##  9 9,23.175 
## 10 10,23.227
## # … with 158 more rows
names(datos)
## [1] ",\"x\""

Procesamiento de datos y Gráfica:

En frequency se pone 12 por que son mensuales, y empiezan desde el año de 1969