Intorduction

Les données exploitées ont été récupérées sur data.gouv.fr. Elles concernent le temps de parole des femmes et des hommes dans les médias.

Quelques statistiques

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

mean(df$women_expression_rate)
## [1] 29.24969
median(df$women_expression_rate)
## [1] 29.53184
min(df$women_expression_rate)
## [1] 4.813466
max(df$women_expression_rate)
## [1] 54.11972

Un graphique

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