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