index.utf8

Les objectifs de CovidInfo

L’objectif de la création de ce site internet est de fournir un espace de visualisation de données sur l’actuelle pandémie du Covid-19. Il se veut accessible à tous et interactif. Chaque onglet de ce site dédié au tutoriel correspond à un savoir-faire. L’onglet carte leaflet, expliquera le processus des cartes interactives que vous pouvez retrouver sur CovidInfo. L’onglet HTML et CSS, introduira quelques notions pour modifier l’esthétisme du site distill.

Utilisation de plotly pour les graphiques “interactifs”

# Taux de positivité 
fig_tx_posi_2020 <- plot_ly(df3, x = ~week,
                            y = ~tx_posi, name = 'Taux de positivité',
                            type = 'scatter',
                            mode = 'lines',
        line = list(color = bleu_clair, width = 4)) 

fig_tx_posi_2020 <- fig_tx_posi_2020 %>%
  
  layout(title = "Evolution du taux de positivité du Covid-19 en 2020",
         xaxis = list(title = "Semaine"),
         yaxis = list (title = "Taux de positivité")) %>%
  
  config(displayModeBar = FALSE)

# Taux de indicidence 
fig_tx_inci_2020 <- plot_ly(df3, x = ~week, y = ~tx_inci,
                            name = "Taux d'incidence", type = 'scatter',
                            mode = 'lines',
        line = list(color = bleu_fonc, width = 4)) 


fig_tx_inci_2020 <- fig_tx_inci_2020 %>%
  
  layout(title = "Evolution du taux d'incidence et de positivité du Covid-19 en 2020",
         xaxis = list(title = "Semaine"),
         yaxis = list (title = "Taux d'incidence")) %>%
  
  config(displayModeBar = FALSE)
#subplot(fig_tx_posi_2020 ,fig_tx_inci_2020, nrows = 1)

Footnotes