---
title: "Un premier journal"
author: "Hugo Botton"
date: "06/06/2023"
output: html_document
---


```{r setup, include=FALSE}
knitr::opts_chunk$set(echo = TRUE)
library(data.table)
library(ggplot2)
```

## Intorduction 

Les données exploitées ont été récupérées sur [data.gouv.fr](https://www.data.gouv.fr/fr/datasets/temps-de-parole-des-hommes-et-des-femmes-a-la-television-et-a-la-radio/#/resources). Elles concernent le temps de parole des femmes et des hommes dans les médias.

```{r , include=FALSE}
df <- fread("20190308-years.csv")
```

## Quelques statistiques
La part du temps de parole attribué aux femmes est très variable selon la chaine : 

```{r stats, include=T}
mean(df$women_expression_rate)
median(df$women_expression_rate)
min(df$women_expression_rate)
max(df$women_expression_rate)
```

## Un graphique

```{r , echo=T}
df <- df[order(df$women_expression_rate),]

ggplot(data=df[df$year %in% c(2013,2019),],
       aes(x=reorder(channel_name, women_expression_rate),y=women_expression_rate,fill=factor(year)))+
  geom_bar(stat="identity", position=position_dodge())+
  ggtitle("% du temps de parole féminin par média en 2013 et 2019")+ 
  scale_fill_manual(values=c("#999999",'#E69F00'))+
  theme(axis.text.x = element_text(angle = 90, vjust = 0.5, hjust=1))
  
```