Graphique Étudiant en descente dans l'ordre d'apparition des choix

server.R

@@ -115,6 +115,7 @@ server <- shinyServer(function(input, output, session)
       uniq(Subdivision, Discipline, first = T) %>%
       add_row(Date = epoch, Etudiant = last(.$Etudiant), Subdivision = last(.$Subdivision), Discipline = last(.$Discipline)) %>%
       unite(Choix, Subdivision, Discipline, sep = " - ") %>%
+      mutate(Choix = Choix %>% factor %>% fct_inorder) %>%
       mutate(Date = Date %>% as.POSIXct)
   })
 
@@ -126,7 +127,8 @@ server <- shinyServer(function(input, output, session)
       ggplot(aes(x = Date, y = Choix, group = Etudiant)) +
       geom_step() +
       geom_point() +
-      theme(axis.text.x = element_text(angle = -45, hjust = 0))
+      theme(axis.text.x = element_text(angle = -45, hjust = 0)) +
+      scale_y_discrete(limits = plotEtudiant()$Choix %>% levels %>% rev)
   })
 
 # VilleSpe ----
@@ -259,7 +261,7 @@ server <- shinyServer(function(input, output, session)
                    updateTabsetPanel(session, "nav", selected = "Par étudiant")
                  } else
                  {
-                   plotEtudiant()$Choix %>% unique %>% sort -> choix
+                   plotEtudiant()$Choix %>% factor %>% fct_inorder %>% levels %>% rev -> choix
                    choix[info$y] %>% str_replace("(.*?) - .*", "\\1") -> ville
                    choix[info$y] %>% str_replace(".*? - (.*)", "\\1") -> spe