Discussion :

[enicnath]

Bonjour,

Un petit problème de paramétrage.
J'essaie de faire un boxplot dans une fonction, pour pouvoir ensuite changer de variable. Exemple :

Code :

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

1
2
3
4
essai <- function(Variable) {
   boxplot(Variable~Species, data=iris)
}
essai("Sepal.Length")

J'obtiens un joli message d'erreur :
Error in model.frame.default(formula = Variable ~ Species, data = iris) : variable lengths differ (found for 'Species')

Est-ce que quelqu'un saurait comment réécrire cette fonction ?

[A. D.]

Bonjour,

L'erreur vient du fait que vous passez à la fonction le nom de la variable en tant que chaîne de caractères mais ce n'est pas ce qu'attend en entrée la fonction boxplot.
Une manière d'y remédier (mais il y a peut-être plus "joli" ) :

Code :

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

1
2
3
4
essai <- function(Variable) {   
   formul <- paste0(Variable, "~Species")
   boxplot(eval(parse(text = formul)), data=iris)
}

Cordialement,


A.D.

[enicnath]

Bonjour,

L'erreur vient du fait que vous passez à la fonction le nom de la variable en tant que chaîne de caractères mais ce n'est pas ce qu'attend en entrée la fonction boxplot.
Une manière d'y remédier (mais il y a peut-être plus "joli" ) :

Code :

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

1
2
3
4
essai <- function(Variable) {   
   formul <- paste0(Variable, "~Species")
   boxplot(eval(parse(text = formul)), data=iris)
}

Bonsoir,
Merci de ce code qui correspond à ce dont j'avais besoin.
Vous serait-il possible de m'expliquer l'instruction eval(parse(text = formul)) ?

[tototode]

Bonjour,

Peut-être une alternative plus simple à comprendre. Tu peux transformer une chaîne de caractères en formule avec la fonction as.formula :

Code :

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

1
2
3
4
5
essai2 <- function (Variable) 
{
    formul <- as.formula(paste0(Variable, "~Species"))
    boxplot(formul, data = iris)
}

cdlt

[enicnath]

Ah génial !

Merci Messieurs - Dames