Discussion :

[picka69]

Bonjour,

Je souhaiterais remplacer les valeurs d'une colonne en fonction d'un test.
J'ai un jeu de données qui est de la sorte

sexe	age	poids	taille
0	17	79	180
1	25	60	164
1	28	80	184
1	15	70	174

Je souhaiterais remplacer les valeurs de l'âge qui sont inférieures à 20 par la moyenne des âges.
Cela fonctionne très bien avec une boucle for et un test if.
Mais je souhaiterais faire la même chose avec apply (ou une autre fonction s ou t apply) mais je n'y arrive pas.

Code :

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

1
2
3
 
age <- array(data$age)
apply(age,1,function(x) if(x<20) mean(x))

Je n'ai pas le résultat souhaité.
Y aurait-il une personne qui pourrait m'aiguiller?

Cdlt,
Yassine

[jack-no]

Je ne comprends pas bien l’intérêt ni si c'est possible.
À ta place, j'utiliserais plutôt l'indexation logique :

Code :

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

age[age<20]<- mean(age)

[A. D.]

Bonjour picka,

Effectivement, la réponse de jack-no est tout à fait pertinente et moins lourde

Cependant, si tu souhaites une "correction" de ta syntaxe avec le apply, en voici une :

Code :

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

apply(age,1,function(x){ if(x<20) mean(age) else x })

C'était l'élément passé dans la moyenne qui était incorrect dans ton code, en effet, le calcul est fait pour chaque élément de "age" (chaque "x" de la fonction), donc à chaque étape "mean(x)" renvoyait "x".


Bonne continuation !


A.D.