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)