J'ai suis bloquée pour un problème très simple... je m'explique :
J'ai deux colonnes :
Code : Tout sélectionner
code_NAF forme_juridique
4598A Personnes morales
5367Z Personnes physiques
7415Z Association
7963Z Syndic
5214A Association
9853Z Personnes morales
7852Z Personnes physiques
4598A Personnes morales
5367Z Personnes physiques
7415Z Association
7963Z Syndic
5214A Association
9853Z Personnes morales
7852Z Personnes physiques
4598A Personnes morales
5367Z Personnes physiques
7415Z Association
7963Z Syndic
5214A Association
9853Z Personnes morales
4598A Personnes physiques
5367Z Personnes morales
7415Z Personnes physiques
7963Z Syndic
- Une colonne CODE_NAF
- Une forme_juridique : (Association ; Personnes physiques ; personnes morales ; Syndic)
A partir de ces deux colonnes, je souhaiterais créer une variable "Segmentation" avec les critères ci-dessous :
- Si code_NAF=="5367Z" ou code_naf=="4598A" ou code_naf=="7415Z" & forme_juridique=="Personnes physiques" alors Segmentation==Prof_lib
- Si code_NAF!="5367Z" ou code_naf!="4598A" ou code_naf!="7415Z" & forme_juridique=="Personnes physiques" alors Segmentation==EI
- Si code_NAF=="5367Z" ou code_naf=="4598A" ou code_naf=="7415Z" & forme_juridique=="Personnes morales" alors Segmentation==Prof_lib
- Si code_NAF!="5367Z" ou code_naf!="4598A" ou code_naf!="7415Z" & forme_juridique=="Personnes morales" alors Segmentation==Sociétés
- Si forme_juridique=="Association" alors Segmentation==Association
- Si forme_juridique=="Syndic" alors Segmentation==Syndic
J'ai donc fais le code suivant :
Code : Tout sélectionner
for (i in 1:nrow(clipro)) {
if(clipro[i,"CODE_NAF]" %in% c(5367Z","4598A","7415Z") & forme_juridique=="Personnes physiques") {
clipro[i,'segmentation'] <- Prof_lib
}
else if(clipro[i,"CODE_NAF]" %in% c(5367Z","4598A","7415Z") & forme_juridique=="Personnes morales") {
clipro[i,'segmentation'] <- Prof_lib
}
else if(clipro[i,"CODE_NAF]"!="5367Z" | clipro[i,"CODE_NAF]"!="4598A" | clipro[i,"CODE_NAF]"!="7415Z") & forme_juridique=="Personnes morales") {
clipro[i,'segmentation'] <- Sociétés
}
else if(clipro[i,"CODE_NAF]"!="5367Z" | clipro[i,"CODE_NAF]"!="4598A" | clipro[i,"CODE_NAF]"!="7415Z") & forme_juridique=="Personnes physiques") {
clipro[i,'segmentation'] <- EI
}
else if(forme_juridique=="Association") {
clipro[i,'segmentation'] <- Association
}
else if(forme_juridique=="Syndic") {
clipro[i,'segmentation'] <- Syndic
}
}
Ce code ne marche pas.Il m'affiche que les sociétés et prof lib. Est-ce là bonne méthode le signe "!=", n'y a-t-il pas un moyen de simplifier ?
Je vous remercie par avance pour votre aide !!