setwd("C:/Users/harari/Desktop/Dropbox/enseignement/M1 EPOG MIF/bases stat/")

#install.packages("tidyverse") c'est la commande qu'il
#faut executer pour réinstaller le package depuis internet
library(tidyverse) #c'est la commande pour l'utiliser

mini_db <- read.csv("./mini_db.txt", sep=";")

mean(nb_hommes)
sum(mini_db$nb_hommes)+sum(mini_db$nb_femmes)
names(mini_db)

slice(mini_db,1:3)
mini_db2<-mutate(mini_db,total_etudiants=nb_hommes+nb_femmes)

etablissement_bac<-select(mini_db2,etablissement,starts_with("nb_bac"))

mini_db2<-mini_db %>%
  mutate(total_etudiants=nb_hommes+nb_femmes) %>% 
  mutate(taux_bac_S=(nb_bac_S/total_etudiants)*100,
         taux_bac_pro=(nb_bac_pro/total_etudiants)*100,
         taux_bac_L=(nb_bac_L/total_etudiants)*100)

ggplot(mini_db2)+
  geom_histogram(aes(x=taux_bac_S),fill="green")+
  geom_histogram(aes(x=taux_bac_pro),fill="blue")+
  geom_histogram(aes(x=taux_bac_L),fill="red")

ggplot(mini_db2)+
  geom_point(aes(x=taux_bac_S,y=nb_femmes),
             col="red",pch="square")+
  geom_text(aes(x=taux_bac_S,y=nb_femmes,label=id),size=3)