## Courbe Ridge#######################
library(ggridges)
library(ggplot2)

regionHosp <- left_join(dataCovidFRreg, reg2019) %>%  filter(REGION > "10") %>%  select(c(REGION, jour, hosp, libelle)) 
regionHosp$jour <- as.Date(regionHosp$jour)
animReg <- ggplot(regionHosp, aes(x= jour, y = libelle, height= hosp))+
  geom_density_ridges(stat = "identity", scale = 1, rel_min_height = 0.05, fill = "lightblue")+
  labs(title = "Personnes hospitalisées par région (métropole)",
       subtitle = "Seules les valeurs relatives de 5% de la plus haute valeur apparaissent",
       caption = sourceFR)+
  theme(axis.title.y = element_blank())
animReg
ggsave(file=paste("RégionHospitalisation",dateTitre,".pdf"))