coulmont

	# Comptage des décès covid et de la surmortalité en 2020

	library(tidyverse)
	library(lubridate)
	#library(ngram)
	library(hrbrthemes)
	library(glue)

	setwd("~/Dropbox/projets-R/2020-covid/")



	# ajout des informations pour l'animation
	# ---------------------------------------

	library(gganimate)
	library(broom)

	dc <- bind_rows(dc_jour,dc_insee_jour,deces_ecdc,deces_insee_provisoires)
	# on démarre du fichier dc utilisé pour le graphique surmortalité

	# Fichier des prénoms, édition 2019 (jusqu'en 2018)
	# voir en bas l'animation Charlie avec paris.opendata 2018
	library(tidyverse)
	library(stringi)
	library(scales)
	library(hrbrthemes)
	library(glue)
	library(lubridate)

	# nat2019.csv c'est le fichier des prénoms de l'insee , téléchargeable sur le site de l'insee