-
Notifications
You must be signed in to change notification settings - Fork 4
/
dm.Rmd
112 lines (86 loc) · 7.33 KB
/
dm.Rmd
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
---
title: "Visualisation de données avec R – DM"
author: "Arthur Katossky"
date: "Janvier 2019"
output:
pdf_document:
latex_engine: lualatex
---
```{r setup, echo=FALSE, warning = FALSE, message = FALSE}
library(tidyverse)
library(knitr)
library(kableExtra)
knitr::opts_chunk$set(fig.width=8, out.width='100%', fig.height=4)
```
```{r, echo=FALSE}
students <- str_split("[email protected], [email protected], [email protected], [email protected], [email protected], [email protected], [email protected], [email protected], [email protected], [email protected], [email protected], [email protected], [email protected], [email protected], [email protected], [email protected], [email protected], [email protected], [email protected], [email protected], [email protected], [email protected], [email protected], [email protected], [email protected], [email protected], [email protected], [email protected], [email protected], [email protected], [email protected], [email protected], [email protected], [email protected], [email protected], [email protected], [email protected], [email protected], [email protected], [email protected], [email protected], [email protected], [email protected], [email protected], [email protected], [email protected], [email protected], [email protected], [email protected], [email protected], [email protected], [email protected], [email protected], [email protected], [email protected], [email protected], [email protected], [email protected], [email protected], [email protected], [email protected], [email protected], [email protected], [email protected], [email protected], [email protected], [email protected], [email protected], [email protected], [email protected]", pattern=", ", simplify = TRUE)
set.seed(874110L)
groups <- students %>% .[1,] %>% tibble(Élève=.) %>%
sample_n(., size=nrow(.)) %>%
mutate(
Groupe = (1:n()+1)%/%2,
# Groupe = ifelse(Groupe==35, sample(Groupe[-length(Groupe)], 1), Groupe),
Correcteur = (Groupe-1) %/% 9,
Graphique1 = Groupe %% 4 + 1
) %>%
group_by(Groupe) %>% mutate(
Graphique2=sample(setdiff(1:4, Graphique1), 1),
Graphique1=4*Correcteur+Graphique1,
Graphique2=4*Correcteur+Graphique2,
Correcteur = c("[email protected]", "[email protected]", "[email protected]", "[email protected]")[Correcteur+1]
) %>%
ungroup() %>%
arrange(Groupe)
```
## Consigne
1. Choisissez un des 2 graphiques qui a été aléatoirement assigné à votre groupe.
2. Produisez une critique constructive du graphique. Présentez-en les atouts et les défauts.
_Vous présenterez votre réflexion à la manière d'un dessin d'observation._ \newline{}
3. À la lumière de votre travail critique, proposez une visualisation alternative des données.
_Sur une page A4, vous présenterez votre visualisation, et l'accompagnerez d'un court paragraphe argumentatif. Le graphique doit être autonome: le commentaire qui l'accompagne ne concerne pas la lecture du graphique ou son interprétation, mais doit justifier votre démarche et défendre vos propositions d'amélioration._ \newline{}
**Remarques:** _Si, pour des raisons justifiées en première partie, vous estimez qu'un nouvel agencement ne garantit en rien une meilleur lisibilité des données, vous reproduirez le graphique initial au plus près._
_Vous réaliserez vos graphiques avec R. Vous êtes encouragés à utiliser [R markdown](https://rmarkdown.rstudio.com), et à commenter les différentes étapes de la création (idées, essais, erreurs). Dans tous les cas vous communiquerez votre code, qui doit être le plus lisible possible._
_Il vous appartient de collecter les données pour la reproduction du graphique. Si vous ne parvenez pas à retrouver les données d'origine, vous pouvez:_
- _lire les données (tout simplement!)_
- _utiliser un logiciel d'extraction de données (*plot digitizer*)_
- _utiliser des données approchantes (ex: données sur la France à la place de l'Allemagne)_
- _utiliser des données générées aléatoirement_
_Dans tous les cas, vous communiquerez les données et commenterez dans le code comment vous les avez obtenues. N'hésitez pas à me consulter ([email protected]) si vous vous trouvez dans l'impasse._
Le devoir est à rendre **avant le jeudi 28 février à midi** en deux exemplaires:
- une version papier A4 recto-verso couleur à remettre à la scolarité
- une version numérique au format PDF à remettre par mail au correcteur de votre groupe (voir ci-dessous), avec moi en copie ([email protected]) — l'objet de votre mail et le nom de votre PDF seront tous deux: "DM Visualisation de données avec R - Groupe X"
## Tableau des groupes
_Les groupes ont été générés aléatoirement. J'attends de vous que vous sachiez travailler avec des personnes variées, et c'est pourquoi je vous ai affecté indépendamment de vos affinités._
**Remarque:** _S'il devait arriver que votre binome fonctionne mal, ne laissez pas la situation pourrir jusqu'à la veille du rendu. Contactez une tierce personne au plus vite (moi ou une personne de confiance) pour tenter une médiation et trouver une solution acceptable. Sans entrer dans le détail, et en restant les plus bienveillants possibles, tenez-moi informé de ces éventuelles difficultés._
```{r, echo=FALSE, warning=FALSE}
groups %>%
group_by(Correcteur) %>% mutate(
Correcteur2 = ifelse(1:n()==1, Correcteur, '')
) %>%
ungroup %>% group_by(Groupe) %>% mutate(
Groupe2 = ifelse(1:n()==1, as.character(Groupe), '')
) %>%
ungroup %>%
select(Correcteur = Correcteur2, Groupe = Groupe2, Élève) %>%
kable(longtable = T, booktabs = T, escape=F, linesep = "") %>%
kable_styling(latex_options = c("repeat_header"))
```
## Tableau des élèves
_Adresses mail par ordre alphabétique._
```{r, echo=FALSE}
groups %>% select(Élève, Groupe) %>%
mutate(Groupe = as.factor(Groupe)) %>%
arrange(Élève) %>%
kable(longtable = T, booktabs = T, escape=F, linesep = "") %>%
kable_styling(latex_options = c("repeat_header"))
```
## Tableau des graphiques
_Les graphiques sont disponibles dans le dossier partagé:_ `Echange/2A/dataviz`.
```{r, echo=FALSE}
groups %>% select(Groupe, Graphique1, Graphique2) %>% unique() %>%
transmute(Groupe, Graphiques=str_c("Graphiques n˚", Graphique1, " et ", Graphique2)) %>%
kable(longtable = T, booktabs = T, escape=F, linesep = "", col.names=c("Groupe", "")) %>%
kable_styling(latex_options = c("repeat_header"))
```