Les facteurs : factor

Table des matières
  1. Exemple sp?cifique
  2. La fonction tapply()
Un facteur est un objet repartissant les donn?es en groupe.


Exemple sp?cifique



Soit un ?chantillon de 30 comptables fiscalistes de tous les ?tats et territoire d'Australie. Leur ?tat d'origine est sp?cifi? par un vecteur de caract?re.

Code R :
 
 state <- c("tas", "sa",  "qld", "nsw", "nsw", "nt",  "wa",  "wa",
                  "qld", "vic", "nsw", "vic", "qld", "qld", "sa",  "tas",
                  "sa",  "nt",  "wa",  "vic", "qld", "nsw", "nsw", "wa",
                  "sa",  "act", "nsw", "vic", "vic", "act")


Un facteur est cr?? avec la fonction factor()

Code R :
 
statef <- factor(state)


Pour afficher maintenant la valeur de statef:

Code R :
>statef

[1] tas sa qld nsw nsw nt wa wa qld vic nsw vic qld qld sa
[16] tas sa nt wa vic qld nsw nsw wa sa act nsw vic vic act
Levels: act nsw nt qld sa tas vic wa

Pour conna?tre les niveaux (ou cat?gories) d'un facteur la fonction levels() peut ?tre utilis?e.

Code R :
 
 levels(statef)
 

[1] "acte" "NSW" "nt" "qld" "sa" "tas" "Vic" "wa"


La fonction tapply()



Pour continuer l'exemple pr?c?dent, supposons que nous ayons des revenus des comptables fiscalistes dans un autre vecteur.

Code R :
 
revenus <- c(60, 49, 40, 61, 64, 60, 59, 54, 62, 69, 70, 42, 56,
                     61, 61, 61, 58, 51, 48, 65, 49, 49, 41, 48, 52, 46,
                     59, 46, 58, 43)
 


Pour calculer la moyenne des revenus pour chaque ?tat, nous pouvons maintenant utiliser la fonction sp?ciale tapply() :

Code R :
 revenus_moyenne<- tapply(revenus, statef, mean)


donnant un vecteur contenant les moyen avec les composants ?tiquett?s par le nom des groupes (?tats)

acte nsw nt qld sa vic tas wa
44.5 57.333 55.5 53.6 55 60.5 56 52.25

La fonction tapply() est utilis?e pour appliquer une fonction, ici mean

On peut aussi cr?er une fonction d’int?r?t et l'appliquer en utilisant tapply().


? Cours pr?c?dent
Les vecteurs : vector


Cours suivant ?
Les matrices : matrix


Enjoyed this article? I’d be very grateful if you’d help it spread by emailing it to a friend, or sharing it on Twitter, Facebook or Linked In.

Show me some love with the like buttons below... Thank you and please don't forget to share and comment below!!
Avez vous aimé cet article? Je vous serais très reconnaissant si vous aidiez à sa diffusion en l'envoyant par courriel à un ami ou en le partageant sur Twitter, Facebook ou Linked In.

Montrez-moi un peu d'amour avec les like ci-dessous ... Merci et n'oubliez pas, s'il vous plaît, de partager et de commenter ci-dessous!





Cette page a été vue 2594 fois
Licence - Pas d?Utilisation Commerciale - Partage dans les M?mes Conditions
Licence Creative Commons