Mortalidad por calor natural México 2018

Importar bibliotecas y datos

library(pacman)
p_load("rwhatsapp", "lubridate", "tidyverse", "tidytext", "kableExtra", "RColorBrewer", "RColorBrewer", "base64enc", "htmltools", "mime", "xfun", "prettydoc", "readxl")
setwd("~/VERANOPYE")

defunciones <- read_excel("defunciones.xlsx", 
    col_types = c("numeric", "numeric"))

#Hacer gráfica por mes de año 2018

ggplot(data = defunciones) +
  ggtitle("Mortalidad por calor natural excesivo en México")+
  geom_line(mapping = aes(x = Mes, y = D2018  ))

Descargar archivos

xfun::embed_file("defunciones.rmd")

Download defunciones.rmd

xfun::embed_file("defunciones.xlsx")

Download defunciones.xlsx