---
title: "Evaluation par les pairs"
author: "Auteur: ea4f5ba1b97cd5a14653d4641234245a"
date: "05 Juin 2021"
output: pdf_document
---

# Le pouvoir d'achat des ouvriers anglais du XVIe au XIXe siècle

```{r setup, include=FALSE}
knitr::opts_chunk$set(echo = TRUE)

# J'indique mon répertoire de travail
setwd("C:/Users/Paul Faye/Desktop/MOOC-RR/module3/exo3")

```

### Importation des bibliothèques nécessaires

```{r}
library(ggplot2)
library(stringr)
library(tseries)
```

### Importation des données nécessaires

```{r}
# Importation des données
data = read.csv("Wheat.csv", header=T)
# Supprimer la colonne d'indexation
data$X =NULL 
# Un peu de statistiques descriptives
summary(data)
```
1. Reproduction du graphique de Playfair

```{r warning=FALSE}
ggplot(data = data) + 
  geom_bar(aes(x = Year, y = Wheat), stat="identity", width=5, fill = "white", color="steelblue") +
  xlab("Year")+
  ylab("shillings") +
  geom_area(aes(x =Year, y = Wages), color="red",fill="lightblue")+
    theme(
      axis.title.y = element_text(color = "blue"),
      axis.title.y.right = element_text(color = "blue"))

```

2. Amélioration du graphique avec une ordonnée pour chaque variable quantitative


```{r warning=FALSE}
ggplot(data= data) + 
  geom_bar(aes(x = Year, y = Wheat), stat="identity", width=5, fill = "white", color="steelblue") +
  xlab("Year")+
  ylab("shillings par quart de boisseau de blé") +
  geom_area(aes(x =Year, y = Wages), color="red",fill="lightblue")+
  ggtitle("Evolution du prix du blé et du salaire moyen de 1965 à 1821") +
  scale_y_continuous(sec.axis = sec_axis(~., name = "shillings par semaine"))+
    theme(
      axis.title.y = element_text(color = "blue"),
      axis.title.y.right = element_text(color = "red"))

#scale_y_continuous(sec.axis = sec_axis(~.*, name = ""))+
```
3. Représentation de l'évolution du pouvoir d'achat

```{r warning=FALSE}

# Le pouvoir d'achat est défini comme la quantité de blé qu'un ouvrier peut acheter avec son salaire hebdomadaire.
data$PA= data$Wages / data$Wheat 

# Evolution du pouvoir d'achat
ggplot(data= data) +
  xlab("Year")+
  ylab("Pouvoir d'achat (PA)") +
  geom_area(aes(x =Year, y = PA), color="purple",fill=NA)+
  ggtitle("Evolution du pouvoir d'achat de 1965 à 1821") +
    theme(
      axis.title.y = element_text(color = "purple"))
```

3. b) Graphique du prix du blé et du salaire : On montre l'augmentation dans le temps du pouvoir d'achat

```{r warning=FALSE}

# On enlève les 3 dernières observations pour lesquelles nous n'avons pas le salaire et par conséquent le pouvoir d'achat
plot.ts(data[1:50,2:4], main= "Evolution au cours du temps")


```
Le pouvoir d'achat a une tendance haussière au cours du temps. Il faut cependant noter quelques périodes d'instabilité, ou elle s'inverse (baisse).