Discussion :

[collosus]

Bonjour,
J'ai un jeu de données constitué de 3 colonnes. La première est le nom des produits, la seconde est le prix et la troisième est le nombre de produits.
Donc un jeu de données comme celui-là :

Code :

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

1
2
3
4
5
6
7
8
9
10
Produit	Prix	Quantité
a	10	100
a	20	120
a	10	 50
b	25	3
b	14	90
c	30	100
c	25	 58
c	5	 69
c	5	 23

Je voudrais calculer la moyenne du prix pondéré à la quantité pour chaque produit. Je voudrais passer à un tableau comme celui-là:

Code :

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

1
2
3
4
Produit	Prix	Quantité
a	 25	 250
b	30	 300
c	 20	 200

J'ai essayé avec la fonction apply mais je n'y arrive pas.

Merci beaucoup.

PS : Je précise que les chiffres des tableaux sont faux.

[Sengar]

Salut,

Ceci devrait marcher:

Code :

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

1
2
tapply(seq_along(data$Prix),data$Produit,
function(xx){return(weighted.mean(x=data$Prix[xx],w=data$Quantité[xx]))})

[collosus]

Merci beaucoup pour ta réponse, ça fonctionne !