Skip to content

Instantly share code, notes, and snippets.

@coulmont
coulmont / gist:8fbe93a86c452946ccca0490b22e5cf5
Created January 11, 2021 10:20
Animation : palmarès des prénoms depuis 1900
# 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
@coulmont
coulmont / deces_polaire_anime.R
Created December 2, 2020 13:02
deces en france, coordonnées polaires, version animée
# 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é
@coulmont
coulmont / deces.R
Created November 30, 2020 10:17
décès quotidien, coordonnees polaires
# 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/")
LABEL PROP TOTAL GAR
Adam 3.409090909 176 1
Adelaide 13.51351351 111 0
Adele 20.6557377 305 0
Adeline 3.885135135 592 0
Adrien 8.850574713 1740 1
Agathe 16.12903226 713 0
Agnes 12.93103448 116 0
Alan 3.191489362 188 1
Alban 6.918238994 159 1