Classement des Lycées

dataesr.lycees.R

+#!/bin/R
+
+library(ggplot2)
+library(xtable)
+
+# Département à regarder
+departement <- "BAS RHIN"
+
+# Nombre de points bonus max par lycée
+bonusmax <- 4
+
+# Lecture des données nationales
+df <- read.table("fr-en-indicateurs-de-resultat-des-lycees-denseignement-general-et-technologique.csv",
+  header=TRUE, sep=';', quote='"')
+
+# Plot des lycées du département par taux de mentions
+png("TriDesLyceesDuDepartementParTauxMention.png")
+ggplot(df[df$Année == "2017" & df$Département == departement,],
+  aes(x=Taux_Mention_brut_toutes_series, y=reorder(Etablissement,Taux_Mention_brut_toutes_series))) +
+  geom_point() +
+  xlim(0,100) + theme_linedraw() +
+  #scale_fill_discrete(name="Secteur",
+    #breaks=c("ctrl", "trt1", "trt2"),
+    #labels=c("Privé", "Public")) +
+  xlab("Taux de mentions brut au Bac") +
+  ylab("Etablissement")
+dev.off()
+
+# Calcul des points bonus des lycées du département
+dfd <- df[df$Année == "2017" & df$Département == departement,]
+dfd$bonus.ratio <-
+  (dfd$Taux_Mention_brut_toutes_series - min(dfd$Taux_Mention_brut_toutes_series)) /
+  (max(dfd$Taux_Mention_brut_toutes_series) - min(dfd$Taux_Mention_brut_toutes_series))
+dfd$bonus <- dfd$bonus.ratio * bonusmax
+print(xtable(dfd[order(-dfd$bonus),c("Etablissement","bonus")]),type="html",
+  file="BonusDesLyceesDuDepartementParTauxMention.html")
+
+# Plot des  points bonus des lycées du département
+png("BonusDesLyceesDuDepartementParTauxMention.png")
+ggplot(dfd, aes(x=bonus,y=reorder(Etablissement,bonus),label=bonus)) +
+  geom_text() + theme_linedraw()
+dev.off()
+
+# Plot du secteur public/privé par taux de taux de mention
+png("TauxMentionParSecteur.png")
+ggplot(df[df$Année == "2017",],
+  aes(x=Taux_Mention_brut_toutes_series, fill=Secteur.Public.Prive)) +
+  geom_histogram(position="fill",bins=20, alpha=0.4) +
+  xlim(0,100) + theme_linedraw() +
+  scale_fill_discrete(name="Secteur",
+    #breaks=c("ctrl", "trt1", "trt2"),
+    labels=c("Privé", "Public")) +
+  xlab("Taux de mentions brut au Bac") +
+  ylab("Proportion des lycées publics et privés")
+dev.off()
+
+# Plot du nombre d'établissements public/privé par taux de taux de mention
+png("TauxMentionParSecteurCount.png")
+ggplot(df[df$Année == "2017",],
+  aes(x=Taux_Mention_brut_toutes_series, fill=Secteur.Public.Prive)) +
+  geom_histogram(bins=100, alpha=0.8) +
+  xlim(0,100) + theme_linedraw() +
+  scale_fill_discrete(name="Secteur",
+    #breaks=c("ctrl", "trt1", "trt2"),
+    labels=c("Privé", "Public")) +
+  xlab("Taux de mentions brut au Bac") +
+  ylab("Nombre de lycées publics et privés")
+dev.off()