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,
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