R/fr-esr-statistiques-sur-les-effectifs-d-etudiants-inscrits-par-etablissement.R

In cpesr/kpiESR: DataViz for DataESR

#  https://data.enseignementsup-recherche.gouv.fr/explore/dataset/fr-esr-statistiques-sur-les-effectifs-d-etudiants-inscrits-par-etablissement/information/
#  version du 12 septembre 2022
#
# 
# [1] "Attention"                                                                                                   
# [2] "Année.universitaire"                                                                                         
# [3] "Type.d.établissement"                                                                                        
# [4] "Typologie.de.l.établissement"                                                                                
# [5] "Identifiant.interne.de.l.établissement"                                                                      
# [6] "Établissement"                                                                                               
# [7] "Identifiant.wikidata"                                                                                        
# [8] "Identifiant.Research.Organization.Registry..ROR."                                                            
# [9] "Identifiant.s..UAI"                                                                                          
# [10] "Arborescence...localisation.du.siège.de..l.établissement"                                                    
# [11] "Nombre.d.étudiants.inscrits..inscriptions.principales..hors.doubles.inscriptions.CPGE"                       
# [12] "Nombre.d.étudiants.inscrits..inscriptions.principales..y.compris.doubles.inscriptions.CPGE"                  
# [13] "Nombre.total.d.étudiants.inscrits..inscriptions.principales.et.secondes..hors.doubles.inscriptions.CPGE"     
# [14] "Nombre.total.d.étudiants.inscrits..inscriptions.principales.et.secondes..y.compris.doubles.inscriptions.CPGE"
# [15] "Nombre.de.nouveaux.bacheliers.inscrits.hors.doubles.inscriptions.CPGE"                                       
# [16] "Nombre.de.nouveaux.bacheliers.inscrits.y.compris.doubles.inscriptions.CPGE"                                  
# [17] "Sexe...Femmes"                                                                                               
# [18] "Sexe...Hommes"                                                                                               
# [19] "BACA"                                                                                                        
# [20] "Bac...Séries.STMG"                                                                                           
# [21] "Bac...Autres.séries.technologiques"                                                                          
# [22] "Bac...Baccalauréat.professionnel"                                                                            
# [23] "Bac...Dispensés"                                                                                             
# [24] "Âge.au.baccalauréat...En.avance.au.bac.d.un.an.ou.plus"                                                      
# [25] "Âge.au.baccalauréat...A.l.heure"                                                                             
# [26] "Âge.au.baccalauréat...En.retard.au.bac.d.un.an.ou.plus"                                                      
# [27] "Âge.au.baccalauréat...Non.renseigné.ou.non.bachelier"                                                        
# [28] "Attractivité.départementale..département.d.obtention.du.baccalauréat....Même.département"                    
# [29] "Attractivité.départementale..département.d.obtention.du.baccalauréat....Départements.limitrophes"            
# [30] "Attractivité.départementale..département.d.obtention.du.baccalauréat....Autres.départements.français"        
# [31] "Attractivité.départementale..département.d.obtention.du.baccalauréat....Etranger"                            
# [32] "Attractivité.départementale..département.d.obtention.du.baccalauréat....Non.renseigné"                       
# [33] "Attractivité.départementale..département.d.obtention.du.baccalauréat....Non.bacheliers"                      
# [34] "Etudiants.en.mobilité.internationale"                                                                        
# [35] "Attractivité.internationale...Etudiants.de.nationalité.étrangère.issus.de.système.éducatif.étranger"         
# [36] "Cycle.universitaire..cursus.LMD....L..1er.cycle."                                                            
# [37] "Cycle.universitaire..cursus.LMD....M..2ème.cycle."                                                           
# [38] "Cycle.universitaire..cursus.LMD....D..3ème.cycle."                                                           
# [39] "Type.de.diplôme...Diplômes.nationaux"                                                                        
# [40] "Type.de.diplôme...Diplômes.d.établissement"                                                                  
# [41] "Diplôme.préparé...Diplôme.d.accès.aux.études.universitaires"                                                 
# [42] "Diplôme.préparé...Capacité.en.droit"                                                                         
# [43] "Diplôme.préparé...Licence.hors.LAS"                                                                          
# [44] "Diplôme.préparé...Licence.accès.santé"                                                                       
# [45] "Diplôme.préparé...Diplôme.universitaire.de.technologie"                                                      
# [46] "Diplôme.préparé...Bachelor.universitaire.de.technologie"                                                     
# [47] "Diplôme.préparé...CPGE.universitaire"                                                                        
# [48] "Diplôme.préparé...Licence.professionnelle"                                                                   
# [49] "Diplôme.préparé...Master.enseignement"                                                                       
# [50] "Diplôme.préparé...Formations.d.ingénieurs"                                                                   
# [51] "Diplôme.préparé...Autres.masters"                                                                            
# [52] "Diplôme.préparé...Formations.d.IEP"                                                                          
# [53] "Diplôme.préparé...PASS.et.PluriPASS"                                                                         
# [54] "Diplôme.préparé...PACES"                                                                                     
# [55] "Diplôme.préparé...Diplôme.d.État.d.infirmier"                                                                
# [56] "Diplôme.préparé...Formations.paramédicales"                                                                  
# [57] "Diplôme.préparé...Autres.formations.de.santé"                                                                
# [58] "Diplôme.préparé...Doctorat"                                                                                  
# [59] "Diplôme.préparé...HDR"                                                                                       
# [60] "Diplôme.préparé...Diplômes.d.établissement"                                                                  
# [61] "Diplôme.préparé...Autres.formations.et.diplômes"                                                             
# [62] "Grande.discipline...Droit..sciences.économiques..AES"                                                        
# [63] "Grande.discipline...Lettres..langues.et.sciences.humaines"                                                   
# [64] "Grande.discipline...Sciences.et.sciences.de.l.ingénieur"                                                     
# [65] "Grande.discipline...STAPS"                                                                                   
# [66] "Grande.discipline...Santé"                                                                                   
# [67] "Grande.discipline...Interdisciplinaire"                                                                      
# [68] "Discipline...Droit..sciences.politiques"                                                                     
# [69] "Discipline...Sciences.économiques..gestion"                                                                  
# [70] "Discipline...Administration.économique.et.sociale"                                                           
# [71] "Discipline...Pluridisciplinaire.droit..sciences.économiques..AES"                                            
# [72] "Discipline...Lettres..sciences.du.langage..arts"                                                             
# [73] "Discipline...Langues"                                                                                        
# [74] "Discipline...Sciences.humaines.et.sociales"                                                                  
# [75] "Discipline...Pluridisciplinaire.lettres..langues..sciences.humaines"                                         
# [76] "Discipline...Sciences.de.la.vie..de.la.terre.et.de.l.univers"                                                
# [77] "Discipline...Sciences.fondamentales.et.applications"                                                         
# [78] "Discipline...Pluridisciplinaire.sciences"                                                                    
# [79] "Discipline...STAPS"                                                                                          
# [80] "Discipline...Médecine"                                                                                       
# [81] "Discipline...Odontologie"                                                                                    
# [82] "Discipline...Pharmacie"                                                                                      
# [83] "Discipline...Pluridisciplinaire.santé"                                                                       
# [84] "Discipline...Interdisciplinaire"                                                                             
# [85] "Secteur.disciplinaire...Sciences.juridiques"                                                                 
# [86] "Secteur.disciplinaire...Sciences.politiques"                                                                 
# [87] "Secteur.disciplinaire...Pluridisciplinaire.droit..sciences.politiques"                                       
# [88] "Secteur.disciplinaire...Sciences.économiques"                                                                
# [89] "Secteur.disciplinaire...Sciences.de.gestion"                                                                 
# [90] "Secteur.disciplinaire...Pluridisciplinaire.sciences.économiques.et.gestion"                                  
# [91] "Secteur.disciplinaire...Administration.économique.et.sociale"                                                
# [92] "Secteur.disciplinaire...Pluridisciplinaire.droit..sciences.économiques..AES"                                 
# [93] "Secteur.disciplinaire...Sciences.du.langage..linguistique"                                                   
# [94] "Secteur.disciplinaire...Langues.et.littératures.anciennes"                                                   
# [95] "Secteur.disciplinaire...Langues.et.littératures.françaises"                                                  
# [96] "Secteur.disciplinaire...Littérature.générale.et.comparée"                                                    
# [97] "Secteur.disciplinaire...Arts"                                                                                
# [98] "Secteur.disciplinaire...Pluridisciplinaire.lettres..sciences.du.langage..arts"                               
# [99] "Secteur.disciplinaire...Français..langue.étrangère"                                                          
# [100] "Secteur.disciplinaire...Langues.et.littératures.étrangères"                                                  
# [101] "Secteur.disciplinaire...Langues.étrangères.appliquées"                                                       
# [102] "Secteur.disciplinaire...Cultures.et.langues.régionales"                                                      
# [103] "Secteur.disciplinaire...Pluridisciplinaire.langues"                                                          
# [104] "Secteur.disciplinaire...Philosophie..épistémologie"                                                          
# [105] "Secteur.disciplinaire...Histoire"                                                                            
# [106] "Secteur.disciplinaire...Géographie"                                                                          
# [107] "Secteur.disciplinaire...Aménagement"                                                                         
# [108] "Secteur.disciplinaire...Archéologie..ethnologie..préhistoire"                                                
# [109] "Secteur.disciplinaire...Sciences.religieuses"                                                                
# [110] "Secteur.disciplinaire...Psychologie"                                                                         
# [111] "Secteur.disciplinaire...Sociologie..démographie"                                                             
# [112] "Secteur.disciplinaire...Sciences.de.l.éducation"                                                             
# [113] "Secteur.disciplinaire...Sciences.de.l.information.et.la.communication"                                       
# [114] "Secteur.disciplinaire...Pluridisciplinaire.sciences.humaines.et.sociales"                                    
# [115] "Secteur.disciplinaire...Pluridisciplinaire.lettres..langues..sciences.humaines"                              
# [116] "Secteur.disciplinaire...Sciences.de.l.univers"                                                               
# [117] "Secteur.disciplinaire...Sciences.de.la.vie"                                                                  
# [118] "Secteur.disciplinaire...Pluridisciplinaire.sciences.de.la.vie..de.la.santé..de.la.terre.et.de.l.univers"     
# [119] "Secteur.disciplinaire...Mathématiques"                                                                       
# [120] "Secteur.disciplinaire...Physique"                                                                            
# [121] "Secteur.disciplinaire...Chimie"                                                                              
# [122] "Secteur.disciplinaire...Mathématiques.appliquées.et.sciences.sociales"                                       
# [123] "Secteur.disciplinaire...Mécanique..génie.mécanique"                                                          
# [124] "Secteur.disciplinaire...Génie.civil"                                                                         
# [125] "Secteur.disciplinaire...Génie.des.procédés"                                                                  
# [126] "Secteur.disciplinaire...Informatique"                                                                        
# [127] "Secteur.disciplinaire...Électronique..génie.électrique"                                                      
# [128] "Secteur.disciplinaire...Technologie.et.sciences.industrielles"                                               
# [129] "Secteur.disciplinaire...Formation.générale.aux.métiers.de.l.ingénieur"                                       
# [130] "Secteur.disciplinaire...Mathématique.et.informatique"                                                        
# [131] "Secteur.disciplinaire...Physique.et.chimie"                                                                  
# [132] "Secteur.disciplinaire...Pluridisciplinaire.sciences.fondamentales.et.applications"                           
# [133] "Secteur.disciplinaire...Pluridisciplinaire.sciences"                                                         
# [134] "Secteur.disciplinaire...STAPS"                                                                               
# [135] "Secteur.disciplinaire...Médecine"                                                                            
# [136] "Secteur.disciplinaire...Odontologie"                                                                         
# [137] "Secteur.disciplinaire...Pharmacie"                                                                           
# [138] "Secteur.disciplinaire...Pluridisciplinaire.santé"                                                            
# [139] "Secteur.disciplinaire...Interdisciplinaire"                                                                  
# [140] "etablissement_id_region"                                                                                     
# [141] "etablissement_region"                                                                                        
# [142] "etablissement_id_academie"                                                                                   
# [143] "etablissement_academie"                                                                                      
# [144] "etablissement_id_departement"                                                                                
# [145] "etablissement_departement"                                                                                   
# [146] "etablissement_id_uucr"                                                                                       
# [147] "etablissement_uucr"                                                                                          
# [148] "etablissement_code_commune"                                                                                  
# [149] "etablissement_commune"                                                                                       
# [150] "etablissement_id_paysage_actuel"                                                                             
# [151] "Dernier.établissement"                                                                                       
# [152] "rentree"                                                                                                     
# [153] "annee" 

kpiesr_read.etu <- function(pidfix=list("x"="x")) {

  etu <- read.csv2("dataESR/fr-esr-statistiques-sur-les-effectifs-d-etudiants-inscrits-par-etablissement-hcp.csv", na.string = "") %>% 
    filter(Attention != "* Attention : doubles comptes, établissement-composante") %>%
    group_by(
      pid = recode(ifelse(
          !is.na(etablissement_id_paysage_actuel),
          etablissement_id_paysage_actuel,
          Identifiant.interne.de.l.établissement),
        !!!pidfix),
      Rentrée = rentree) %>%
    mutate(pid = ifelse(pid=="" | is.na(pid),"XIGGw",pid)) %>% # fix crade
    summarise(
      kpi.ETU.P.effectif = sum(Nombre.d.étudiants.inscrits..inscriptions.principales..hors.doubles.inscriptions.CPGE, na.rm = TRUE),
      kpi.ETU.S.cycle1_L = sum(Cycle.universitaire..cursus.LMD....L..1er.cycle., na.rm = TRUE),
      kpi.ETU.S.cycle2_M = sum(Cycle.universitaire..cursus.LMD....M..2ème.cycle., na.rm = TRUE),
      kpi.ETU.S.cycle3_D = sum(Cycle.universitaire..cursus.LMD....D..3ème.cycle., na.rm = TRUE),
      #kpi.ETU.S.diplome.national = Type.de.diplôme...Diplômes.nationaux,
      kpi.ETU.S.DU_DE = sum(Type.de.diplôme...Diplômes.d.établissement, na.rm = TRUE) ) %>%
    ungroup() %>%
    arrange(pid,Rentrée)
  
  }