Discussion :

[jojino]

Bonjour à tous,

J'ai un nombre conséquent d'opérations à faire sur plusieurs data.frames et plusieurs colonnes de ces dataframes. Je voudrais créer une fonction qui me donne le même résultat que le suivant (exemple en utilisant le jeu de données "mtcars") :

Code :

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

with(mtcars,sum(mpg*disp)/sum(disp))

voici ce que j'ai essayé (sans succès :

Code :

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

1
2
3
4
5
6
 
moy <- function (df,a,b) { 
                                    a <- df$a
                                    b <- df$b
                                    with(df,sum(a*b)/sum(b))
                                    }

Code :

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

1
2
3
 
> moy(mtcars,mpg,disp)
[1] NaN

si je ne crée pas d'objet pour a et b il me dit qu'il ne trouve pas l'objet correspondant à l'argument. Y a-t-il une méthode?

Merci beaucoup!!

[A. D.]

Bonjour,

Le problème ici est lié au type des éléments passés en arguments de la fonction et leur utilisation ensuite : il y a une différence entre le nom d'une variable (exemple : nom d'une colonne) et son contenu. Pour palier à ce genre de problème, il est possible d'avoir recours aux fonctions du type "eval" and co par exemple.

Sinon, une autre manière d'écrire votre fonction qui fait l'affaire :

Code :

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

1
2
3
4
5
6
7
8
moy <- function (df,a,b) { 
  a <- df[, a]
  b <- df[, b]
  sum(a*b)/sum(b)
}
 
moy(mtcars, "mpg", "disp")  # attention ici les guillemets autour des noms de colonnes sont indispensables !
# [1] 17.43239

N'hésitez pas à poser des questions si vous souhaitez plus de précisions !


Cordialement,


A.D.

[jojino]

Bonjour A.D.,

Cela fonctionne à merveille! Merci beaucoup.