Replace exercice_en.Rmd

module3/exo3/exercice_en.Rmd

@@ -129,12 +129,25 @@ ggplot(df_sub, aes(x=Wages, y=Wheat)) +
              fill = "#3399e6" ) +
   geom_point( size = .7, shape = 4 ) +
 
-  xlim(min((na.omit(df_sub))$Wages), max((na.omit(df_sub))$Wages)) +
+  #xlim(min((na.omit(df_sub))$Wages), max((na.omit(df_sub))$Wages)) +
   
   labs(title = "Evolution of wheat price with respect to salary of English workers (16th to 19th century)") +
   theme(plot.title = element_text(hjust = 0.5))
 ```
 
+## From another angle
+An interesting parameter to look at is the ratio representing the amount of wheat a worker can buy with his salary. 
+```{r, message=FALSE}
+df_sub2 <- df[,]
+ggplot(df_sub2, aes(x=Year, y=Wages/Wheat)) + 
+  geom_line( size = 0.5, alpha=0.5, 
+             linetype="dashed" ) +
+  geom_point( size = 1 ) +
+  
+  labs(title = "How many wheat quaters a worker can buy with his weekly salary ?") +
+  theme(plot.title = element_text(hjust = 0.5))
+```
+