Moyenne par ordre.

Bonjour,

J'ai un vecteur par exemple comme(a<-c(1,3,2,9,6,5,8,4,7) ) est je cherche la moyenne des 3 plus grosses valeurs,
la réponse correspond a notre cas est moyenne(9,8,7)=24/3.

Merci d'avance.

Re-bonjour,

Voici une solution artisanale :

Code:


b<-sort(a, decreasing = T)
mean(b[1:3])


En gros, tu tries ton vecteur par ordre décroissant et tu récupères les 3 premières valeurs sur lesquelles tu calcules la moyenne.

Ayana

oui je le connais ,mais malheureusement mon cas est plus compliqué car le vecteur est un colonne de mon tableau !

et ce que je veux exactement que à chaque Sektion (ou groupe) j'ajoute nvl colonne qui contient la moyenne des trois grosses valeurs par Sektion tjrs !

Code:


for (i in seq(1:nombre_sections)){
a<-tab$variable[tab$Section==i]
b<-sort(a,decreasing=T)
moy<-mean(b[1:3])
if (tab$Section==i){tab$moy_section<-moy}
}


Pour chaque section, on récupère les valeurs dans un vecteur, on trie on calcule la moyennne sur les 3 plus grandes valeurs et on recopie la moyenne dans la table sur les lignes correspondantes

merci beaucoup

Bonjour ,
Dsl , j'ai essayé plusieurs fois avec cette code :
for (i in seq(1:35)){
a<-AST_Baum16$D_V[AST_Baum16$Sektion==i]
b<-sort(a,decreasing=T)
moy<-mean(b[1:3])
if (AST_Baum16$Sektion==i){AST_Baum16$moy_Sektion<-moy}
}
avec (AST_Baum16:mon tableau,D_V: le variable sur le quel je fais la moyenne ,Sektion: colonne de tableau ).

Le problème est que la nvl colonne prend le même valeur(qui est la moyenne des trois plus grands valeurs de D_V dans la Sektion=1) dans tous les autres cases!

Et ce n'était pas le but pour pouvoir faire d'autres calculs après? Du coup j'ai pas dû comprendre ce que tu voulais faire

Bonjour,

Normalement le code oui ,mais la résultat obtenue est pas ce que je cherche parceque dans la nvl colonne tous les cases prennent la même moyenne qui correspond à la Sektion=1 !
En plus R m'affiche ce message "Avis dans if (AST_Baum16$Sektion == i) { :
la condition a une longueur > 1 et seul le premier élément est utilisé"
?

il faut remplacer :

Code:


if (AST_Baum16$Sektion==i){AST_Baum16$moy_Sektion<-moy}


par :

Code:


AST_Baum16$moy_Sektion[AST_Baum16$Sektion==i]<-moy}


car effectivement sinon ça ne lit que la première ligne

merci bien ça marche avec ce code:

[ j<-1
i<-1
repeat{
a<-AST_Baum16$D_V[AST_Baum16$Sektion==i]
b<-sort(a,decreasing=T)
moy<-mean(b[1:3])
while (AST_Baum16[j,3] == i) { AST_Baum16[j,16]<-moy
j<-j+1
}
if (i>35) break
i<-i+1
}]