Commit 819c5f8c authored by gossa's avatar gossa

Classement des Lycées

parent a25d1ae6
#!/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()
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment