From fe35bdff7e5bbe14a0c07c63df3e848788eea92c Mon Sep 17 00:00:00 2001
From: Maxime Wack <maximewack@free.Fr>
Date: Tue, 19 Nov 2019 06:11:00 +0100
Subject: [PATCH] =?UTF-8?q?Add=20lab=2003=20donn=C3=A9es=20tabulaires?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 courses/lab03-tabulaire.Rmd  | 109 +++++++++++++++++++++++++++++++++++
 courses/lab03_data/notes.csv |  11 ++++
 2 files changed, 120 insertions(+)
 create mode 100644 courses/lab03-tabulaire.Rmd
 create mode 100644 courses/lab03_data/notes.csv

diff --git a/courses/lab03-tabulaire.Rmd b/courses/lab03-tabulaire.Rmd
new file mode 100644
index 0000000..9b75d0a
--- /dev/null
+++ b/courses/lab03-tabulaire.Rmd
@@ -0,0 +1,109 @@
+---
+title: "Données tabulaires"
+author: "Maxime Wack"
+date: "19/11/2019"
+output:
+  xaringan::moon_reader:
+    css: ['default','css/my_style.css']
+    lib_dir: libs
+    seal: false
+    nature:
+      ratio: '4:3'
+      countIncrementalSlides: false
+      self-contained: true
+      beforeInit: "addons/macros.js"
+      highlightLines: true
+  pdf_document:
+    seal: false
+
+---
+
+```{r setup, include=FALSE}
+knitr::opts_chunk$set(echo = TRUE, fig.asp= .5)
+library(tidyverse)
+library(DT)
+library(knitr)
+
+options(DT.options = list(paging = F,
+                          info = F,
+                          searching = F))
+
+datatable <- partial(datatable, rownames = F)
+```
+
+class: center, middle, title
+
+# UE Visualisation
+
+### 2019-2020
+
+## Dr. Maxime Wack
+
+### AHU Informatique médicale
+#### Hôpital Européen Georges Pompidou, </br> Université de Paris
+
+---
+
+# Données tabulaires
+
+.center[Chargement des données avec `read_csv`]
+
+```{r data, message = F}
+read_csv("lab03_data/notes.csv") -> notes
+```
+
+```{r data do, echo = F}
+datatable(notes)
+```
+
+---
+
+# Pivot
+
+.center[Données *wide* → *long*]
+
+```{r pivot_longer}
+pivot_longer(notes,
+             Alice:David,
+             names_to = "Prénom",
+             values_to = "Note") -> notes_long
+```
+
+```{r pivot_longer_do, echo = F}
+  datatable(notes_long)
+```
+
+---
+
+# Pivot
+
+.center[Données *long* → *wide*]
+
+```{r pivot_wider, eval = F}
+pivot_wider(notes_long,
+            names_from = Prénom,
+            values_from = Note)
+```
+
+```{r pivot_wider do, echo = F}
+pivot_wider(notes_long,
+            names_from = Prénom,
+            values_from = Note) %>%
+  datatable
+```
+
+---
+
+# Exercices
+
+Utiliser les fonctions de `pivot_*` pour exprimer le dataset `gapminder` de différentes manières.
+
+### Représenter l'intégralité sous forme clé-valeur
+
+Chaque ligne ne doit porter qu'une valeur de `lifeExp`, `gdpPercap` ou `pop`, pour chaque pays et chaque année.
+
+### Représenter un pays par ligne
+
+Une seule ligne par pays, toutes les années × indicateur doivent donner lieu à une nouvelle colonne
+
+### Reformer gapminder à partir du précédent exercice
diff --git a/courses/lab03_data/notes.csv b/courses/lab03_data/notes.csv
new file mode 100644
index 0000000..8df4da3
--- /dev/null
+++ b/courses/lab03_data/notes.csv
@@ -0,0 +1,11 @@
+Date,Alice,Bob,Claire,David
+1/1/2019,14,10,18,9
+1/15/2019,16,11,19,10
+2/1/2019,15,11,18,12
+2/15/2019,17,10,19,11
+3/1/2019,14,15,19,14
+3/15/2019,15,13,20,13
+4/1/2019,13,12,19,14
+4/15/2019,15,12,19,15
+5/1/2019,16,13,17,14
+5/15/2019,17,11,18,15