Puis-je faire des calculs de marge dans ddply()?

Question

La fonction cast() est grande au calcul des marges des valeurs globales:

cast(df, IDx1+IDx2~IDy1, margins=c('IDx1','IDx2','grand_row'),c(min, mean, max))

Le problème est que je dois poids mes moyens utilisant un second vecteur et une fonction personnalisée.

Bien sûr, ddply() me permet d'appliquer des fonctions d'agrégation personnalisée à mes dossiers regroupés:

ddply(d, IDx1+IDx2~IDy1 , function(x) 
c(
min(x$value), 
MyFancyWeightedHarmonicMeanFunction(x$value,x$weight), 
max(x$value) 
) 
) 

... et c'est génial.

Mais ce serait vraiment sauver la journée est la possibilité de faire les deux choses à la fois, que ce soit en appelant la fonction de deux vecteurs dans cast() ou en feignant d'une certaine manière la variable margins=() dans ddply().

Est-ce possible?

Answer 1

Il est assez pour calculer les marges vous:

ddply(d, "IDX1", ...) 
ddply(d, c("IDX1", "IDX2"), ...) 
ddply(d, "IDy1", ...) 

puis combiner les résultats avec rbind. Il ne serait pas trop difficile d'en faire une fonction générale.

Aussi, je réécris votre code original:

ddply(d, IDx1+IDx2~IDy1, summarise, 
    min = min(value), 
    wt.mean = MyFancyWeightedHarmonicMeanFunction(value, weight), 
    max = max(value) 
)