Discussion :

[jlp65]

Bonjour,
Je souhaiterais effectuer une série de calculs d'agrégats sur une dataframe par variables de regroupements.
J'ai testé cette fonction :

Code :

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

1
2
3
4
5
6
7
8
test <- function (variables_regroupement) {
  ma_dataframe %>% 
  group_by(variables_regroupement) %>% 
  summarise(X  = round(sum(X) /1000),
            Y  = round(sum(Y) /1000)
            )
  }
resultat <- test("SI")

Mais cela ne fonctionne pas : cela donne le message d'erreur :

Code :

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

Error: object 'variables_regroupement' not found

[jlp65]

Code :

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

1
2
3
4
5
6
7
8
9
10
 
test <- function (variables_regroupement) {
  v <- sym(variables_regroupement)
  ma_dataframe %>% 
  group_by(!!v) %>% 
  summarise(X  = round(sum(X) /1000),
            Y  = round(sum(Y) /1000)
            )
  }
resultat <- test("SI")

[jlp65]

... sauf que ce code ne s'adapte pas au cas de 2,3 ... variables de regroupement

[jlp65]

Voici la solution pour une ... ou plusieurs variables de regroupement :

Code :

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

1
2
3
4
5
6
7
8
9
10
 
test <- function (variables_regroupement) {
  ma_dataframe %>% 
  group_by(!!! syms(variables_regroupement)) %>% 
  summarise(X  = round(sum(X) /1000),
            Y  = round(sum(Y) /1000)
            )
  }
resultat <- test("SI")
resultat <- test("SI","V2")