Upload New File

module3/exercice3/SEBIHI_Wheat.Rmd

+---
+title: "Wheat"
+author: "Stellia SEBIHI"
+date: "12/05/2022"
+output: pdf_document
+---
+
+```{r setup, include=FALSE}
+knitr::opts_chunk$set(echo = TRUE)
+```
+
+Installation et chargement des packages
+```{r warning=FALSE, message=FALSE}
+library(fpp2)
+library(fpp3)
+
+```
+
+Chargement du jeu de donnée 
+```{r}
+Wheat <- read_csv("Wheat.csv")
+Wheat <- Wheat[,-1]
+
+```
+
+1. Votre première tâche est de reproduire le graphe de Playfair à partir des données numériques. Représentez, comme Playfair, le prix du blé par des barres et les salaires par une surface bleue délimitée par une courbe rouge. Superposez les deux de la même façon dans un seul graphique. Le style de votre graphique pourra rester différent par rapport à l'original, mais l'impression globale devrait être la même.
+```{r}
+ggplot() + 
+  geom_bar(mapping = aes(x =Wheat$Year, y = Wheat$Wheat), stat = "identity", fill = "grey") +
+  geom_line(mapping = aes(x = Wheat$Year, y = Wheat$Wages), size = .5, color = "blue") + 
+  scale_x_discrete("Years")+
+  scale_y_continuous("Value")
+  
+```
+
+
+