dplyr summarise () et summarise each() font des appels supplémentaires aux fonctions fournies

Il semble que summarise et summarise_each font des appels supplémentaires inutiles aux fonctions de rappel qui leur sont fournies. Supposons que nous ayons ce qui suit

X <- data.frame( Group = rep(c("G1","G2"),2:3), Var1 = 1:5, Var2 = 11:15 )

, Qui ressemble à ceci:

   Group Var1 Var2
 1    G1    1   11
 2    G1    2   12
 3    G2    3   13
 4    G2    4   14
 5    G2    5   15

Supposons En outre que nous ayons une fonction (potentiellement coûteuse)

f <- function(v)
{
   cat( "Calling f with vector", v, "n" )
   ## ...additional bookkeeping and processing...
   mean(v)
}

Que nous aimerions appliquer à chacune de nos variables dans chaque groupe. En utilisant dplyr, nous pourrions procéder de la manière suivante:

X %>% group_by( Group ) %>% summarise_each( funs(f) )

Cependant, la sortie montre que f a été appelé une fois supplémentaire pour chaque variable dans G1:

Calling f with vector 1 2 
Calling f with vector 1 2 
Calling f with vector 3 4 5 
Calling f with vector 11 12 
Calling f with vector 11 12 
Calling f with vector 13 14 15 
# A tibble: 2 x 3
   Group  Var1  Var2
  <fctr> <dbl> <dbl> 
1     G1   1.5  11.5
2     G2   4.0  14.0

, Le même problème est présent lors de l'utilisation de summarize:

> X %>% group_by( Group ) %>% summarise( test = f(Var1) )
Calling f with vector 1 2
Calling f with vector 1 2
Calling f with vector 3 4 5
# A tibble: 2 × 2
   Group  test
  <fctr> <dbl>
1     G1   1.5
2     G2   4.0

Pourquoi cela se produit-il et comment empêcherait-on summarise et summarise_each de faire ces appels supplémentaires?

(ceci utilise R Version 3.3.0 et dplyr version 0.5.0)

EDIT:, Il semble que la question a à voir avec l'interaction entre group_by et summarise/summarise_each. Sans le regroupement, aucun appel supplémentaire n'est effectué. En outre, mutate et mutate_each ne souffrent pas de ce problème. (Crédit: eddi et eipi10 pour ces résultats)