From 0bdfdac653849ee87121ab72f1da07eab5981f0e Mon Sep 17 00:00:00 2001
From: a5d926ba11441b63a36020707f45b788
 <a5d926ba11441b63a36020707f45b788@app-learninglab.inria.fr>
Date: Thu, 12 May 2022 16:10:50 +0000
Subject: [PATCH] Upload New File

---
 module3/exercice3/SEBIHI_Wheat.Rmd | 37 ++++++++++++++++++++++++++++++
 1 file changed, 37 insertions(+)
 create mode 100644 module3/exercice3/SEBIHI_Wheat.Rmd

diff --git a/module3/exercice3/SEBIHI_Wheat.Rmd b/module3/exercice3/SEBIHI_Wheat.Rmd
new file mode 100644
index 0000000..894a73b
--- /dev/null
+++ b/module3/exercice3/SEBIHI_Wheat.Rmd
@@ -0,0 +1,37 @@
+---
+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")
+  
+```
+
+
+
-- 
2.18.1