Discussion :

[Statistiques33]

Bonjour à tous,
Je travaille toujours sur ce jeu de données :

Code :

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

1
2
3
4
5
6
7
Article.Code    Article.LibellÃ..court NÂ..Commande   CA MBGR QtÃ. PUHT
1      2001909  MODULE DEPORT BUS X 250M   4014737794  721   66    1  721
2      2001952  6 ANALOG IN, 4 OUT 8 DIG   4015466742  925  129    1  925
3      2002586               TSX 3705 CA   4014253122  436   28    1  436
4      2003239 COLONNES LUMINEUSES 40 MM   4015900476  397  157    4   99
5      2005078 CONT 9A 1F 1O 220V BC LPL   4014469083   47   14    1   47
6      2005307 CONT 115A 4P 230V 50 60HZ   4014179039 1701  170    6  283

Code :

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

1
2
Warning in max(data[Article.Code == i, "Qté"]) :
  no non-missing arguments to max; returning -Inf

l'erreur était simplement l'accent
Si vous pouviez m'aider, d'avance merci

[olivier.decourt]

Bonjour.
Je n'ai pas regardé tout le code, mais une boucle ne me semble pas vraiment nécessaire. Il y a de nombreuses manières de sortir des stats par valeurs d'une / de plusieurs variables de groupe (aggregate, dplyr::group_by et summarize, entre autres).

Code :

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

tableau_moyennes_prix <- aggregate(Qté ~ Article.Code, data, max, na.rm=TRUE)

[Statistiques33]

Bonjour.
Je n'ai pas regardé tout le code, mais une boucle ne me semble pas vraiment nécessaire. Il y a de nombreuses manières de sortir des stats par valeurs d'une / de plusieurs variables de groupe (aggregate, dplyr::group_by et summarize, entre autres).

Code :

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

tableau_moyennes_prix <- aggregate(Qté ~ Article.Code, data, max, na.rm=TRUE)

Merci de m'avoir répondu.
Alors j'ai testé votre code et cela ne me donne pas quelque chose de cohérent, que je ne comprends pas.
J'aimerais vraiment comprendre d'où me vient cette erreur car je ne vois pas

[olivier.decourt]

Effectivement, ce n'est pas un maximum que vous souhaitez calculer par code article. Si j'ai bien compris, c'est une moyenne des prix selon que la plus grosse quantité vendue et > 5 ou pas.
Cela dit, votre code contient pas mal de choses étranges :
1) le résultat, tableau_moyennes, n'est initialisé nulle part (j"imagine qu'il l'est ailleurs dans votre code)
2) il manque pas mal de data$ dans data[Article.Code == i qui devrait s'écrire data[data$Article.Code == i (sinon c'est un objet Article.Code qui sera utilisé, pas la colonne du data.frame data)
3) subitement dans subset ce n'est pas i qui est utilisé mais une valeur en dur
4) je ne comprends pas pourquoi vous distinguez systématiquement le cas où il n'y a qu'une ligne et celui où il y en a plusieurs : dans les deux cas, on peut calculer une moyenne et obtenir le bon résultat.

A part ça, je persiste dans l'idée que la boucle est inutile et je ferais plutôt :
a) une nouvelle variable binaire indiquant si Qté est > 5 ou pas
b) un aggregate ( PUHT ~ Article.Code + Qte_sup5 , data, mean, na.rm=TRUE)
c) éventuellement supprimer les lignes inutiles dans le résultat d'aggregate

[Statistiques33]

oui, effectivement l'initialisation se trouve au début de mon code.
Je ne comprends pas on m'a dit justement de passer en dataframe et d'appeler la variable comme cela
Oui j'ai mis une valeur pour mieux pouvoir tester, mais cela ne change rien, avec ou sans j'ai toujours la même erreur
Cela dépend si j'ai une seule valeur (donc pas vraiment besoin de calcul sophistiqué mais j'ai besoin d'avoir une référence, donc la moyenne) ou si j'en ai plusieurs au niveau du prix.
J'aimerais tester votre idée mais je n'ai pas réussi à créer une nouvelle variable binaire.....
En vous remerciant