Séparation des données entre tour 1 et tour 2
# On met la première colonne pour les communes de moins de 3500 habitants en as.factor sinon le rbind ne marche pas.
data_01_15[,1] <- as.factor(data_01_15[,1])
data_16_26[,1] <- as.factor(data_16_26[,1])
data_27_34[,1] <- as.factor(data_27_34[,1])
data_35_48[,1] <- as.factor(data_35_48[,1])
data_49_59[,1] <- as.factor(data_49_59[,1])
data_60_69[,1] <- as.factor(data_60_69[,1])
data_70_79[,1] <- as.factor(data_70_79[,1])
data_80_88[,1] <- as.factor(data_80_88[,1])
data_89_95[,1] <- as.factor(data_89_95[,1])
# On met dans un même tableau toutes les communes de moins de 3500 habitants
data3 <- rbind(data_01_15,data_16_26,data_27_34,data_35_48,data_49_59,data_60_69,data_70_79,data_80_88,data_89_95)
# Ici, nous séparons les données entre le tour 1 et le tour 2 pour toutes les communes et nous sélectionnons les colonnes qui nous intéressent pour chaque tour.
# On sélectionne dans le tableau ci-dessus les données correspondant au premier tour
data4 <- data3[which(data3[,5]=='1'),]
# On sélectionne dans le data3 juste les données du deuxième tour
data5 <- data3[which(data3[,5]=='2'),]
# On prend les colonnes code département, code commune, nombre d'inscrits et le nombre d'abstentions au premier tour
data1_1 <- data1[,c(1,3,5,6)]
data4_1 <- data4[,c(1,3,6,7)]
# On prend les colonnes code département, code commune, nombre d'inscrits et le nombre d'abstentions au deuxième tour
data2_2 <- data2[,c(1,3,5,6)]
data5_2 <- data5[,c(1,3,6,7)]
# On change le nom des variables pour avoir deux tableaux qui sépareront le tour 1 du tour 2
colnames(data1_1) <- c("Code département", "Code commune", "Nombre inscrits", "Nombre abstention")
colnames(data2_2) <- c("Code département", "Code commune", "Nombre inscrits", "Nombre abstention")
colnames(data4_1) <- c("Code département", "Code commune", "Nombre inscrits", "Nombre abstention")
colnames(data5_2) <- c("Code département", "Code commune", "Nombre inscrits", "Nombre abstention")
# On réunit les 2 tableaux correspondant au tour 1
data_1tour <- rbind(data1_1, data4_1)
# On enlève les doublons avec la fonction unique
data_1tour<- unique(data_1tour)
# On réunit les 2 tableaux correspondant au tour 2
data_2tour <- rbind(data2_2, data5_2)
# On enlève les doublons avec la fonction unique
data_2tour<- unique(data_2tour)