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)]),]