Discussion :

[fabrice91]

J'ai un souci pour représenter mes données sous R dans une structure avec laquelle je puisse travailler...
Calculer une moyenne par mean() par exemple ou faire un summary().
Je reprends ici la description de mes données de mon post précédent :
Les données sont simples :
- des notes variant de 0 à 20
- un nombre d'étudiants ayant eu la note considérée
J'ai pour cela créé un premier vecteur de notes :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

notes<-c(0:20)

Puis un deuxième vecteur n :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

n<-c(2,0,0,4,0,3,4,10,6,5,8,13,10,7,8,5,2,0,3,0,0)

signifiant que
- 2 étudiants ont eu 0
- 0 étudiants ont eu 1
- 0 étudiants ont eu 2
- 4 étudiants ont eu 3
etc...

Je voudrais maintenant créer une structure sur laquelle je puisse faire un mean().
J'ai essayé un

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
table.1<-table(notes,n)
# et un 
mean(table.1)

mais le resultat n'est pas celui escompté.
De même avec un

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

mean(notes*n)

ou bien comme précédemment

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
tapply.1<-tapply(notes,n,sum) 
# puis 
mean(tapply.1)

Je pourrais evidemment faire une boucle sur mes 2 vecteurs n et notes et faire moi-même le calcul mais bon, je voudrais utiliser les fonctions prévues pour...
merci

[fabrice91]

La seule solution que j'ai trouvé n'utilise pas mean()

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
mul<-(n*notes)
moyenne<-sum(mul)/sum(n)

mais bon...dur dur de faire les quartiles facilement ensuite...

[pitipoisson]

Bonjour,

Je vois deux possibilités

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
> notes <- c(0:20)
> n <- c(2, 0, 0, 4, 0, 3, 4, 10, 6, 5, 8, 13, 10, 7, 8, 5, 2, 0, 3, 0, 0)
 
> mean(rep(notes, n))   # crée un vecteur avec toutes les notes
[1] 10.23333
 
> weighted.mean(notes, n)
[1] 10.23333

Pour les quartiles, tu peux facilement adapter la première solution

[fabrice91]

c'est parfait, merci !