Commit a25d1ae6 authored by gossa's avatar gossa

données campagne emplois EC 2018

parents
#!/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.
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