---
title: "Rapport interro"
author: "Armelle de le Court 30821800"
date: "25/03/2021"
output: pdf_document
---

## chargement des packages

chargez les données le package rWSBIM1207 et interroL

```{r setup, message=FALSE}
library(rWSBIM1207)
library(tidyverse)
data(interroL)
interroL
```

## Question 1 : boxplots

```{r q1, message=FALSE}
ggplot(data = interroL,mapping = aes(x = result, y = gender, colour = interro))+
  geom_boxplot()
```

## Question 2 : moyenne interros dans les deux séries

```{r}
```


## Question 3 : meilleure moyenne

```{r}
interroL %>% 
group_by(id) %>%
  summarise(m = mean(result)) %>% 
  arrange(desc(m)) %>% 
  head

```



### A36739 a la meilleure moyenne, 