# Rassemblement des pourcentages de chaque base de donnees
code_insee = logement[,1]
table_pourc = data.frame(code_insee,logement_fin,res_princ_fin,formation_fin,etablissement_fin,poste_fin,
                         etablissement2_fin,etablissement3_fin,pop_fin,menages_fin,pop_menages_fin,pop_menages_2_fin,
                         pop_active_fin,caract_emploi_fin)

write.csv2(table_pourc,"table_pourc.csv")

# Importation de la table qui regroupe l'ensemble des pourcentages
table_pourc[,-1] = test1
table_pourc[,1] = as.character(table_pourc[,1])
table_pourc[1:3224,1] <- paste("0",table_pourc[1:3224,1],sep = "")


# Importation de la base de donnees avec les pourcentages d'absentention sur chaque commmune
abs <- read.csv("TOUR1_M_B.csv",header=TRUE)
colnames(abs) = tolower(colnames(abs)) # pour transformer de majuscule en minuscule
abs = abs[,-(1:4)]

# Fusion des tables pourc_fin et abs par le code insee
pourc_abs = merge(table_pourc,abs,by ="code_insee")
insee = pourc_abs[,1]
pourc_abs = pourc_abs[,-1]