Fonction operation sur data frame et colonnes

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:

---

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

---

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

Code:

---

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:

---

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!!

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:

---

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.

Bonjour A.D.,

Cela fonctionne à merveille! Merci beaucoup.