allow this to work: mean( ~ x | a ~ b)

[rpruim]

Currently we support mean( ~ x | a + b), but mean(y ~ x | a ~ b) makes more sense to users familiar with {ggformula}. The same applies to the other numerical summary functions.