R: en indiquant le nom de la variable en paramètre de la fonction pour une fonction de général (universel) utilisation

Examinons de plus près (voir les commentaires que j'ai ajouté) vous fonction d'origine et d'appel, en supposant que vous dire de passer le noms de vous les colonnes de l'intérêt de la fonction:

myfun <- function (dataframe, varA, varB) {
              #on this next line, you use A and B. But this should be what is
              #passed in as varA and varB, no?
              daf2 <- data.frame (A = dataframe$A*dataframe$B, B=dataframe$C*dataframe$D)
              #so, as a correction, we need:
              colnames(daf2)<-c(varA, varB)
              #the first argument to lm is a formula. If you use it like this,
              #it refers to columns with _names_ varA and varB, not as names
              #the _contents_ of varA and varB!!
              anv1 <- lm(varA ~ varB, daf2)
              #so, what we really want, is to build a formula with the contents
              #of varA and varB: we have to this by building up a character string:
              frm<-paste(varA, varB, sep="~")
              anv1 <- lm(formula(frm), daf2)
              print(anova(anv1)) 
             }             
#here, you pass A and B, because you are used to being able to do that in a formula
#(like in lm). But in a formula, there is a great deal of work done to make that
#happen, that doesn't work for most of the rest of R, so you need to pass the names
#again as character strings:
myfun (dataframe = dataf, varA = A, varB = B)
#becomes:
myfun (dataframe = dataf, varA = "A", varB = "B")

Remarque: dans ce qui précède, j'ai laissé le code d'origine en place, de sorte que vous pouvez supprimer pour éviter les erreurs qui ont été à l'origine arriver. L'essence de vos problèmes, c'est que vous devez toujours passer les noms de colonnes comme les personnages, et de les utiliser comme telles. C'est l'un des endroits où le sucre syntaxique des formules dans la R permet aux gens dans de mauvaises habitudes et de malentendus...

Aujourd'hui, comme une alternative: le seul endroit où les noms de variable sont effectivement utilisées, sont dans la formule. En tant que tel, vous pouvez simplifier les choses plus loin si vous n'avez pas l'esprit, de légères différences cosmétiques dans les résultats que vous pouvez nettoyer plus tard: il n'est pas nécessaire pour vous de passer le long de la colonne des noms!!

myfun <- function (dataframe) {
              daf2 <- data.frame (A = dataframe$A*dataframe$B, B=dataframe$C*dataframe$D)
              #now we know that columns A and B simply exist in data.frame daf2!!
              anv1 <- lm(A ~ B, daf2)
              print(anova(anv1))
             }             

Comme un dernier conseil: je voudrais éviter de l'appel d'impression sur votre dernier relevé: si vous n'avez pas, mais l'utilisation de cette méthode directement à partir de la R de la ligne de commande, il remplira les imprimer pour vous de toute façon. Comme un avantage supplémentaire, vous pouvez effectuer d'autres travaux avec l'objet retourné à partir de votre méthode.

Nettoyé la Fonction d'essai:

dataf <- data.frame (A= 1:10, B= 21:30, C= 51:60, D = 71:80)
myfun <- function (dataframe, varA, varB) {
               frm<-paste(varA, varB, sep="~")
               anv1 <- lm(formula(frm), dataframe)
               anova(anv1)
             }
 myfun (dataframe = dataf, varA = "A", varB = "B")
  myfun (dataframe = dataf, varA = "A", varB = "D")
    myfun (dataframe = dataf, varA = "B", varB = "C")

OriginalL'auteur Nick Sabbe

Je ne suis pas sûr de bien comprendre vos problème, voici donc ce que j'ai compris : vous voulez que votre fonction à appeler le lm() fonction des données extraites à partir de données.cadre donné en argument, et les colonnes de données.image spécifiée par d'autres arguments ?

Pour moi la plus simple solution consiste à imiter le lm() comportement et de demander à l'utilisateur une formule :

dataf <- data.frame(A=1:10, B=21:30, C=51:60, D=71:80)

myfun <- function(formula, dataframe) {
  daf2 <- data.frame(A=dataframe$A*dataframe$B, B=dataframe$C*dataframe$D)
  anv1 <- lm(formula=formula, data=daf2)
  print(anova(anv1))
}

myfun(formula=A~B, dataframe=dataf)

Une autre solution est de construire la formule vous-même :

dataf <- data.frame(A=1:10, B=21:30, C=51:60, D=71:80)

myfun <- function(dataframe, varA, varB) {
  daf2 <- data.frame(A=dataframe$A*dataframe$B, B=dataframe$C*dataframe$D)
  frm = as.formula(sprintf("%s~%s", varA, varB))
  anv1 <- lm(frm, daf2)
  print(anova(anv1))
}

myfun(dataframe=dataf, varA="A", varB="B") 

Je ne suis pas familier avec attach mais j'essaie de l'éviter lorsque c'est possible, pour masquer les problèmes que vous avez mentionnés. Si vous detach à la fin de la fonction, je pense qu'il ne serait pas provoquer l'effet frontière, mais vous pouvez adresser un avertissement.

OriginalL'auteur maressyl