Quelques indicateurs sur les publications du LIG
1 Extractions de HAL du nombre de publications internationales du laboratoire LIG
1.1 Mes remarques pour le LIG, un laboratoire d'Informatique
- La quantité ne fait pas la qualité. Mais je ne sais pas évaluer la qualité.
- Pour d'autres disciplines, les types de publications changent.
- Ces statistiques ne comptent pas toutes les publications du LIG, mais seulement celles enregistrées dans HAL !
- Les journaux sont souvent de publications de long terme (plusieurs années), moins sensibles aux perturbations.
- Les conférences sont souvent les publications de court terme (travail en cours), très sensibles aux perturbations, mais aussi le cœur des échanges scientifiques dans notre domaine.
Les publications des conférences semblent faire des cycles de bonds. Les points bas correspondent aux années des évaluations AERES et HCERES (sauf 2020). Après ces évaluations, la quantité de publications remonte, mais à un niveau moins haut.
Des effets similaires existent pour les publications du LJK (laboratoire de math applis)
Mon hypothèse: le travail impliqué dans une évaluation d'un laboratoire, comme le LIG, semble avoir un effet délétère important (10-15%), et à long terme (également sur les années précédentes et suivantes), sur la quantité de ses publications.
- La fermeture physique du LIG en 2020 pour la crise de la covid19 est bien pire que les évaluations et a réduit les publications en conférence d'un facteur 2 en 2020.
1.2 Journaux internationaux
for annee in $(seq 2009 2021); do curl "http://api.archives-ouvertes.fr/search/LIG/?q=audience_s:(1%20OR%202)%20AND%20(producedDateY_i:$annee%20OR%20ePublicationDateY_i:$annee)&fq=docType_s:ART" | sed 's/.*"numFound":\([0-9]\+\).*/\1/g' | xargs echo $annee " " done
2009 | 89 |
2010 | 81 |
2011 | 82 |
2012 | 98 |
2013 | 93 |
2014 | 100 |
2015 | 124 |
2016 | 108 |
2017 | 88 |
2018 | 112 |
2019 | 90 |
2020 | 97 |
2021 | 11 |
1.2.1 Graphiques
library(ggplot2) library(dplyr) ta = data.frame(Année=ta$V1, NB=ta$V2) ta = ta %>% filter(Année < 2021) p = ggplot(ta, aes(x=Année, y=NB)) + geom_line(size=2) + geom_point(size=10, colour="red") + ylim(0,150)+ theme(text=element_text(size=60)) p
1.3 Conférences internationales
for annee in $(seq 2009 2021); do curl "http://api.archives-ouvertes.fr/search/LIG/?q=audience_s:(1%20OR%202)%20AND%20(producedDateY_i:$annee%20OR%20ePublicationDateY_i:$annee)&fq=docType_s:COMM" | sed 's/.*"numFound":\([0-9]\+\).*/\1/g' | xargs echo $annee done
2009 | 367 |
2010 | 366 |
2011 | 308 |
2012 | 344 |
2013 | 332 |
2014 | 281 |
2015 | 294 |
2016 | 307 |
2017 | 294 |
2018 | 275 |
2019 | 226 |
2020 | 150 |
2021 | 8 |
1.3.1 Graphiques
library(ggplot2) library(dplyr) ta = data.frame(Année=ta$V1, NB=ta$V2) ta = ta %>% filter(Année < 2021) p = ggplot(ta, aes(x=Année, y=NB)) + geom_line(size=2) + geom_point(size=10, colour="red") + ylim(0,400) + theme(text=element_text(size=60)) p
1.4 Journaux nationaux
for annee in $(seq 2009 2021); do curl "http://api.archives-ouvertes.fr/search/LIG/?q=audience_s:(3)%20AND%20(producedDateY_i:$annee%20OR%20ePublicationDateY_i:$annee)&fq=docType_s:ART" | sed 's/.*"numFound":\([0-9]\+\).*/\1/g' | xargs echo $annee " " done
2009 | 8 |
2010 | 12 |
2011 | 12 |
2012 | 15 |
2013 | 10 |
2014 | 8 |
2015 | 4 |
2016 | 9 |
2017 | 2 |
2018 | 2 |
2019 | 1 |
2020 | 1 |
2021 | 0 |
1.4.1 Graphiques
library(ggplot2) library(dplyr) ta = data.frame(Année=ta$V1, NB=ta$V2) ta = ta %>% filter(Année < 2021) p = ggplot(ta, aes(x=Année, y=NB)) + geom_line(size=2) + geom_point(size=10, colour="red") + ylim(0,25)+ theme(text=element_text(size=60)) p
1.5 Conférences nationales
for annee in $(seq 2009 2021); do curl "http://api.archives-ouvertes.fr/search/LIG/?q=audience_s:(3)%20AND%20(producedDateY_i:$annee%20OR%20ePublicationDateY_i:$annee)&fq=docType_s:COMM" | sed 's/.*"numFound":\([0-9]\+\).*/\1/g' | xargs echo $annee done
2009 | 44 |
2010 | 30 |
2011 | 50 |
2012 | 58 |
2013 | 32 |
2014 | 43 |
2015 | 19 |
2016 | 20 |
2017 | 16 |
2018 | 16 |
2019 | 11 |
2020 | 2 |
2021 | 0 |
1.5.1 Graphiques
library(ggplot2) library(dplyr) ta = data.frame(Année=ta$V1, NB=ta$V2) ta = ta %>% filter(Année < 2021) p = ggplot(ta, aes(x=Année, y=NB)) + geom_line(size=2) + geom_point(size=10, colour="red") + ylim(0,100) + theme(text=element_text(size=60)) p