`stat_contour_fill()` no anda bien cuando el promedio del campo es igual a un `break`

[eliocamp]

`stat_contour_fill()` no anda bien cuando el promedio del campo es igual a un `break`

[eliocamp]

Una solución temporal:
Considero que para grDevices::contourLines() es ambiguo para qué lado cerrar el contorno con nivel igual al promedio y pareciera ser que resuelve la ambigüedad arbitrariamente cerrando para el lado negativo. Trabajando bajo esa suposición, en caso de que mean.z == mean.level, considero que el lado negativo va a estar cerrado y lo cierro por el positivo.

[eliocamp]

Así funciona en d96440d

library(ggplot2)
library(metR)
df <- expand.grid(x = 1:10, y = 1:10)
df$z <- with(df, x*y - mean(x*y))

ggplot(df, aes(x, y, z = z)) +
    geom_contour_fill(binwidth = 20) +
    geom_contour(breaks = 0) +
    scale_fill_divergent(guide = guide_colorstrip(),
                         breaks = MakeBreaks(20))