Commit 9a92f4b3 authored by gossa's avatar gossa

Fix titles

parent 84d36fdc
#!/bin/R
library(ggplot2)
section.cnu.en.tension = c("74","70","18","16","01","02","03","71")
df <- read.table("fr-esr-enseignants-titulaires-esr-public.csv",header=TRUE, sep=';', quote='"')
effectifs <- df[df$code_section_cnu %in% c(0,8000,8100,8200) == FALSE & df$code_section_cnu %% 100 == 0,]
effectifs$code_section_cnu <- substr(sprintf("%04d",effectifs$code_section_cnu),0,2)
effectifs$en.tension <- effectifs$code_section_cnu %in% section.cnu.en.tension
png("dataesr.effectifsEC.2016.png", width=1024)
ggplot(effectifs[effectifs$Rentrée == 2016 & effectifs$Code.categorie.personnels != "AM2D",],
aes(x=code_section_cnu, fill=Code.categorie.personnels, colour=en.tension)) +
stat_count() +
ylab("Effectifs à la rentrée 2016") + xlab("Section CNU") +
theme(axis.title=element_text(size=16)) +
scale_colour_manual(values=c("#FFFFFF", "#FF0000"), name="Filière", labels=c("Normale", "En tension")) +
scale_fill_discrete(name="Corps", labels=c("MCF", "PR"))
dev.off()
postes <- read.table("dataesr.postesEC.2018.csv",header=TRUE, sep=",")
postes$Section <- sprintf("%02d",postes$Section)
postes$en.tension <- postes$Section %in% section.cnu.en.tension
png("dataesr.postesEC.2018.png", width=1024)
ggplot(postes,
aes(x=Section, fill=Corps, colour=en.tension)) +
stat_count() +
ylab("Nombre de postes publiés à la session synchronisée 2018") + xlab("Section CNU") +
theme(axis.title=element_text(size=16)) +
scale_colour_manual(values=c("#FFFFFF", "#FF0000"), name="Filière", labels=c("Normale", "En tension")) +
scale_fill_discrete(name="Corps", labels=c("MCF", "PR"))
dev.off()
############
effectifs.MCF <- as.data.frame(table(effectifs[effectifs$Rentrée == 2016 & effectifs$Code.categorie.personnels == "MCF",]$code_section_cnu))
#effectifs.MCF$corps <- "MCF"
#colnames(effectifs.MCF) = c("section","effectifs","corps")
colnames(effectifs.MCF) = c("section","effectifs.MCF")
effectifs.PR <- as.data.frame(table(effectifs[effectifs$Rentrée == 2016 & effectifs$Code.categorie.personnels == "PR",]$code_section_cnu))
#effectifs.PR$corps <- "PR"
#colnames(effectifs.PR) = c("section","effectifs","corps")
colnames(effectifs.PR) = c("section","effectifs.PR")
postes.MCF <- as.data.frame(table(postes[postes$Corps == "MCF",]$Section))
#postes.MCF$corps <- "MCF"
#colnames(postes.MCF) = c("section","postes","corps")
colnames(postes.MCF) = c("section","postes.MCF")
postes.PR <- as.data.frame(table(postes[postes$Corps == "PR",]$Section))
#postes.PR$corps <- "PR"
#colnames(postes.PR) = c("section","postes","corps")
colnames(postes.PR) = c("section","postes.PR")
df <- merge(merge(merge(effectifs.MCF, effectifs.PR), postes.MCF), postes.PR)
df$en.tension <- df$section %in% section.cnu.en.tension
df$postes <- df$postes.PR + df$postes.MCF
df$promotions <- df$postes.PR / df$effectifs.MCF
df$renouvellement <- df$postes.MCF / (df$effectifs.MCF + df$effectifs.PR)
png("dataesr.promotions.2018.png", width=1024)
ggplot(df, aes(x=reorder(section,promotions),y=promotions, fill=en.tension)) +
geom_bar(stat="identity") +
ylab("Ratio des MCF promus à la session synchronisée 2018") + xlab("Section CNU") +
theme(axis.title=element_text(size=16)) +
scale_fill_discrete(name="Filière", labels=c("Normale", "En tension"))
dev.off()
ggplot(df, aes(x=reorder(section,renouvellement),y=renouvellement, fill=en.tension)) +
png("dataesr.renouvellement.2018.png", width=1024)
geom_bar(stat="identity") +
ylab("Renouvellement à la session synchronisée 2018") + xlab("Section CNU") +
theme(axis.title=element_text(size=16)) +
scale_fill_discrete(name="Corps", labels=c("Normale", "En tension"))
dev.off()
png("dataesr.renouvellement.vs.promotions.2018.png")
ggplot(df, aes(x=promotions, y=renouvellement, label=section, colour=en.tension, xmin=0, ymin=0)) +
geom_point() + geom_text(hjust = 0, nudge_x = 0.001, check_overlap = TRUE) +
scale_colour_manual(name="Filière", values=c("#5050FF", "#FF5050"), labels=c("Normale", "En tension"))
dev.off()
This source diff could not be displayed because it is too large. You can view the blob instead.
......@@ -213,7 +213,7 @@ df.etab <- subset(df.etab, (emplois.MCF+emplois.PR) > 5)
### plots
png("emplois.etab.png", height=1024)
png("emplois.etab.png", height=640)
ggplot(df.etab,aes(x=reorder(Etablissement,emplois.MCF+emplois.PR))) +
geom_bar(aes(y=emplois.PR,fill="pr"), stat="identity") +
geom_bar(aes(y=-emplois.MCF, fill="mcf"), stat="identity") +
......@@ -225,8 +225,8 @@ ggplot(df.etab,aes(x=reorder(Etablissement,emplois.MCF+emplois.PR))) +
scale_y_continuous(labels = c("40","20","0","20")) +
ylab("<- MCF / PR ->") +
xlab("Etablissement") +
theme(legend.position="top", plot.title = element_text(hjust = 0.5)) +
ggtitle("Emplois par établissement à la session sychronisée 2019")
theme(legend.position="top") +
ggtitle("Emplois par établissement \nà la session sychronisée 2019")
dev.off()
......@@ -242,16 +242,16 @@ ggplot(df.etab,aes(x=reorder(Etablissement,emplois.MCF+emplois.PR))) +
scale_y_continuous(labels = c("1500","1000","500","0","500","1000")) +
ylab("<- MCF / PR ->") +
xlab("Etablissement") +
theme(legend.position="top", plot.title = element_text(hjust = 0.5)) +
ggtitle("Effectifs par établissement à la session sychronisée en 2017")
theme(legend.position="top") +
ggtitle("Effectifs par établissement en 2017")
dev.off()
syc_breaks<-seq(-0.09,0.15,0.02)
syc_breaks<-seq(-0.09,0.15,0.04)
syc_labels<-paste(abs(syc_breaks)*100,"%\n",round(abs(1/syc_breaks))," ans",sep='')
syc_repr <- scale_y_continuous(breaks=syc_breaks, labels=syc_labels)
png("promovsrenouv.etab.png", height=1024)
png("promovsrenouv.etab.png", height=640)
ggplot(df.etab,aes(x=reorder(Etablissement,emplois.MCF+emplois.PR))) +
geom_bar(aes(y=promotions,fill="promotions"), stat="identity") +
geom_bar(aes(y=-renouvellement, fill="renouvellement"), stat="identity") +
......@@ -259,12 +259,12 @@ ggplot(df.etab,aes(x=reorder(Etablissement,emplois.MCF+emplois.PR))) +
sfm_repr + syc_repr +
ylab("<- Renouvellement / Promotions ->") +
xlab("Etablissement") +
theme(legend.position="top", plot.title = element_text(hjust = 0.5)) +
ggtitle("Promotions et renouvellement par établissement à la session sychronisée en 2017")
theme(legend.position="top") +
ggtitle("Promotions et renouvellement\npar établissement")
dev.off()
png("promovsrenouv.etab.sortpromo.png", height=1024)
png("promovsrenouv.etab.sortpromo.png", height=640)
ggplot(df.etab,aes(x=reorder(Etablissement,promotions))) +
geom_bar(aes(y=promotions,fill="promotions"), stat="identity") +
geom_bar(aes(y=-renouvellement, fill="renouvellement"), stat="identity") +
......@@ -272,11 +272,11 @@ ggplot(df.etab,aes(x=reorder(Etablissement,promotions))) +
sfm_repr + syc_repr +
ylab("<- Renouvellement / Promotions ->") +
xlab("Etablissement") +
theme(legend.position="top", plot.title = element_text(hjust = 0.5)) +
ggtitle("Classement des établissements qui promeuvent le plus vite")
theme(legend.position="top") +
ggtitle("Classement des établissements \nqui promeuvent le plus vite")
dev.off()
png("promovsrenouv.etab.sortrenouv.png", height=1024)
png("promovsrenouv.etab.sortrenouv.png", height=640)
ggplot(df.etab,aes(x=reorder(Etablissement,renouvellement))) +
geom_bar(aes(y=promotions,fill="promotions"), stat="identity") +
geom_bar(aes(y=-renouvellement, fill="renouvellement"), stat="identity") +
......@@ -284,6 +284,6 @@ ggplot(df.etab,aes(x=reorder(Etablissement,renouvellement))) +
sfm_repr + syc_repr +
ylab("<- Renouvellement / Promotions ->") +
xlab("Etablissement") +
theme(legend.position="top", plot.title = element_text(hjust = 0.5)) +
ggtitle("Classement des établissements qui se renouvellent le plus vite")
theme(legend.position="top") +
ggtitle("Classement des établissements \nqui se renouvellent le plus vite")
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