diff --git a/module3/exo3/exercice_en.Rmd b/module3/exo3/exercice_en.Rmd index 9cc2f16d4bdf389e13e4ebb8b1099084e8432473..76491faddf086f0ffec7b470debf268cc46a409c 100644 --- a/module3/exo3/exercice_en.Rmd +++ b/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)) +``` +