Shiny - évaluation

Vous devez rendre votre fichier .R dans l’espace ci-dessous

https://cloud.parisdescartes.fr/index.php/s/gFz5NKkqgT2obMJ

ATTENTION : Indiquer votre nom et prénom dans le nom du fichier, sinon je ne pourrais pas savoir qui a fait quoi (et vous auriez 0 comme note du coup… )

A FAIRE

Vous devez améliorer le tableau de bord, en réalisant les éléments suivants :

1. Intégrer le choix du pays pour la valueBox indiquant le volume total de documents produits
2. La progression est en fait le pourcentage de la valeur de 2020 par rapport à celle de 1996. Modifier le code pour avoir le delta entre cette valeur et 100%
   • par exemple : 169% deviendra +69%, et 85% deviendra -15%
3. Modifier la valueBox pour afficher une couleur en fonction de la production totale de documents (voir renderValueBox) :
   • si inférieur à 1000 : rouge
   • entre 1000 et 100000 : bleu clair
   • supérieur strictement à 100000 : vert
4. Ajouter un TOP 20 pour une année choisie par l’utilisateur, dans la seconde partie (vide pour le moment)
5. Ajouter un graphique d’évolution en base 100 avec le choix des pays (cf l’option multiple dans selectInput), dans la troisième partie (vide aussi)
   • Sélectionner par défaut les pays suivants :
     • United States
     • France
     • China
     • Germany
     • United Kingdom
   • le code ci-dessous vous permet de calculer les valeurs en base 100 en 1996 pour chaque pays et chaque année

prod_base100 = prod %>%
  select(Country, Year, Documents) %>%
  pivot_wider(names_from = Year, values_from = Documents, names_prefix = "Year") %>%
  mutate(across(starts_with("Year"), ~ .x / Year1996 * 100)) %>%
  pivot_longer(-Country) %>%
  mutate(Year = as.numeric(sub("Year", "", name)))

exemple_pays_choisis = c("France", "Germany", "China", "United States", "United Kingdom")
ggplot(prod_base100 %>% filter(Country %in% exemple_pays_choisis),
       aes(Year, value, col = Country)) +
  geom_line() +
  theme_minimal() +
  labs(x = "", y = "Evolution depuis 1996")