Skip to content

M
mooc-rr
Commit af7cdbf2 authored by Paul's avatar Paul
Browse files
Options

Solution Finale proposée

parent 52958515
Hide whitespace changes
Inline Side-by-side
Showing with 409 additions and 576 deletions
module3/exo3/README.txt 0 → 100644
View file @ af7cdbf2
README file for Snow GIS data
-----------------------------
This zip file contains a number of GIS layers relating to John Snow's 1854 investigation of a
Cholera outbreak in London - considered by many to be the first use of geographical analysis
in an epidemiological study. More details on the history are available at
http://en.wikipedia.org/wiki/1854_Broad_Street_cholera_outbreak
This file contains a number of GIS layers created from Snow's original map which allow analyses to be
conducted on the data in modern GIS systems. For example, clustering of cases can be analysed and the
effect of spatial aggregation in modern anonymised health data releases. Of course, it's also just
interesting to look at the area, and how little it has changed since 1854.
Files included:
(Many of the items in the list consist of many actual files (for example .shp, .dbf etc)
* OSMap Raster Modern OS map of the area of the outbreak (from OS Open Data - contains Ordnance Survey data © Crown copyright and database right 2013)
* OSMap_Greyscale Raster Same as above, but in greyscale for easier visualisation (altered by conversion to greyscale, from OS Open Data - contains Ordnance Survey data © Crown copyright and database right 2013)
* SnowMap Raster Snow's original map, georeferenced and warped so that it accurately overlays the OS map
* CholeraDeaths Vector Points for each location of one or more deaths. Attribute value gives number of deaths at that location
* Pumps Vector Points for each location of a pump
Created and compiled by Robin Wilson (robin@rtwilson.com, www.rtwilson.com/academic) - Jan 2011.
\ No newline at end of file
module3/exo3/exercice_fr.Rmd
View file @ af7cdbf2
--- ---
title: "Evaluation par les pairs" title: "Evaluation par les pairs"
author: "Paul Faye" author: "Auteur: ea4f5ba1b97cd5a14653d4641234245a"
date: "05 Juin 2021" date: "05 Juin 2021"
output: pdf_document output: pdf_document
--- ---
......
module3/exo3/exercice_fr.knit.md 0 → 100644
View file @ af7cdbf2
---
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
### Importation des bibliothèques nécessaires
```r
library(ggplot2)
library(stringr)
library(tseries)
```
```
## Registered S3 method overwritten by 'quantmod':
## method from
## as.zoo.data.frame zoo
```
### 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)
```
```
## Year Wheat Wages
## Min. :1565 Min. :26.00 Min. : 5.000
## 1st Qu.:1630 1st Qu.:33.00 1st Qu.: 6.145
## Median :1695 Median :41.00 Median : 7.800
## Mean :1695 Mean :43.26 Mean :11.582
## 3rd Qu.:1760 3rd Qu.:47.00 3rd Qu.:14.875
## Max. :1821 Max. :99.00 Max. :30.000
## NA's :3
```
1. Reproduction du graphique de Playfair
```r
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"))
```
![](exercice_fr_files/figure-latex/unnamed-chunk-3-1.pdf)<!-- -->
2. Amélioration du graphique avec une ordonnée pour chaque variable quantitative
```r
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"))
```
![](exercice_fr_files/figure-latex/unnamed-chunk-4-1.pdf)<!-- -->
```r
#scale_y_continuous(sec.axis = sec_axis(~.*, name = ""))+
```
3. Représentation de l'évolution du pouvoir d'achat
```r
# 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"))
```
![](exercice_fr_files/figure-latex/unnamed-chunk-5-1.pdf)<!-- -->
3. b) Graphique du prix du blé et du salaire : On montre l'augmentation dans le temps du pouvoir d'achat
```r
# 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")
```
![](exercice_fr_files/figure-latex/unnamed-chunk-6-1.pdf)<!-- -->
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).
module3/exo3/exercice_fr.log
View file @ af7cdbf2
This is pdfTeX, Version 3.14159265-2.6-1.40.21 (MiKTeX 20.11) (preloaded format=pdflatex 2020.11.11) 6 JUN 2021 01:02 This is pdfTeX, Version 3.14159265-2.6-1.40.21 (MiKTeX 20.11) (preloaded format=pdflatex 2020.11.11) 6 JUN 2021 01:20
entering extended mode entering extended mode
**./exercice_fr.tex **./exercice_fr.tex
(exercice_fr.tex (exercice_fr.tex
...@@ -105,577 +105,4 @@ LaTeX Font Info: Overwriting symbol font `largesymbols' in version `normal' ...@@ -105,577 +105,4 @@ LaTeX Font Info: Overwriting symbol font `largesymbols' in version `normal'
(Font) OMX/cmex/m/n --> OMX/lmex/m/n on input line 25. (Font) OMX/cmex/m/n --> OMX/lmex/m/n on input line 25.
LaTeX Font Info: Overwriting symbol font `operators' in version `bold' LaTeX Font Info: Overwriting symbol font `operators' in version `bold'
(Font) OT1/cmr/bx/n --> OT1/lmr/bx/n on input line 26. (Font) OT1/cmr/bx/n --> OT1/lmr/bx/n on input line 26.
LaTeX Font Info: Overwriting symbol font `letters' in version `bold' LaTeX Font In
(Font) OML/cmm/b/it --> OML/lmm/b/it on input line 27. \ No newline at end of file
LaTeX Font Info: Overwriting symbol font `symbols' in version `bold'
(Font) OMS/cmsy/b/n --> OMS/lmsy/b/n on input line 28.
LaTeX Font Info: Overwriting symbol font `largesymbols' in version `bold'
(Font) OMX/cmex/m/n --> OMX/lmex/m/n on input line 29.
LaTeX Font Info: Overwriting math alphabet `\mathbf' in version `normal'
(Font) OT1/cmr/bx/n --> OT1/lmr/bx/n on input line 31.
LaTeX Font Info: Overwriting math alphabet `\mathsf' in version `normal'
(Font) OT1/cmss/m/n --> OT1/lmss/m/n on input line 32.
LaTeX Font Info: Overwriting math alphabet `\mathit' in version `normal'
(Font) OT1/cmr/m/it --> OT1/lmr/m/it on input line 33.
LaTeX Font Info: Overwriting math alphabet `\mathtt' in version `normal'
(Font) OT1/cmtt/m/n --> OT1/lmtt/m/n on input line 34.
LaTeX Font Info: Overwriting math alphabet `\mathbf' in version `bold'
(Font) OT1/cmr/bx/n --> OT1/lmr/bx/n on input line 35.
LaTeX Font Info: Overwriting math alphabet `\mathsf' in version `bold'
(Font) OT1/cmss/bx/n --> OT1/lmss/bx/n on input line 36.
LaTeX Font Info: Overwriting math alphabet `\mathit' in version `bold'
(Font) OT1/cmr/bx/it --> OT1/lmr/bx/it on input line 37.
LaTeX Font Info: Overwriting math alphabet `\mathtt' in version `bold'
(Font) OT1/cmtt/m/n --> OT1/lmtt/m/n on input line 38.
)
("C:\Users\Paul Faye\AppData\Local\Programs\MiKTeX\tex/generic/iftex\ifxetex.st
y"
Package: ifxetex 2019/10/25 v0.7 ifxetex legacy package. Use iftex instead.
("C:\Users\Paul Faye\AppData\Local\Programs\MiKTeX\tex/generic/iftex\iftex.sty"
Package: iftex 2020/03/06 v1.0d TeX engine tests
))
("C:\Users\Paul Faye\AppData\Local\Programs\MiKTeX\tex/generic/iftex\ifluatex.s
ty"
Package: ifluatex 2019/10/25 v1.5 ifluatex legacy package. Use iftex instead.
) ("C:\Users\Paul Faye\AppData\Local\Programs\MiKTeX\tex/latex/base\fontenc.sty
"
Package: fontenc 2020/08/10 v2.0s Standard LaTeX package
LaTeX Font Info: Trying to load font information for T1+lmr on input line 11
2.
("C:\Users\Paul Faye\AppData\Local\Programs\MiKTeX\tex/latex/lm\t1lmr.fd"
File: t1lmr.fd 2009/10/30 v1.6 Font defs for Latin Modern
)) ("C:\Users\Paul Faye\AppData\Local\Programs\MiKTeX\tex/latex/base\inputenc.s
ty"
Package: inputenc 2020/08/01 v1.3d Input encoding file
\inpenc@prehook=\toks20
\inpenc@posthook=\toks21
) ("C:\Users\Paul Faye\AppData\Local\Programs\MiKTeX\tex/latex/base\textcomp.st
y"
Package: textcomp 2020/02/02 v2.0n Standard LaTeX package
)
("C:\Users\Paul Faye\AppData\Local\Programs\MiKTeX\tex/latex/upquote\upquote.st
y"
Package: upquote 2012/04/19 v1.3 upright-quote and grave-accent glyphs in verba
tim
)
("C:\Users\Paul Faye\AppData\Local\Programs\MiKTeX\tex/latex/microtype\microtyp
e.sty"
Package: microtype 2019/11/18 v2.7d Micro-typographical refinements (RS)
("C:\Users\Paul Faye\AppData\Local\Programs\MiKTeX\tex/latex/graphics\keyval.st
y"
Package: keyval 2014/10/28 v1.15 key=value parser (DPC)
\KV@toks@=\toks22
)
\MT@toks=\toks23
\MT@count=\count195
LaTeX Info: Redefining \textls on input line 790.
\MT@outer@kern=\dimen148
LaTeX Info: Redefining \textmicrotypecontext on input line 1354.
\MT@listname@count=\count196
("C:\Users\Paul Faye\AppData\Local\Programs\MiKTeX\tex/latex/microtype\microtyp
e-pdftex.def"
File: microtype-pdftex.def 2019/11/18 v2.7d Definitions specific to pdftex (RS)
LaTeX Info: Redefining \lsstyle on input line 914.
LaTeX Info: Redefining \lslig on input line 914.
\MT@outer@space=\skip52
)
Package microtype Info: Loading configuration file microtype.cfg.
("C:\Users\Paul Faye\AppData\Local\Programs\MiKTeX\tex/latex/microtype\microtyp
e.cfg"
File: microtype.cfg 2019/11/18 v2.7d microtype main configuration file (RS)
))
("C:\Users\Paul Faye\AppData\Local\Programs\MiKTeX\tex/latex/parskip\parskip.st
y"
Package: parskip 2020-06-15 v2.0f non-zero parskip adjustments
("C:\Users\Paul Faye\AppData\Local\Programs\MiKTeX\tex/latex/kvoptions\kvoption
s.sty"
Package: kvoptions 2020-10-07 v3.14 Key value format for package options (HO)
("C:\Users\Paul Faye\AppData\Local\Programs\MiKTeX\tex/generic/ltxcmds\ltxcmds.
sty"
Package: ltxcmds 2020-05-10 v1.25 LaTeX kernel commands for general use (HO)
)
("C:\Users\Paul Faye\AppData\Local\Programs\MiKTeX\tex/generic/kvsetkeys\kvsetk
eys.sty"
Package: kvsetkeys 2019/12/15 v1.18 Key value parser (HO)
))
("C:\Users\Paul Faye\AppData\Local\Programs\MiKTeX\tex/latex/etoolbox\etoolbox.
sty"
Package: etoolbox 2020/10/05 v2.5k e-TeX tools for LaTeX (JAW)
\etb@tempcnta=\count197
)) ("C:\Users\Paul Faye\AppData\Local\Programs\MiKTeX\tex/latex/xcolor\xcolor.s
ty"
Package: xcolor 2016/05/11 v2.12 LaTeX color extensions (UK)
("C:\Users\Paul Faye\AppData\Local\Programs\MiKTeX\tex/latex/graphics-cfg\color
.cfg"
File: color.cfg 2016/01/02 v1.6 sample color configuration
)
Package xcolor Info: Driver file: pdftex.def on input line 225.
("C:\Users\Paul Faye\AppData\Local\Programs\MiKTeX\tex/latex/graphics-def\pdfte
x.def"
File: pdftex.def 2020/10/05 v1.2a Graphics/color driver for pdftex
)
Package xcolor Info: Model `cmy' substituted by `cmy0' on input line 1348.
Package xcolor Info: Model `hsb' substituted by `rgb' on input line 1352.
Package xcolor Info: Model `RGB' extended on input line 1364.
Package xcolor Info: Model `HTML' substituted by `rgb' on input line 1366.
Package xcolor Info: Model `Hsb' substituted by `hsb' on input line 1367.
Package xcolor Info: Model `tHsb' substituted by `hsb' on input line 1368.
Package xcolor Info: Model `HSB' substituted by `hsb' on input line 1369.
Package xcolor Info: Model `Gray' substituted by `gray' on input line 1370.
Package xcolor Info: Model `wave' substituted by `hsb' on input line 1371.
) ("C:\Users\Paul Faye\AppData\Local\Programs\MiKTeX\tex/latex/xurl\xurl.sty"
Package: xurl 2020/01/24 v 0.09 modify URL breaks
("C:\Users\Paul Faye\AppData\Local\Programs\MiKTeX\tex/latex/url\url.sty"
\Urlmuskip=\muskip17
Package: url 2013/09/16 ver 3.4 Verb mode for urls, etc.
))
("C:\Users\Paul Faye\AppData\Local\Programs\MiKTeX\tex/latex/bookmark\bookmark.
sty"
Package: bookmark 2020-11-06 v1.29 PDF bookmarks (HO)
("C:\Users\Paul Faye\AppData\Local\Programs\MiKTeX\tex/latex/hyperref\hyperref.
sty"
Package: hyperref 2020-05-15 v7.00e Hypertext links for LaTeX
("C:\Users\Paul Faye\AppData\Local\Programs\MiKTeX\tex/generic/pdftexcmds\pdfte
xcmds.sty"
Package: pdftexcmds 2020-06-27 v0.33 Utility functions of pdfTeX for LuaTeX (HO
)
("C:\Users\Paul Faye\AppData\Local\Programs\MiKTeX\tex/generic/infwarerr\infwar
err.sty"
Package: infwarerr 2019/12/03 v1.5 Providing info/warning/error messages (HO)
)
Package pdftexcmds Info: \pdf@primitive is available.
Package pdftexcmds Info: \pdf@ifprimitive is available.
Package pdftexcmds Info: \pdfdraftmode found.
)
("C:\Users\Paul Faye\AppData\Local\Programs\MiKTeX\tex/generic/kvdefinekeys\kvd
efinekeys.sty"
Package: kvdefinekeys 2019-12-19 v1.6 Define keys (HO)
)
("C:\Users\Paul Faye\AppData\Local\Programs\MiKTeX\tex/generic/pdfescape\pdfesc
ape.sty"
Package: pdfescape 2019/12/09 v1.15 Implements pdfTeX's escape features (HO)
)
("C:\Users\Paul Faye\AppData\Local\Programs\MiKTeX\tex/latex/hycolor\hycolor.st
y"
Package: hycolor 2020-01-27 v1.10 Color options for hyperref/bookmark (HO)
)
("C:\Users\Paul Faye\AppData\Local\Programs\MiKTeX\tex/latex/letltxmacro\letltx
macro.sty"
Package: letltxmacro 2019/12/03 v1.6 Let assignment for LaTeX macros (HO)
)
("C:\Users\Paul Faye\AppData\Local\Programs\MiKTeX\tex/latex/auxhook\auxhook.st
y"
Package: auxhook 2019-12-17 v1.6 Hooks for auxiliary files (HO)
)
\@linkdim=\dimen149
\Hy@linkcounter=\count198
\Hy@pagecounter=\count199
("C:\Users\Paul Faye\AppData\Local\Programs\MiKTeX\tex/latex/hyperref\pd1enc.de
f"
File: pd1enc.def 2020-05-15 v7.00e Hyperref: PDFDocEncoding definition (HO)
Now handling font encoding PD1 ...
... no UTF-8 mapping file for font encoding PD1
)
("C:\Users\Paul Faye\AppData\Local\Programs\MiKTeX\tex/generic/intcalc\intcalc.
sty"
Package: intcalc 2019/12/15 v1.3 Expandable calculations with integers (HO)
)
("C:\Users\Paul Faye\AppData\Local\Programs\MiKTeX\tex/generic/etexcmds\etexcmd
s.sty"
Package: etexcmds 2019/12/15 v1.7 Avoid name clashes with e-TeX commands (HO)
)
\Hy@SavedSpaceFactor=\count266
Package hyperref Info: Option `unicode' set `true' on input line 4338.
("C:\Users\Paul Faye\AppData\Local\Programs\MiKTeX\tex/latex/hyperref\puenc.def
"
File: puenc.def 2020-05-15 v7.00e Hyperref: PDF Unicode definition (HO)
Now handling font encoding PU ...
... no UTF-8 mapping file for font encoding PU
)
Package hyperref Info: Hyper figures OFF on input line 4464.
Package hyperref Info: Link nesting OFF on input line 4469.
Package hyperref Info: Hyper index ON on input line 4472.
Package hyperref Info: Plain pages OFF on input line 4479.
Package hyperref Info: Backreferencing OFF on input line 4484.
Package hyperref Info: Implicit mode ON; LaTeX internals redefined.
Package hyperref Info: Bookmarks ON on input line 4717.
\c@Hy@tempcnt=\count267
LaTeX Info: Redefining \url on input line 5076.
\XeTeXLinkMargin=\dimen150
("C:\Users\Paul Faye\AppData\Local\Programs\MiKTeX\tex/generic/bitset\bitset.st
y"
Package: bitset 2019/12/09 v1.3 Handle bit-vector datatype (HO)
("C:\Users\Paul Faye\AppData\Local\Programs\MiKTeX\tex/generic/bigintcalc\bigin
tcalc.sty"
Package: bigintcalc 2019/12/15 v1.5 Expandable calculations on big integers (HO
)
))
\Fld@menulength=\count268
\Field@Width=\dimen151
\Fld@charsize=\dimen152
Package hyperref Info: Hyper figures OFF on input line 6347.
Package hyperref Info: Link nesting OFF on input line 6352.
Package hyperref Info: Hyper index ON on input line 6355.
Package hyperref Info: backreferencing OFF on input line 6362.
Package hyperref Info: Link coloring OFF on input line 6367.
Package hyperref Info: Link coloring with OCG OFF on input line 6372.
Package hyperref Info: PDF/A mode OFF on input line 6377.
LaTeX Info: Redefining \ref on input line 6417.
LaTeX Info: Redefining \pageref on input line 6421.
("C:\Users\Paul Faye\AppData\Local\Programs\MiKTeX\tex/latex/base\atbegshi-ltx.
sty"
Package: atbegshi-ltx 2020/08/17 v1.0a Emulation of the original atbegshi packa
ge
with kernel methods
)
\Hy@abspage=\count269
\c@Item=\count270
\c@Hfootnote=\count271
)
Package hyperref Info: Driver (autodetected): hpdftex.
("C:\Users\Paul Faye\AppData\Local\Programs\MiKTeX\tex/latex/hyperref\hpdftex.d
ef"
File: hpdftex.def 2020-05-15 v7.00e Hyperref driver for pdfTeX
("C:\Users\Paul Faye\AppData\Local\Programs\MiKTeX\tex/latex/base\atveryend-ltx
.sty"
Package: atveryend-ltx 2020/08/19 v1.0a Emulation of the original atvery packag
e
with kernel methods
)
\Fld@listcount=\count272
\c@bookmark@seq@number=\count273
("C:\Users\Paul Faye\AppData\Local\Programs\MiKTeX\tex/latex/rerunfilecheck\rer
unfilecheck.sty"
Package: rerunfilecheck 2019/12/05 v1.9 Rerun checks for auxiliary files (HO)
("C:\Users\Paul Faye\AppData\Local\Programs\MiKTeX\tex/generic/uniquecounter\un
iquecounter.sty"
Package: uniquecounter 2019/12/15 v1.4 Provide unlimited unique counter (HO)
)
Package uniquecounter Info: New unique counter `rerunfilecheck' on input line 2
86.
)
\Hy@SectionHShift=\skip53
)
("C:\Users\Paul Faye\AppData\Local\Programs\MiKTeX\tex/latex/bookmark\bkm-pdfte
x.def"
File: bkm-pdftex.def 2020-11-06 v1.29 bookmark driver for pdfTeX (HO)
\BKM@id=\count274
))
("C:\Users\Paul Faye\AppData\Local\Programs\MiKTeX\tex/latex/geometry\geometry.
sty"
Package: geometry 2020/01/02 v5.9 Page Geometry
("C:\Users\Paul Faye\AppData\Local\Programs\MiKTeX\tex/generic/iftex\ifvtex.sty
"
Package: ifvtex 2019/10/25 v1.7 ifvtex legacy package. Use iftex instead.
)
\Gm@cnth=\count275
\Gm@cntv=\count276
\c@Gm@tempcnt=\count277
\Gm@bindingoffset=\dimen153
\Gm@wd@mp=\dimen154
\Gm@odd@mp=\dimen155
\Gm@even@mp=\dimen156
\Gm@layoutwidth=\dimen157
\Gm@layoutheight=\dimen158
\Gm@layouthoffset=\dimen159
\Gm@layoutvoffset=\dimen160
\Gm@dimlist=\toks24
("C:\Users\Paul Faye\AppData\Local\Programs\MiKTeX\tex/latex/geometry\geometry.
cfg"))
("C:\Users\Paul Faye\AppData\Local\Programs\MiKTeX\tex/latex/fancyvrb\fancyvrb.
sty"
Package: fancyvrb 2020/05/03 v3.6 verbatim text (tvz,hv)
\FV@CodeLineNo=\count278
\FV@InFile=\read2
\FV@TabBox=\box49
\c@FancyVerbLine=\count279
\FV@StepNumber=\count280
\FV@OutFile=\write3
) ("C:\Users\Paul Faye\AppData\Local\Programs\MiKTeX\tex/latex/framed\framed.st
y"
Package: framed 2011/10/22 v 0.96: framed or shaded text with page breaks
\OuterFrameSep=\skip54
\fb@frw=\dimen161
\fb@frh=\dimen162
\FrameRule=\dimen163
\FrameSep=\dimen164
)
("C:\Users\Paul Faye\AppData\Local\Programs\MiKTeX\tex/latex/graphics\graphicx.
sty"
Package: graphicx 2020/09/09 v1.2b Enhanced LaTeX Graphics (DPC,SPQR)
("C:\Users\Paul Faye\AppData\Local\Programs\MiKTeX\tex/latex/graphics\graphics.
sty"
Package: graphics 2020/08/30 v1.4c Standard LaTeX Graphics (DPC,SPQR)
("C:\Users\Paul Faye\AppData\Local\Programs\MiKTeX\tex/latex/graphics\trig.sty"
Package: trig 2016/01/03 v1.10 sin cos tan (DPC)
)
("C:\Users\Paul Faye\AppData\Local\Programs\MiKTeX\tex/latex/graphics-cfg\graph
ics.cfg"
File: graphics.cfg 2016/06/04 v1.11 sample graphics configuration
)
Package graphics Info: Driver file: pdftex.def on input line 105.
)
\Gin@req@height=\dimen165
\Gin@req@width=\dimen166
)
("C:\Users\Paul Faye\AppData\Local\Programs\MiKTeX\tex/latex/l3backend\l3backen
d-pdftex.def"
File: l3backend-pdftex.def 2020-09-24 L3 backend support: PDF output (pdfTeX)
\l__kernel_color_stack_int=\count281
\l__pdf_internal_box=\box50
) (exercice_fr.aux)
\openout1 = `exercice_fr.aux'.
LaTeX Font Info: Checking defaults for OML/cmm/m/it on input line 110.
LaTeX Font Info: ... okay on input line 110.
LaTeX Font Info: Checking defaults for OMS/cmsy/m/n on input line 110.
LaTeX Font Info: ... okay on input line 110.
LaTeX Font Info: Checking defaults for OT1/cmr/m/n on input line 110.
LaTeX Font Info: ... okay on input line 110.
LaTeX Font Info: Checking defaults for T1/cmr/m/n on input line 110.
LaTeX Font Info: ... okay on input line 110.
LaTeX Font Info: Checking defaults for TS1/cmr/m/n on input line 110.
LaTeX Font Info: ... okay on input line 110.
LaTeX Font Info: Checking defaults for OMX/cmex/m/n on input line 110.
LaTeX Font Info: ... okay on input line 110.
LaTeX Font Info: Checking defaults for U/cmr/m/n on input line 110.
LaTeX Font Info: ... okay on input line 110.
LaTeX Font Info: Checking defaults for PD1/pdf/m/n on input line 110.
LaTeX Font Info: ... okay on input line 110.
LaTeX Font Info: Checking defaults for PU/pdf/m/n on input line 110.
LaTeX Font Info: ... okay on input line 110.
LaTeX Info: Redefining \microtypecontext on input line 110.
Package microtype Info: Generating PDF output.
Package microtype Info: Character protrusion enabled (level 2).
Package microtype Info: Using protrusion set `basicmath'.
Package microtype Info: Automatic font expansion enabled (level 2),
(microtype) stretch: 20, shrink: 20, step: 1, non-selected.
Package microtype Info: Using default expansion set `basictext'.
LaTeX Info: Redefining \showhyphens on input line 110.
Package microtype Info: No adjustment of tracking.
Package microtype Info: No adjustment of interword spacing.
Package microtype Info: No adjustment of character kerning.
("C:\Users\Paul Faye\AppData\Local\Programs\MiKTeX\tex/latex/microtype\mt-cmr.c
fg"
File: mt-cmr.cfg 2013/05/19 v2.2 microtype config. file: Computer Modern Roman
(RS)
)
("C:\Users\Paul Faye\AppData\Local\Programs\MiKTeX\tex/context/base/mkii\supp-p
df.mkii"
[Loading MPS to PDF converter (version 2006.09.02).]
\scratchcounter=\count282
\scratchdimen=\dimen167
\scratchbox=\box51
\nofMPsegments=\count283
\nofMParguments=\count284
\everyMPshowfont=\toks25
\MPscratchCnt=\count285
\MPscratchDim=\dimen168
\MPnumerator=\count286
\makeMPintoPDFobject=\count287
\everyMPtoPDFconversion=\toks26
)
("C:\Users\Paul Faye\AppData\Local\Programs\MiKTeX\tex/latex/epstopdf-pkg\epsto
pdf-base.sty"
Package: epstopdf-base 2020-01-24 v2.11 Base part for package epstopdf
Package epstopdf-base Info: Redefining graphics rule for `.eps' on input line 4
85.
)
Package hyperref Info: Link coloring OFF on input line 110.
("C:\Users\Paul Faye\AppData\Local\Programs\MiKTeX\tex/latex/hyperref\nameref.s
ty"
Package: nameref 2019/09/16 v2.46 Cross-referencing by name of section
("C:\Users\Paul Faye\AppData\Local\Programs\MiKTeX\tex/latex/refcount\refcount.
sty"
Package: refcount 2019/12/15 v3.6 Data extraction from label references (HO)
)
("C:\Users\Paul Faye\AppData\Local\Programs\MiKTeX\tex/generic/gettitlestring\g
ettitlestring.sty"
Package: gettitlestring 2019/12/15 v1.6 Cleanup title references (HO)
)
\c@section@level=\count288
)
LaTeX Info: Redefining \ref on input line 110.
LaTeX Info: Redefining \pageref on input line 110.
LaTeX Info: Redefining \nameref on input line 110.
*geometry* driver: auto-detecting
*geometry* detected driver: pdftex
*geometry* verbose mode - [ preamble ] result:
* driver: pdftex
* paper: <default>
* layout: <same size as paper>
* layoutoffset:(h,v)=(0.0pt,0.0pt)
* modes:
* h-part:(L,W,R)=(72.26999pt, 469.75502pt, 72.26999pt)
* v-part:(T,H,B)=(72.26999pt, 650.43001pt, 72.26999pt)
* \paperwidth=614.295pt
* \paperheight=794.96999pt
* \textwidth=469.75502pt
* \textheight=650.43001pt
* \oddsidemargin=0.0pt
* \evensidemargin=0.0pt
* \topmargin=-37.0pt
* \headheight=12.0pt
* \headsep=25.0pt
* \topskip=10.0pt
* \footskip=30.0pt
* \marginparwidth=65.0pt
* \marginparsep=11.0pt
* \columnsep=10.0pt
* \skip\footins=9.0pt plus 4.0pt minus 2.0pt
* \hoffset=0.0pt
* \voffset=0.0pt
* \mag=1000
* \@twocolumnfalse
* \@twosidefalse
* \@mparswitchfalse
* \@reversemarginfalse
* (1in=72.27pt=25.4mm, 1cm=28.453pt)
LaTeX Font Info: Trying to load font information for OT1+lmr on input line 1
12.
("C:\Users\Paul Faye\AppData\Local\Programs\MiKTeX\tex/latex/lm\ot1lmr.fd"
File: ot1lmr.fd 2009/10/30 v1.6 Font defs for Latin Modern
)
LaTeX Font Info: Trying to load font information for OML+lmm on input line 1
12.
("C:\Users\Paul Faye\AppData\Local\Programs\MiKTeX\tex/latex/lm\omllmm.fd"
File: omllmm.fd 2009/10/30 v1.6 Font defs for Latin Modern
)
LaTeX Font Info: Trying to load font information for OMS+lmsy on input line
112.
("C:\Users\Paul Faye\AppData\Local\Programs\MiKTeX\tex/latex/lm\omslmsy.fd"
File: omslmsy.fd 2009/10/30 v1.6 Font defs for Latin Modern
)
LaTeX Font Info: Trying to load font information for OMX+lmex on input line
112.
("C:\Users\Paul Faye\AppData\Local\Programs\MiKTeX\tex/latex/lm\omxlmex.fd"
File: omxlmex.fd 2009/10/30 v1.6 Font defs for Latin Modern
)
LaTeX Font Info: External font `lmex10' loaded for size
(Font) <12> on input line 112.
LaTeX Font Info: External font `lmex10' loaded for size
(Font) <8> on input line 112.
LaTeX Font Info: External font `lmex10' loaded for size
(Font) <6> on input line 112.
LaTeX Font Info: Trying to load font information for U+msa on input line 112
.
("C:\Users\Paul Faye\AppData\Local\Programs\MiKTeX\tex/latex/amsfonts\umsa.fd"
File: umsa.fd 2013/01/14 v3.01 AMS symbols A
)
("C:\Users\Paul Faye\AppData\Local\Programs\MiKTeX\tex/latex/microtype\mt-msa.c
fg"
File: mt-msa.cfg 2006/02/04 v1.1 microtype config. file: AMS symbols (a) (RS)
)
LaTeX Font Info: Trying to load font information for U+msb on input line 112
.
("C:\Users\Paul Faye\AppData\Local\Programs\MiKTeX\tex/latex/amsfonts\umsb.fd"
File: umsb.fd 2013/01/14 v3.01 AMS symbols B
)
("C:\Users\Paul Faye\AppData\Local\Programs\MiKTeX\tex/latex/microtype\mt-msb.c
fg"
File: mt-msb.cfg 2005/06/01 v1.0 microtype config. file: AMS symbols (b) (RS)
)
LaTeX Font Info: Trying to load font information for T1+lmtt on input line 1
22.
("C:\Users\Paul Faye\AppData\Local\Programs\MiKTeX\tex/latex/lm\t1lmtt.fd"
File: t1lmtt.fd 2009/10/30 v1.6 Font defs for Latin Modern
)
LaTeX Font Info: Trying to load font information for TS1+lmtt on input line
133.
("C:\Users\Paul Faye\AppData\Local\Programs\MiKTeX\tex/latex/lm\ts1lmtt.fd"
File: ts1lmtt.fd 2009/10/30 v1.6 Font defs for Latin Modern
)
<exercice_fr_files/figure-latex/unnamed-chunk-3-1.pdf, id=3, 469.755pt x 325.21
5pt>
File: exercice_fr_files/figure-latex/unnamed-chunk-3-1.pdf Graphic file (type p
df)
<use exercice_fr_files/figure-latex/unnamed-chunk-3-1.pdf>
Package pdftex.def Info: exercice_fr_files/figure-latex/unnamed-chunk-3-1.pdf
used on input line 181.
(pdftex.def) Requested size: 469.75386pt x 325.2142pt.
[1
{C:/Users/Paul Faye/AppData/Local/MiKTeX/pdftex/config/pdftex.map}]
<exercice_fr_files/figure-latex/unnamed-chunk-4-1.pdf, id=25, 469.755pt x 325.2
15pt>
File: exercice_fr_files/figure-latex/unnamed-chunk-4-1.pdf Graphic file (type p
df)
<use exercice_fr_files/figure-latex/unnamed-chunk-4-1.pdf>
Package pdftex.def Info: exercice_fr_files/figure-latex/unnamed-chunk-4-1.pdf
used on input line 207.
(pdftex.def) Requested size: 469.75386pt x 325.2142pt.
[2 <./exercice_fr_files/figure-latex/unnamed-chunk-3-1.pdf>]
<exercice_fr_files/figure-latex/unnamed-chunk-5-1.pdf, id=36, 469.755pt x 325.2
15pt>
File: exercice_fr_files/figure-latex/unnamed-chunk-5-1.pdf Graphic file (type p
df)
<use exercice_fr_files/figure-latex/unnamed-chunk-5-1.pdf>
Package pdftex.def Info: exercice_fr_files/figure-latex/unnamed-chunk-5-1.pdf
used on input line 239.
(pdftex.def) Requested size: 469.75386pt x 325.2142pt.
[3 <./exercice_fr_files/figure-latex/unnamed-chunk-4-1.pdf>]
<exercice_fr_files/figure-latex/unnamed-chunk-6-1.pdf, id=47, 469.755pt x 325.2
15pt>
File: exercice_fr_files/figure-latex/unnamed-chunk-6-1.pdf Graphic file (type p
df)
<use exercice_fr_files/figure-latex/unnamed-chunk-6-1.pdf>
Package pdftex.def Info: exercice_fr_files/figure-latex/unnamed-chunk-6-1.pdf
used on input line 262.
(pdftex.def) Requested size: 469.75386pt x 325.2142pt.
Underfull \hbox (badness 10000) in paragraph at lines 262--266
[][]
[]
[4 <./exercice_fr_files/figure-latex/unnamed-chunk-5-1.pdf>] [5 <./exercice_fr_
files/figure-latex/unnamed-chunk-6-1.pdf>] (exercice_fr.aux) )
Here is how much of TeX's memory you used:
13336 strings out of 479761
200776 string characters out of 2866015
522742 words of memory out of 3000000
30093 multiletter control sequences out of 15000+200000
567361 words of font info for 64 fonts, out of 3000000 for 9000
1141 hyphenation exceptions out of 8191
79i,6n,85p,815b,386s stack positions out of 5000i,500n,10000p,200000b,50000s
{C:/Users/Paul Fa
ye/AppData/Local/Programs/MiKTeX/fonts/enc/dvips/lm/lm-ec.enc}{C:/Users/Paul Fa
ye/AppData/Local/Programs/MiKTeX/fonts/enc/dvips/lm/lm-ts1.enc}<C:/Users/Paul F
aye/AppData/Local/Programs/MiKTeX/fonts/type1/public/lm/lmbx10.pfb><C:/Users/Pa
ul Faye/AppData/Local/Programs/MiKTeX/fonts/type1/public/lm/lmbx12.pfb><C:/User
s/Paul Faye/AppData/Local/Programs/MiKTeX/fonts/type1/public/lm/lmr10.pfb><C:/U
sers/Paul Faye/AppData/Local/Programs/MiKTeX/fonts/type1/public/lm/lmr12.pfb><C
:/Users/Paul Faye/AppData/Local/Programs/MiKTeX/fonts/type1/public/lm/lmr17.pfb
><C:/Users/Paul Faye/AppData/Local/Programs/MiKTeX/fonts/type1/public/lm/lmtt10
.pfb><C:/Users/Paul Faye/AppData/Local/Programs/MiKTeX/fonts/type1/public/lm/lm
tti10.pfb>
Output written on exercice_fr.pdf (5 pages, 209348 bytes).
PDF statistics:
110 PDF objects out of 1000 (max. 8388607)
17 named destinations out of 1000 (max. 500000)
8237 words of extra memory for PDF output out of 10000 (max. 10000000)
module3/exo3/exercice_fr.tex 0 → 100644
View file @ af7cdbf2
% Options for packages loaded elsewhere
\PassOptionsToPackage{unicode}{hyperref}
\PassOptionsToPackage{hyphens}{url}
%
\documentclass[
]{article}
\usepackage{amsmath,amssymb}
\usepackage{lmodern}
\usepackage{ifxetex,ifluatex}
\ifnum 0\ifxetex 1\fi\ifluatex 1\fi=0 % if pdftex
\usepackage[T1]{fontenc}
\usepackage[utf8]{inputenc}
\usepackage{textcomp} % provide euro and other symbols
\else % if luatex or xetex
\usepackage{unicode-math}
\defaultfontfeatures{Scale=MatchLowercase}
\defaultfontfeatures[\rmfamily]{Ligatures=TeX,Scale=1}
\fi
% Use upquote if available, for straight quotes in verbatim environments
\IfFileExists{upquote.sty}{\usepackage{upquote}}{}
\IfFileExists{microtype.sty}{% use microtype if available
\usepackage[]{microtype}
\UseMicrotypeSet[protrusion]{basicmath} % disable protrusion for tt fonts
}{}
\makeatletter
\@ifundefined{KOMAClassName}{% if non-KOMA class
\IfFileExists{parskip.sty}{%
\usepackage{parskip}
}{% else
\setlength{\parindent}{0pt}
\setlength{\parskip}{6pt plus 2pt minus 1pt}}
}{% if KOMA class
\KOMAoptions{parskip=half}}
\makeatother
\usepackage{xcolor}
\IfFileExists{xurl.sty}{\usepackage{xurl}}{} % add URL line breaks if available
\IfFileExists{bookmark.sty}{\usepackage{bookmark}}{\usepackage{hyperref}}
\hypersetup{
pdftitle={Evaluation par les pairs},
pdfauthor={Auteur: ea4f5ba1b97cd5a14653d4641234245a},
hidelinks,
pdfcreator={LaTeX via pandoc}}
\urlstyle{same} % disable monospaced font for URLs
\usepackage[margin=1in]{geometry}
\usepackage{color}
\usepackage{fancyvrb}
\newcommand{\VerbBar}{|}
\newcommand{\VERB}{\Verb[commandchars=\\\{\}]}
\DefineVerbatimEnvironment{Highlighting}{Verbatim}{commandchars=\\\{\}}
% Add ',fontsize=\small' for more characters per line
\usepackage{framed}
\definecolor{shadecolor}{RGB}{248,248,248}
\newenvironment{Shaded}{\begin{snugshade}}{\end{snugshade}}
\newcommand{\AlertTok}[1]{\textcolor[rgb]{0.94,0.16,0.16}{#1}}
\newcommand{\AnnotationTok}[1]{\textcolor[rgb]{0.56,0.35,0.01}{\textbf{\textit{#1}}}}
\newcommand{\AttributeTok}[1]{\textcolor[rgb]{0.77,0.63,0.00}{#1}}
\newcommand{\BaseNTok}[1]{\textcolor[rgb]{0.00,0.00,0.81}{#1}}
\newcommand{\BuiltInTok}[1]{#1}
\newcommand{\CharTok}[1]{\textcolor[rgb]{0.31,0.60,0.02}{#1}}
\newcommand{\CommentTok}[1]{\textcolor[rgb]{0.56,0.35,0.01}{\textit{#1}}}
\newcommand{\CommentVarTok}[1]{\textcolor[rgb]{0.56,0.35,0.01}{\textbf{\textit{#1}}}}
\newcommand{\ConstantTok}[1]{\textcolor[rgb]{0.00,0.00,0.00}{#1}}
\newcommand{\ControlFlowTok}[1]{\textcolor[rgb]{0.13,0.29,0.53}{\textbf{#1}}}
\newcommand{\DataTypeTok}[1]{\textcolor[rgb]{0.13,0.29,0.53}{#1}}
\newcommand{\DecValTok}[1]{\textcolor[rgb]{0.00,0.00,0.81}{#1}}
\newcommand{\DocumentationTok}[1]{\textcolor[rgb]{0.56,0.35,0.01}{\textbf{\textit{#1}}}}
\newcommand{\ErrorTok}[1]{\textcolor[rgb]{0.64,0.00,0.00}{\textbf{#1}}}
\newcommand{\ExtensionTok}[1]{#1}
\newcommand{\FloatTok}[1]{\textcolor[rgb]{0.00,0.00,0.81}{#1}}
\newcommand{\FunctionTok}[1]{\textcolor[rgb]{0.00,0.00,0.00}{#1}}
\newcommand{\ImportTok}[1]{#1}
\newcommand{\InformationTok}[1]{\textcolor[rgb]{0.56,0.35,0.01}{\textbf{\textit{#1}}}}
\newcommand{\KeywordTok}[1]{\textcolor[rgb]{0.13,0.29,0.53}{\textbf{#1}}}
\newcommand{\NormalTok}[1]{#1}
\newcommand{\OperatorTok}[1]{\textcolor[rgb]{0.81,0.36,0.00}{\textbf{#1}}}
\newcommand{\OtherTok}[1]{\textcolor[rgb]{0.56,0.35,0.01}{#1}}
\newcommand{\PreprocessorTok}[1]{\textcolor[rgb]{0.56,0.35,0.01}{\textit{#1}}}
\newcommand{\RegionMarkerTok}[1]{#1}
\newcommand{\SpecialCharTok}[1]{\textcolor[rgb]{0.00,0.00,0.00}{#1}}
\newcommand{\SpecialStringTok}[1]{\textcolor[rgb]{0.31,0.60,0.02}{#1}}
\newcommand{\StringTok}[1]{\textcolor[rgb]{0.31,0.60,0.02}{#1}}
\newcommand{\VariableTok}[1]{\textcolor[rgb]{0.00,0.00,0.00}{#1}}
\newcommand{\VerbatimStringTok}[1]{\textcolor[rgb]{0.31,0.60,0.02}{#1}}
\newcommand{\WarningTok}[1]{\textcolor[rgb]{0.56,0.35,0.01}{\textbf{\textit{#1}}}}
\usepackage{graphicx}
\makeatletter
\def\maxwidth{\ifdim\Gin@nat@width>\linewidth\linewidth\else\Gin@nat@width\fi}
\def\maxheight{\ifdim\Gin@nat@height>\textheight\textheight\else\Gin@nat@height\fi}
\makeatother
% Scale images if necessary, so that they will not overflow the page
% margins by default, and it is still possible to overwrite the defaults
% using explicit options in \includegraphics[width, height, ...]{}
\setkeys{Gin}{width=\maxwidth,height=\maxheight,keepaspectratio}
% Set default figure placement to htbp
\makeatletter
\def\fps@figure{htbp}
\makeatother
\setlength{\emergencystretch}{3em} % prevent overfull lines
\providecommand{\tightlist}{%
\setlength{\itemsep}{0pt}\setlength{\parskip}{0pt}}
\setcounter{secnumdepth}{-\maxdimen} % remove section numbering
\ifluatex
\usepackage{selnolig} % disable illegal ligatures
\fi
\title{Evaluation par les pairs}
\author{Auteur: ea4f5ba1b97cd5a14653d4641234245a}
\date{05 Juin 2021}
\begin{document}
\maketitle
\hypertarget{le-pouvoir-dachat-des-ouvriers-anglais-du-xvie-au-xixe-siuxe8cle}{%
\section{Le pouvoir d'achat des ouvriers anglais du XVIe au XIXe
siècle}\label{le-pouvoir-dachat-des-ouvriers-anglais-du-xvie-au-xixe-siuxe8cle}}
\hypertarget{importation-des-bibliothuxe8ques-nuxe9cessaires}{%
\subsubsection{Importation des bibliothèques
nécessaires}\label{importation-des-bibliothuxe8ques-nuxe9cessaires}}
\begin{Shaded}
\begin{Highlighting}[]
\FunctionTok{library}\NormalTok{(ggplot2)}
\FunctionTok{library}\NormalTok{(stringr)}
\FunctionTok{library}\NormalTok{(tseries)}
\end{Highlighting}
\end{Shaded}
\begin{verbatim}
## Registered S3 method overwritten by 'quantmod':
## method from
## as.zoo.data.frame zoo
\end{verbatim}
\hypertarget{importation-des-donnuxe9es-nuxe9cessaires}{%
\subsubsection{Importation des données
nécessaires}\label{importation-des-donnuxe9es-nuxe9cessaires}}
\begin{Shaded}
\begin{Highlighting}[]
\CommentTok{\# Importation des données}
\NormalTok{data }\OtherTok{=} \FunctionTok{read.csv}\NormalTok{(}\StringTok{"Wheat.csv"}\NormalTok{, }\AttributeTok{header=}\NormalTok{T)}
\CommentTok{\# Supprimer la colonne d\textquotesingle{}indexation}
\NormalTok{data}\SpecialCharTok{$}\NormalTok{X }\OtherTok{=}\ConstantTok{NULL}
\CommentTok{\# Un peu de statistiques descriptives}
\FunctionTok{summary}\NormalTok{(data)}
\end{Highlighting}
\end{Shaded}
\begin{verbatim}
## Year Wheat Wages
## Min. :1565 Min. :26.00 Min. : 5.000
## 1st Qu.:1630 1st Qu.:33.00 1st Qu.: 6.145
## Median :1695 Median :41.00 Median : 7.800
## Mean :1695 Mean :43.26 Mean :11.582
## 3rd Qu.:1760 3rd Qu.:47.00 3rd Qu.:14.875
## Max. :1821 Max. :99.00 Max. :30.000
## NA's :3
\end{verbatim}
\begin{enumerate}
\def\labelenumi{\arabic{enumi}.}
\tightlist
\item
Reproduction du graphique de Playfair
\end{enumerate}
\begin{Shaded}
\begin{Highlighting}[]
\FunctionTok{ggplot}\NormalTok{(}\AttributeTok{data =}\NormalTok{ data) }\SpecialCharTok{+}
\FunctionTok{geom\_bar}\NormalTok{(}\FunctionTok{aes}\NormalTok{(}\AttributeTok{x =}\NormalTok{ Year, }\AttributeTok{y =}\NormalTok{ Wheat), }\AttributeTok{stat=}\StringTok{"identity"}\NormalTok{, }\AttributeTok{width=}\DecValTok{5}\NormalTok{, }\AttributeTok{fill =} \StringTok{"white"}\NormalTok{, }\AttributeTok{color=}\StringTok{"steelblue"}\NormalTok{) }\SpecialCharTok{+}
\FunctionTok{xlab}\NormalTok{(}\StringTok{"Year"}\NormalTok{)}\SpecialCharTok{+}
\FunctionTok{ylab}\NormalTok{(}\StringTok{"shillings"}\NormalTok{) }\SpecialCharTok{+}
\FunctionTok{geom\_area}\NormalTok{(}\FunctionTok{aes}\NormalTok{(}\AttributeTok{x =}\NormalTok{Year, }\AttributeTok{y =}\NormalTok{ Wages), }\AttributeTok{color=}\StringTok{"red"}\NormalTok{,}\AttributeTok{fill=}\StringTok{"lightblue"}\NormalTok{)}\SpecialCharTok{+}
\FunctionTok{theme}\NormalTok{(}
\AttributeTok{axis.title.y =} \FunctionTok{element\_text}\NormalTok{(}\AttributeTok{color =} \StringTok{"blue"}\NormalTok{),}
\AttributeTok{axis.title.y.right =} \FunctionTok{element\_text}\NormalTok{(}\AttributeTok{color =} \StringTok{"blue"}\NormalTok{))}
\end{Highlighting}
\end{Shaded}
\includegraphics{exercice_fr_files/figure-latex/unnamed-chunk-3-1.pdf}
\begin{enumerate}
\def\labelenumi{\arabic{enumi}.}
\setcounter{enumi}{1}
\tightlist
\item
Amélioration du graphique avec une ordonnée pour chaque variable
quantitative
\end{enumerate}
\begin{Shaded}
\begin{Highlighting}[]
\FunctionTok{ggplot}\NormalTok{(}\AttributeTok{data=}\NormalTok{ data) }\SpecialCharTok{+}
\FunctionTok{geom\_bar}\NormalTok{(}\FunctionTok{aes}\NormalTok{(}\AttributeTok{x =}\NormalTok{ Year, }\AttributeTok{y =}\NormalTok{ Wheat), }\AttributeTok{stat=}\StringTok{"identity"}\NormalTok{, }\AttributeTok{width=}\DecValTok{5}\NormalTok{, }\AttributeTok{fill =} \StringTok{"white"}\NormalTok{, }\AttributeTok{color=}\StringTok{"steelblue"}\NormalTok{) }\SpecialCharTok{+}
\FunctionTok{xlab}\NormalTok{(}\StringTok{"Year"}\NormalTok{)}\SpecialCharTok{+}
\FunctionTok{ylab}\NormalTok{(}\StringTok{"shillings par quart de boisseau de blé"}\NormalTok{) }\SpecialCharTok{+}
\FunctionTok{geom\_area}\NormalTok{(}\FunctionTok{aes}\NormalTok{(}\AttributeTok{x =}\NormalTok{Year, }\AttributeTok{y =}\NormalTok{ Wages), }\AttributeTok{color=}\StringTok{"red"}\NormalTok{,}\AttributeTok{fill=}\StringTok{"lightblue"}\NormalTok{)}\SpecialCharTok{+}
\FunctionTok{ggtitle}\NormalTok{(}\StringTok{"Evolution du prix du blé et du salaire moyen de 1965 à 1821"}\NormalTok{) }\SpecialCharTok{+}
\FunctionTok{scale\_y\_continuous}\NormalTok{(}\AttributeTok{sec.axis =} \FunctionTok{sec\_axis}\NormalTok{(}\SpecialCharTok{\textasciitilde{}}\NormalTok{., }\AttributeTok{name =} \StringTok{"shillings par semaine"}\NormalTok{))}\SpecialCharTok{+}
\FunctionTok{theme}\NormalTok{(}
\AttributeTok{axis.title.y =} \FunctionTok{element\_text}\NormalTok{(}\AttributeTok{color =} \StringTok{"blue"}\NormalTok{),}
\AttributeTok{axis.title.y.right =} \FunctionTok{element\_text}\NormalTok{(}\AttributeTok{color =} \StringTok{"red"}\NormalTok{))}
\end{Highlighting}
\end{Shaded}
\includegraphics{exercice_fr_files/figure-latex/unnamed-chunk-4-1.pdf}
\begin{Shaded}
\begin{Highlighting}[]
\CommentTok{\#scale\_y\_continuous(sec.axis = sec\_axis(\textasciitilde{}.*, name = ""))+}
\end{Highlighting}
\end{Shaded}
\begin{enumerate}
\def\labelenumi{\arabic{enumi}.}
\setcounter{enumi}{2}
\tightlist
\item
Représentation de l'évolution du pouvoir d'achat
\end{enumerate}
\begin{Shaded}
\begin{Highlighting}[]
\CommentTok{\# Le pouvoir d\textquotesingle{}achat est défini comme la quantité de blé qu\textquotesingle{}un ouvrier peut acheter avec son salaire hebdomadaire.}
\NormalTok{data}\SpecialCharTok{$}\NormalTok{PA}\OtherTok{=}\NormalTok{ data}\SpecialCharTok{$}\NormalTok{Wages }\SpecialCharTok{/}\NormalTok{ data}\SpecialCharTok{$}\NormalTok{Wheat }
\CommentTok{\# Evolution du pouvoir d\textquotesingle{}achat}
\FunctionTok{ggplot}\NormalTok{(}\AttributeTok{data=}\NormalTok{ data) }\SpecialCharTok{+}
\FunctionTok{xlab}\NormalTok{(}\StringTok{"Year"}\NormalTok{)}\SpecialCharTok{+}
\FunctionTok{ylab}\NormalTok{(}\StringTok{"Pouvoir d\textquotesingle{}achat (PA)"}\NormalTok{) }\SpecialCharTok{+}
\FunctionTok{geom\_area}\NormalTok{(}\FunctionTok{aes}\NormalTok{(}\AttributeTok{x =}\NormalTok{Year, }\AttributeTok{y =}\NormalTok{ PA), }\AttributeTok{color=}\StringTok{"purple"}\NormalTok{,}\AttributeTok{fill=}\ConstantTok{NA}\NormalTok{)}\SpecialCharTok{+}
\FunctionTok{ggtitle}\NormalTok{(}\StringTok{"Evolution du pouvoir d\textquotesingle{}achat de 1965 à 1821"}\NormalTok{) }\SpecialCharTok{+}
\FunctionTok{theme}\NormalTok{(}
\AttributeTok{axis.title.y =} \FunctionTok{element\_text}\NormalTok{(}\AttributeTok{color =} \StringTok{"purple"}\NormalTok{))}
\end{Highlighting}
\end{Shaded}
\includegraphics{exercice_fr_files/figure-latex/unnamed-chunk-5-1.pdf}
\begin{enumerate}
\def\labelenumi{\arabic{enumi}.}
\setcounter{enumi}{2}
\item
\begin{enumerate}
\def\labelenumii{\alph{enumii})}
\setcounter{enumii}{1}
\tightlist
\item
Graphique du prix du blé et du salaire : On montre l'augmentation
dans le temps du pouvoir d'achat
\end{enumerate}
\end{enumerate}
\begin{Shaded}
\begin{Highlighting}[]
\CommentTok{\# On enlève les 3 dernières observations pour lesquelles nous n\textquotesingle{}avons pas le salaire et par conséquent le pouvoir d\textquotesingle{}achat}
\FunctionTok{plot.ts}\NormalTok{(data[}\DecValTok{1}\SpecialCharTok{:}\DecValTok{50}\NormalTok{,}\DecValTok{2}\SpecialCharTok{:}\DecValTok{4}\NormalTok{], }\AttributeTok{main=} \StringTok{"Evolution au cours du temps"}\NormalTok{)}
\end{Highlighting}
\end{Shaded}
\includegraphics{exercice_fr_files/figure-latex/unnamed-chunk-6-1.pdf}
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).
\end{document}
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment