Commit db638858 authored by gossa's avatar gossa

Moi, boomer, président

parent ec2e1f2e
......@@ -20,6 +20,6 @@ ggpt.tdb.etab <- function(df, subtitle="") {
ggpt.tdb.etab(df.all[grep("Lyon",df.all$sigle),], "du site de Lyon")
ggpt.tdb.etab(subset(df.all, sigle == "U. de Strasbourg"))
ggpt.tdb.etab(subset(df.all, sigle == "U. Paris 8 - Vincennes - Saint-Denis"))
ggpt.tdb.etab(subset(df.all, sigle.grp == "ComUE Lille-Nord-de-France"))
......@@ -51,7 +51,7 @@ xlim(-1000,3000)
ggsave("carte_evolution_EC.png", width = width, height = height, dpi = dpi)
### Carte rapport titulaires / etu
### Carte rapport titulaires / non titutlaire
df <- subset(df.all,
type.effectif %in% c("titulaire","non permanent") &
......
......@@ -61,8 +61,8 @@ df.enst$secteur <- ifelse(
df.enst$Code.grande.discipline %in% Code.grande.discipline.sante,
"santé", "autre")
df.enst <- aggregate(effectif ~ Rentrée + Établissement + type.effectif + Categorie.de.personnels + secteur, df.enst, sum)
colnames(df.enst) <- c("rentrée","établissement","type.effectif","type.détaillé","secteur","effectif")
df.enst <- aggregate(effectif ~ Rentrée + Identifiant.établissement + Établissement + type.effectif + Categorie.de.personnels + secteur, df.enst, sum)
colnames(df.enst) <- c("rentrée","UAI","établissement","type.effectif","type.détaillé","secteur","effectif")
### Chargement données personnels non-permanents
......@@ -98,27 +98,48 @@ df.ensnp$type.détaillé = factor(df.ensnp$type.détaillé, ordered=TRUE,
)
)
df.ensnp <- aggregate(EFFECTIF ~ Rentrée + Établissement + type.effectif + type.détaillé + secteur, df.ensnp, sum)
colnames(df.ensnp) <- c("rentrée","établissement","type.effectif","type.détaillé","secteur","effectif")
df.ensnp <- aggregate(EFFECTIF ~ Rentrée + Identifiant.établissement + Établissement + type.effectif + type.détaillé + secteur, df.ensnp, sum)
colnames(df.ensnp) <- c("rentrée","UAI", "établissement","type.effectif","type.détaillé","secteur","effectif")
### chargement des données étudiants
df.etu <- read.table("fr-esr-sise-effectifs-d-etudiants-inscrits-esr-public.csv",
### chargement des données étudiants (statistiques)
df.etu.raw <- read.table("fr-esr-statistiques-sur-les-effectifs-d-etudiants-inscrits-par-etablissement.csv",
header=TRUE, sep=';', quote='"')
df.etu <- df.etu.raw
df.etu$type.effectif <- "étudiant"
df.etu$secteur <- ifelse(
df.etu$Grande.discipline == "Santé",
"santé", "autre")
df.etu <- subset(df.etu.raw,,c(
RENTREE, ETABLISSEMENT, Établissement,
#Nombre.d.étudiants.inscrits..inscriptions.principales.,
Cycle.universitaire..cursus.LMD....L..1er.cycle.,
Cycle.universitaire..cursus.LMD....M..2ème.cycle.,
Cycle.universitaire..cursus.LMD....D..3ème.cycle.))
df.etu <- aggregate(Nombre.d.étudiants.inscrits..inscriptions.principales. ~ RENTREE + Etablissement + type.effectif + CURSUS_LMD + secteur, df.etu, sum)
colnames(df.etu) <- c("rentrée","établissement","type.effectif","type.détaillé","secteur","effectif")
colnames(df.etu) <- c("rentrée","UAI","établissement","L","M","D")
df.etu <- gather(df.etu, c("L","M","D"), key="type.détaillé", value="effectif")
df.etu$type.détaillé <- factor(df.etu$type.détaillé,levels=c("L","M","D"), ordered=TRUE)
levels(df.etu$type.détaillé) <- c("Niveau Licence","Niveau Maîtrise","Niveau Doctorat")
df.etu$type.effectif <- "étudiant"
df.etu$secteur <- "tous"
### chargement des données étudiants (complètes)
#df.etu.raw <- read.table("fr-esr-sise-effectifs-d-etudiants-inscrits-esr-public.csv",
# header=TRUE, sep=';', quote='"')
#df.etu$type.effectif <- "étudiant"
#
#df.etu$secteur <- ifelse(
# df.etu$Grande.discipline == "Santé",
# "santé", "autre")
#
#df.etu <- aggregate(Nombre.d.étudiants.inscrits..inscriptions.principales. ~ RENTREE + Etablissement + type.effectif + CURSUS_LMD + secteur, df.etu, sum)
#colnames(df.etu) <- c("rentrée","établissement","type.effectif","type.détaillé","secteur","effectif")
#
#df.etu$type.détaillé <- factor(df.etu$type.détaillé,levels=c("L","M","D"), ordered=TRUE)
#levels(df.etu$type.détaillé) <- c("Niveau Licence","Niveau Maîtrise","Niveau Doctorat")
### Chargement données établissements
df.etab.raw <- read.table("fr-esr-principaux-etablissements-enseignement-superieur.csv",
......
......@@ -9,12 +9,13 @@ library(ggplot2)
library(plyr)
library(tidyverse)
library(ggrepel)
library(plotly)
# Approximation des sections CNU correspondant aux flilières en tension
section.cnu.en.tension = c("74","70","18","16","01","02","03","71")
#section.cnu.en.tension = c("74","70","18","16","01","02","03","71")
section.cnu.en.tension = c()
# Chargement des données Galaxie
df.emplois.2018 <- read.table("emplois.ec.2018.csv",header=TRUE, sep=",", quote='"')
......@@ -25,6 +26,10 @@ df.emplois.2019$Rentrée <- 2019
df.emplois <- rbind(df.emplois.2018,df.emplois.2019)
df.emplois$Section <- sprintf("%02d",df.emplois$Section)
write.table(df.emplois,file="emplois.ec.csv", sep=';', na="", row.names=FALSE)
df.emplois$en.tension <- df.emplois$Section %in% section.cnu.en.tension
# Plots sur Galaxie seulement
......
---
title: "Moi, boomer, président"
subtitle: |
| Les opportunités de la LPPR
| pour les présidences d'université
author: |
| Julien Gossa
| gossa@unistra.fr
institute: "Unistra"
date: "21/01/2020"
output:
beamer_presentation:
theme: "Madrid"
classoption: "aspectratio=43"
---
```{r setup, include=FALSE}
knitr::opts_chunk$set(echo = FALSE, warning = FALSE)
knitr::opts_chunk$set(pdf.options(encoding = "CP1250"))
knitr::opts_chunk$set(fig.height=3, out.height="30%", fig.align="center")
library(pkiESR)
library(tidyverse)
library(cowplot)
rentrée <- 2017
type <- "Université"
uai.unistra <- "0673021V"
uai.amu <- "0134009M"
uai.lorraine <- "0542493S"
uai.ups <- "0911101C"
uai.lille <- "0597065J"
uai.ehess <- "0753742K"
uai.uha <- "0681166Y"
uai.ubm <- "0331766R"
uai.nimes <- "0301687W"
uai.guyanne <- "9730429D"
uai.diderot <- "0751723R"
uai.descartes <- "0751721N"
uai.bordeaux <- "0333298F"
uai.usmb <- "0730858L"
uai.ufc <- "0251215K"
uai <- uai.unistra
```
## L'autonomie des (présidences des) universités
_« Nos successeurs, il faut qu'ils comprennent que c'est un vrai job. C'est pas juste monter sur l'estrade, c'est 7 jours sur 7. »_
Autonomie = pour développer une « stratégie différenciante »
- Visibilité
- Recruter des stars
- Initier des éléphants blancs
- Performance
- Améliorer globalement les indicateurs
- Notamment pour les classements
- Service public
- Former des étudiants
- Discuter avec les PME locales
## Ce n'est qu'une question de moyens.
Deux façons d'augmenter les moyens :
- les subventions pour charge de service public (SPCSP)
- les ressources propres
```{r RP}
plot_grid(
pkiesr_plot_evol(seq(2012,rentrée), c(uai), pkiesr_lfc$FIN, 3,
plot.type="abs",
yzoom = 0.6, ydecal = 0.5,
rentrée.base = NA,
style = pkiesr_style(title = TRUE)),
pkiesr_plot_evol(seq(2012,rentrée), c(uai), pkiesr_lfc$K, 2,
plot.type="abs",
yzoom = 0.5, ydecal = 0.5,
rentrée.base = NA,
style = pkiesr_style(title = TRUE),
y_labels = euro_k)
)
```
### Conclusion
Les moyens sont difficiles à augmenter.
## Ce n'est __pas__ qu'une question de moyens.
Il faut _mieux_ utiliser les moyens.
- Où sont les marges de manœuvre ?
```{r FIN, fig.height=3, out.height="30%"}
plot_grid(
pkiesr_plot_primaire(2017,uai,pkiesr_lfc[["FIN"]],
style = pkiesr_style(title = TRUE)),
pkiesr_plot_norm(2017,uai,pkiesr_lfc[["FIN_N"]],
style = pkiesr_style(title = TRUE))
)
```
- Dans la masse salariale
- dont la moitié est utilisée pour les enseignants-chercheurs
- hérités, très peu flexibles, très autonomes, incompréhensibles
### Question
Comment reprendre le contrôle de la masse salariale des EC ?
## Les rigidités dans la gestion des EC
Deux rigidités :
- Recrutement
- (Faux) concours national long et inefficace
- Qualification CNU pénible et inutile
- Statut
- Poste à vie
- Avancement à l'ancienneté et très peu de primes
- Temps de travail commun
Freins à :
- La liberté de recruter
- La mise en œuvre des priorités stratégiques
- La motivation des plus performants
- L'adaptation aux besoins
### Solutions
CDI de projet et assouplisements statutaires
## CDI de projet
Pour les nouveaux :
- Emmanuel Macron, Cérémonie des 80 ans du CNRS, 26/11/2019
- _« Quand on évalue et que l’évaluation est pas au rendez-vous, on peut pivoter les choses. Tous les, je sais pas, 3 ans, 4 ans »_
- _« l’idée, en effet, c’est de développer des CDI de projet, qui permettent d’avoir cette flexibilité »_
- CDI de projet
- Conditionné à la durée du financement, qui dépend des performances
- Conditionnement de la capacité à se loger et se nourrir
- aux résultats scientifiques : incitation à l'inconduite.
- Possibilité de changer très rapidement d'orientation stratégique
- Dans le temps du mandat
### Inversion hiérarchique
gestion des carrières / gestion de projet
## Assouplisements statutaires
Pour les anciens :
- « Ce stupide calcul des 192h »
- Déjà très affaibli, par les EC eux-mêmes
- Sous-optimal dans l'utilisation de la masse salariale
- Primes à la performance
- Meilleure différenciation des carrières
- Meilleure orientation stratégique des travaux
- Fusion des corps
- Mesure de bon sens si suppression des MCF
- Inutilement polémique
- Gestion RH par l'administration
- Affaiblissement de l'autonomie
### Inversion hiérarchique
auto-gestion / gestion par le haut
## Conclusion
- Les mesures de la LPPR donnent un rôle central aux présidences
- En affaiblissant tous les freins à la gestion de la masse salariale des EC
- En affaiblissant tous les contre-pouvoirs
- Cohérent avec le contexte
- Les LRU, établissements expérimentaux...
- La loi de transformation de la fonction publique...
- Les tenure-tracks CNRS/INRIA, Arrêté Licence...
- Pleinement adossé à l'évaluation
- Indispensable à la déresponsabilisation des présidences
- Donc à conserver un rapport de force base/ministère favorable
### Peut-être une naissance ?
Une nouvelle administration __territoriale__ de l'ESR
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