Modifications des codes communes

# Pour les élections du premier tour, nous modifions les codes communes

for (i in 1: length(data_1tour$'Code département')){
  if (grepl("SN",as.character(data_1tour$'Code commune'[i]))==TRUE){
    data_1tour[i,5] <- substring(as.character(data_1tour$'Code commune'[i]),1,3)
  }
  
  # Paris
  else if (grepl("056AR",as.character(data_1tour$'Code commune'[i]))==TRUE){
    data_1tour[i,5] <- as.character(as.numeric(substring(as.character(data_1tour$'Code commune'[i]),6,7))+100)
  }
  
  # Lyon
  else if (grepl("123SR",as.character(data_1tour$'Code commune'[i]))==TRUE){
    data_1tour[i,5] <- as.character(as.numeric(substring(as.character(data_1tour$'Code commune'[i]),6,7))+380)
  }
  else if (grepl("SR",as.character(data_1tour$'Code commune'[i]))==TRUE){
    data_1tour[i,5] <- substring(as.character(data_1tour$'Code commune'[i]),1,3)
  }
  
  # Marseille
  else if (grepl("055AR",as.character(data_1tour$'Code commune'[i]))==TRUE){
    data_1tour[i,5] <- as.character(as.numeric(substring(as.character(data_1tour$'Code commune'[i]),6,7))+200)
  }
  else{
    data_1tour[i,5] <- as.character(data_1tour$'Code commune'[i])
  }
}

# On enlève la colonne code commune qui ne nous sert plus et on renomme la nouvelle colonne par code commune
data_1tour <- data_1tour[,-2]
colnames(data_1tour) <- c("Code département", "Nombre inscrits", "Nombre abstentions", "Code commune")

# On enlève les doublons par rapport à la première et quatrième colonne
data_1tour_1 <- data_1tour[!duplicated(data_1tour[,c(1,4)]),]

# Nous faisons de même avec les élections du deuxième tour

for (i in 1: length(data_2tour$'Code département')){
  if (grepl("SN",as.character(data_2tour$'Code commune'[i]))==TRUE){
    data_2tour[i,5] <- substring(as.character(data_2tour$'Code commune'[i]),1,3)
  } 
  
  # Paris
  else if (grepl("056AR",as.character(data_2tour$'Code commune'[i]))==TRUE){
    data_2tour[i,5] <- as.character(as.numeric(substring(as.character(data_2tour$'Code commune'[i]),6,7))+100)
  }
  
  # Lyon
  else if (grepl("123SR",as.character(data_2tour$'Code commune'[i]))==TRUE){
    data_2tour[i,5] <- as.character(as.numeric(substring(as.character(data_2tour$'Code commune'[i]),6,7))+380)
  }
  else if (grepl("SR",as.character(data_2tour$'Code commune'[i]))==TRUE){
    data_2tour[i,5] <- substring(as.character(data_2tour$'Code commune'[i]),1,3)
  }
  
  # Marseille
  else if (grepl("055AR",as.character(data_2tour$'Code commune'[i]))==TRUE){
    data_2tour[i,5] <- as.character(as.numeric(substring(as.character(data_2tour$'Code commune'[i]),6,7))+200)
  }
  else{
    data_2tour[i,5] <- as.character(data_2tour$'Code commune'[i])
  }
}

data_2tour <- data_2tour[,-2]
colnames(data_2tour) <- c("Code département", "Nombre inscrits", "Nombre abstentions", "Code commune")

# On enlève les doublons par rapport à la première et quatrième colonne
data_2tour_1 <- data_2tour[!duplicated(data_2tour[,c(1,4)]),]