variable en chaîne de caractères

[Stéphane Laurent]

Bonjour,

Sauriez-vous résoudre le problème illustré par ce bout de code :

Code : Tout sélectionner

> library(rgr)
>
> ( dat <- data.frame(A=1:5, B=factor(LETTERS[5:1])) )
  A B
1 1 E
2 2 D
3 3 C
4 4 B
5 5 A
>
> # ce que je veux faire :
> gx.sort.df(~B, dat)
  A B
5 5 A
4 4 B
3 3 C
2 2 D
1 1 E
>
> # mais je veux le faire pour plusieurs variables
> # sans réécrire le code à chaque fois
>
> gx.sort.df(~"B", dat) # ceci marche
  A B
5 5 A
4 4 B
3 3 C
2 2 D
1 1 E
>
> # on est alors naïvement tenté de croire que ceci va marcher mais non :
> mavariable <- "B"
> gx.sort.df(~mavariable, dat)
Error in `[.data.frame`(dfname, , vars[i]) : undefined columns selected
>
> # dommage car ce serait parfait
> # certes quand on y pense c'est normal que ça ne marche pas mais alors comment faire ?


[Pierre Bady]

bonjour,


le première argument est un objet de type formula. On peut générer un nouvelle formule avec les fonctions paste et as.formula.

Code : Tout sélectionner

R>  dat <- data.frame(A=1:5, B=factor(LETTERS[5:1]))
R> mavariable <- "B"
R> gx.sort.df(as.formula(paste("~",mavariable,sep="")), dat)
  A B
5 5 A
4 4 B
3 3 C
2 2 D
1 1 E
R>


hth

pierre

[Maxime Hervé]

Comme ça ?

Code : Tout sélectionner

(dat <- data.frame(A=1:5, B=factor(LETTERS[5:1])))
  A B
1 1 E
2 2 D
3 3 C
4 4 B
5 5 A

dat[order(dat$B),]
  A B
5 5 A
4 4 B
3 3 C
2 2 D
1 1 E

mavariable <- "B"

dat[order(dat[,mavariable]),]
  A B
5 5 A
4 4 B
3 3 C
2 2 D
1 1 E

Maxime

[Stéphane Laurent]

Arf ouais merci, je kiffe tellement gx.sort.df() que j'avais banni de mon existence la bonne vieille méthode :)

[Stéphane Laurent]

Je n'avais pas vu la réponse de Pierre. Ca marche aussi. Merci à vous.