Modification des codes départements pour les DOM-TOM
# Maintenant, nous allons changer le code département des DOM-TOM actuellement en caractère par soit le numéro 97 soit par le numéro 98
# Pour le premier tour:
for (i in 1:length(data_1tour_1$'Code département')){
if (grepl("ZA",as.character(data_1tour_1$'Code département'[i]))==TRUE){
data_1tour_1[i,5] <- as.character("97")
}
else if (grepl("ZB",as.character(data_1tour_1$'Code département'[i]))==TRUE){
data_1tour_1[i,5] <- as.character("97")
}
else if (grepl("ZC",as.character(data_1tour_1$'Code département'[i]))==TRUE){
data_1tour_1[i,5] <- as.character("97")
}
else if (grepl("ZD",as.character(data_1tour_1$'Code département'[i]))==TRUE){
data_1tour_1[i,5] <- as.character("97")
}
else if (grepl("ZS",as.character(data_1tour_1$'Code département'[i]))==TRUE){
data_1tour_1[i,5] <- as.character("97")
}
else if (grepl("ZP",as.character(data_1tour_1$'Code département'[i]))==TRUE){
data_1tour_1[i,5] <- as.character("98")
}
else if (grepl("ZN",as.character(data_1tour_1$'Code département'[i]))==TRUE){
data_1tour_1[i,5] <- as.character("98")
}
else if (grepl("ZM",as.character(data_1tour_1$'Code département'[i]))==TRUE){
data_1tour_1[i,5] <- as.character("976")
}
else {
data_1tour_1[i,5] <-as.character(data_1tour_1$'Code département'[i])
}
}
data_1tour_1 <- data_1tour_1[,-1]
colnames(data_1tour_1) <- c("Nombre inscrits", "Nombre abstentions", "Code commune", "Code département")
# On enlève les doublons par rapport à la première et quatrième colonne
data_1tour_2 <- data_1tour_1[!duplicated(data_1tour_1[,c(3,4)]),]
# Pour le deuxième tour
for (i in 1:length(data_2tour_1$'Code département')){
if (grepl("ZA",as.character(data_2tour_1$'Code département'[i]))==TRUE){
data_2tour_1[i,5] <- as.character("97")
}
else if (grepl("ZB",as.character(data_2tour_1$'Code département'[i]))==TRUE){
data_2tour_1[i,5] <- as.character("97")
}
else if (grepl("ZC",as.character(data_2tour_1$'Code département'[i]))==TRUE){
data_2tour_1[i,5] <- as.character("97")
}
else if (grepl("ZD",as.character(data_2tour_1$'Code département'[i]))==TRUE){
data_2tour_1[i,5] <- as.character("97")
}
else if (grepl("ZS",as.character(data_2tour_1$'Code département'[i]))==TRUE){
data_2tour_1[i,5] <- as.character("97")
}
else if (grepl("ZP",as.character(data_2tour_1$'Code département'[i]))==TRUE){
data_2tour_1[i,5] <- as.character("98")
}
else if (grepl("ZN",as.character(data_2tour_1$'Code département'[i]))==TRUE){
data_2tour_1[i,5] <- as.character("98")
}
else if (grepl("ZM",as.character(data_2tour_1$'Code département'[i]))==TRUE){
data_2tour_1[i,5] <- as.character("976")
}
else {
data_2tour_1[i,5] <-as.character(data_2tour_1$'Code département'[i])
}
}
data_2tour_1 <- data_2tour_1[,-1]
colnames(data_2tour_1) <- c("Nombre inscrits", "Nombre abstentions", "Code commune", "Code département")
# On enlève les doublons par rapport à la première et quatrième colonne
data_2tour_2 <- data_2tour_1[!duplicated(data_2tour_1[,c(3,4)]),]