Mais que s’est-il passé pendant la Première Guerre Mondiale?

La réponse courte est que des gens sont morts. Beaucoup. Cela étant dit, on ne dit pas grand chose. On peut comparer les pyramides des âges pour mieux comprendre ce qui a pu se passer. Juste avant la guerre (en 1913), la pyramide des âges ressemblait à ça (en utilisant les données de mortality.org)

> EXPO  <- read.table(
+ "http://freakonometrics.free.fr/Exposures-France.txt", header=TRUE,skip=2)
> EM=EXPO$Male
> EF=EXPO$Female
> Y= EXPO$Year
> A= EXPO$Age
> I=which(A=="110+")
> base=data.frame(Female=EF,Male=EM,Y=Y,Ages=A)
> base=base[-I,]
> France1913=base[base$Y==1913,]
> France1919=base[base$Y==1919,]
> France1913$Ages=as.numeric(
+ as.character(France1913$Ages))
> France1919$Ages=as.numeric(
+ as.character(France1919$Ages))
> France1913=France1913[,c("Male","Female",
+ "Ages")]
> library(pyramid)
> plot(c(0,100), c(0,100), type="n", 
+ frame=FALSE, axes=FALSE, xlab="", ylab="",
+ main="Pyramide des Ages, France, 1913")
> pyramidf(France1913, frame=c(10, 75, 0, 90), 
+ Clab="", Lcol="skyblue", Rcol="pink",
+ Cstep=10, Laxis=0:4*60000, AxisFM="d")

En revanche, juste après la guerre (en 1919), la pyramide des âges des âges ressemblait à celle là

> France1919=France1919[,c("Male
+ ","Female","Ages")]
> library(pyramid)
> plot(c(0,100), c(0,100), type="n",
+ frame=FALSE, axes=FALSE, xlab="", ylab="",
+ main="Pyramide des Ages, France, 1919")
> pyramidf(France1919, frame=c(10, 75, 0, 90), 
+ Clab="", Lcol="skyblue", Rcol="pink",
+ Cstep=10, Laxis=0:4*60000, AxisFM="d")

Bon, visiblement des gens sont morts. Cela dit, il est souvent normal que des gens décèdent, non? Si on oublie les effets de l’immigration, la pyramide s’amincit normalement avec le temps. Ici, on a d’ailleurs probablement plusieurs causes, entre la première guerre mondiale et l’épidémie de grippe (sans compter les morts naturelles). Cela dit, on peut aussi prédire la mortalité à partir des données avant-guerre. Encore une, oublions l’immigration. Si https://latex.codecogs.com/gif.latex?E_{x,t} désigne le nombre de personnes d’âge https://latex.codecogs.com/gif.latex?x en vie l’année https://latex.codecogs.com/gif.latex?t, l’année suivant, compte tenu des décès normaux, le nombre de personnes en vie sera https://latex.codecogs.com/gif.latex?\widehat{E}_{x+1,t+1}=E_{x,t}\cdot%20(1-\widehat{\mu}_{x,t}) Puis l’année suivante

https://latex.codecogs.com/gif.latex?\widehat{E}_{x+2,t+2}=\widehat{E}_{x+1,t+1}\cdot%20(1-\widehat{\mu}_{x+1,t+1})

etc.

> library(demography)
> france.LC1 <- lca(fr.mort,adjust="e0",
+ series="female",years=c(1900,1913))
> france.fcast <- forecast(france.LC1,h=10)
> L2F <- lifetable(france.fcast)$qx
> france.LC1 <- lca(fr.mort,adjust="e0",
+ series="male",years=c(1900,1913))
> france.fcast <- forecast(france.LC1,h=10)
> L2M <- lifetable(france.fcast)$qx
> France1913M=matrix(
+ France1913$Male[1:101],101,1)
> for(i in 1:10){
+ V=France1913M[i:100,i]*(1-L2F[(i+1):101,i])
+ France1913M=cbind(France1913M,
+ c(rep(0,i),V)
+ )}
> France1913F=matrix(
+ France1913$Female[1:101],101,1)
> for(i in 1:10){
+ V=France1913F[i:100,i]*(1-L2F[(i+1):101,i])
+ France1913F=cbind(France1913F,
+ c(rep(0,i),V)
+ )}

On peut d’ailleurs visualiser ce qu’aurait été la pyramide, en 1919, en projetant les décès à partir du nombre de personnes en vie, en 1913.

> France1919f=data.frame(Female=France1913F[,7],
+ Male=France1913M[,7],Ages=0:100)
> library(pyramid)
> plot(c(0,100), c(0,100), type="n", 
+ frame=FALSE, axes=FALSE, xlab="", ylab="",
+ main="Pyramide des Ages, France, 1919")
> pyramidf(France1919f, frame=c(10, 75, 0, 90), 
+ Clab="", Lcol="skyblue", Rcol="pink",
+ Cstep=10, Laxis=0:4*60000, AxisFM="d")

On peut d’ailleurs superposer les deux pyramides, celle avec une simple projection de la mortalité (en couleur foncée), et celle réellement observée  (en couleur plus claire),

> plot(c(0,100), c(0,100), type="n", 
+ frame=FALSE, axes=FALSE, xlab="", ylab="",
+ main="Population pyramid of Gunma prefecture")
> pyramidf(France1919f, frame=
+ c(10, 75, 0, 90), Clab="",
+ Lcol="deepskyblue", Rcol="deeppink",
+ Cstep=10, Laxis=0:4*60000, AxisFM="d")
> pyramidf(France1919[1:101,], frame=
+ c(10, 75, 0, 90), Clab="", 
+ Lcol="skyblue", Rcol="pink",
+ Ldens=10, Rdens=10, Cstep=10, 
+ Laxis=0:4*60000, AxisFM="d")
> legend("right", fill=c("skyblue","pink",
+ "deepskyblue","deeppink"),
+ density=c(NA,NA,10,10),
+ legend=c("Homme (Prev.)", "Femme (Prev.)", 
+ "Homme (Obs.)", "Femme (Obs.)"), cex=0.8)

On voit clairement que la guerre n’a pas tué tout le monde de manière égale. Elle a tué beaucoup d’hommes, essentiellement entre 15 et 40 ans. Mais en revanche, elle n’a absolument pas affecté les femmes de plus de 60 ans.


Leave a Reply

Your email address will not be published. Required fields are marked *