MounaBelaid/covid19tunisia

Summarized data on cases of COVID-19 in Tunisia This package provides per-day data on COVID-19 cases in Tunisia. The data is an average over all of the sources provided by Mouna Belaid. Please check out this link. ## Installation Using the programming language R, you can install the released version of covid19tunisia with : ``` r remotes::install_github("MounaBelaid/covid19tunisia") ``` ## Usage ``` r data # A tibble: 6 x 7 date location location_type location_code location_code_type data_type value 1 2020-03-02 Gafsa state TN-71 iso_3166_2 cases_new 1 2 2020-03-08 Mahdia state TN-53 iso_3166_2 cases_new 1 3 2020-03-09 Bizerte state TN-23 iso_3166_2 cases_new 1 4 2020-03-09 Mahdia state TN-53 iso_3166_2 cases_new 1 5 2020-03-09 Tunis state TN-11 iso_3166_2 cases_new 1 6 2020-03-10 Mahdia state TN-53 iso_3166_2 cases_new 1 ``` ### Plotting the daily evolution of active cases ``` r # Transform the data library(dplyr) library(tidyr) library(plotly) data_transformed % group_by(date, data_type) %>% summarise(value = sum(value)) %>% spread(data_type, value) head(data_transformed) # A tibble: 6 x 4 # Groups: date [6] date cases_new deaths_new recovered_new 1 2020-03-02 1 0 0 2 2020-03-08 1 0 0 3 2020-03-09 3 0 0 4 2020-03-10 1 0 0 5 2020-03-11 1 0 0 6 2020-03-12 6 0 0 data_transformed %>% ungroup() %>% plot_ly(type = 'scatter', mode = 'lines + markers')%>% add_trace(x = ~date, y = ~cumsum(cases_new), name = 'Confirmed cases', marker = list(color = '#fec44f'), line = list(color = '#fec44f'), hoverinfo = "text", text = ~paste(cases_new, "New confirmed cases\n", cumsum(cases_new), 'Total number of infected cases on', date)) %>% add_trace(x = …