La courbe dans la courbe

vendredi 14 février 2014, par jps29

Comment faire pour représenter une série chronologique qui comporte une valeur nettement supérieure aux autres, sans perdre d’information ? La courbe du nombre de grévistes dans le Finistère de 1919 à 1934 est écrasée par l’année 1919 et, dans une moindre mesure, par l’année 1920. Le résultat donne l’impression d’un repli quasi total pendant la période qui suit. Pour corriger cette impression (fausse), il fallait faire une seconde courbe. Plutôt que de multiplier les graphiques j’ai inclus le second dans le premier. Ainsi, la variation réelle est plus visible. Cela permet (de mon point de vue) de varier les échelles sans perdre de vue l’ensemble de la période.

Le graphique a été construit une nouvelle fois avec R et le logiciel RStudio.

Le graphique :

Le code

#pdf("grevistes19-34.pdf", width = 8, height = 4)
library("ggplot2")

grevistes<-c(intégrer ici ses données - nombres séparés par des virgules)
annee<-c(1919:1934)

donnees<-data.frame(annee,grevistes)

a <- ggplot(donnees, aes(annee, grevistes)) +
     geom_line(col = "red", size = 2) +
     labs(x = "Années", y = "Nombre de grévistes", size = 16) +
     scale_x_continuous(breaks=annee) +
     theme(axis.text.x=element_text(angle=90, hjust=1, colour = "blue", size = 12),
        axis.text.y=element_text(hjust=1, colour = "blue", size = 12)
 )
b <- ggplotGrob(ggplot(subset(donnees,annee>"1921"), aes(annee, grevistes)) +
      geom_line(col = "red", size = 2) +
      labs(x = "Années", y = "Nombre de grévistes", size = 16) +
      scale_x_continuous(breaks=annee) +
      theme(axis.text.x=element_text(angle=90, hjust=1, colour = "blue", size = 12),
           axis.text.y=element_text(hjust=1, colour = "blue", size = 12)
                 ))

a + annotation_custom(grob = b, xmin = 1921, xmax = 1934, ymin = 10000, ymax = 30000)

# ggsave("grevistes19-34.png", plot=final,  width=8, height=5)
ggsave("grevistes19-34.eps", plot=final,  width=8, height=5)

Je vais intégrer dans la thèse une courbe qui comprend l’année 1920. Cela a l’avantage de montrer que les grèves de l’année 1925 ont impliqué un nombre relativement conséquent de grévistes, même si le nombre de journées "perdues" est nettement inférieur.


Grève à Concarneau en 1929. La grève est soutenue par la seule CGTU. Pierre Guéguin, futur maire de Concarneau, assiste à la manifestation. C’est le seul à porter cravate et chapeau. Coll. Archives municipales de Concarneau.