---
title: "Améliorer son journal de bord"
author: "Martin DAVY"
date: "13 décembre 2021"
output: html_document
---


```{r setup, include=FALSE}
knitr::opts_chunk$set(echo = TRUE)
```


Faire un traitement de données dans un notebook


# Chargement des données aléatoire
N'ayant pas d'idée j'ai choisi de générer des données aléatoirement a l'aide
d'un outil en ligne [Mockaroo](https://www.mockaroo.com/). Ce n'est pas libre de
droit mais c'est juste pour avoir des données

**Chargement des données**
```{r}
donnees = read.table("random.data", header = TRUE, sep = ",")
```

# Analyse du tableau
Rapide apperçu des données avec la commande `summary()`
```{r}
summary(donnees)
```

Le tableaux contient 6 colonnes: *id*, prénom (*first_name*), nom de famille (*last_name*)
, email (*email*), "genre" (*gender*) et adresse ip (*ip_adresse*)

## Quel est le prénom le plus commun
```{r}
sort(table(donnees$first_name))
```

Tous les prénoms n'ont qu'un occurence

## La proportion des genres
```{r}
barplot(table(donnees$gender), xlab = "", ylab = "Pourcentage", las = 2)
```