1 2 3 4 5 6 7 8 9 10 11 12 13 14
| > a <- c("Société civile", "Collectivite","INDIVISION","Société anonyme repons. limité","Individuel","Société anonyme repons. limité","INDIVISION")
> a
[1] "Société civile" "Collectivite"
[3] "INDIVISION" "Société anonyme repons. limité"
[5] "Individuel" "Société anonyme repons. limité"
[7] "INDIVISION"
> fact <- factor(a, levels=c("Société civile", "Collectivite","INDIVISION","Société anonyme repons. limité","Individuel"), labels=c("Autres", "Autres", "Autres", "SARL", "Individuel"))
> fact
[1] Autres Autres Autres SARL Individuel SARL Autres
Levels: Autres Autres Autres SARL Individuel
> |
Partager