¿Cómo puedo forzar que geom_tile de ggplot llene cada faceta?

Question

Estoy usando el geom_tile de ggplot para hacer diagramas de densidad bidimensional facetados por un factor. La escala de cada faceta va desde el mínimo de todos los datos hasta el máximo de todos los datos, pero el geom_tile en cada faceta solo se extiende al rango de los datos trazados en esa faceta.

código de ejemplo que muestra el problema:

library(ggplot2) 

data.unlimited <- data.frame(x=rnorm(500), y=rnorm(500)) 
data.limited <- subset(data.frame(x=rnorm(500), y=rnorm(500)), x<1 & y<1 & x>-1 & y>-1) 

mydata <- rbind(data.frame(groupvar="unlimited", data.unlimited), 
       data.frame(groupvar="limited", data.limited)) 

ggplot(mydata) + 
    aes(x=x,y=y) + 
    stat_density2d(geom="tile", aes(fill = ..density..), contour = FALSE) + 
    facet_wrap(~ groupvar) 

ejecuta el código, y verá dos facetas. Una faceta muestra un diagrama de densidad de una distribución normal aleatoria "ilimitada". La segunda faceta muestra una normal aleatoria truncada para que se encuentre dentro de un cuadrado de 2x2 sobre el origen. El geom_tile en la faceta "limitada" estará confinado dentro de esta pequeña caja en lugar de llenar la faceta.

last_plot() + 
    scale_x_continuous(limits=c(-5,5)) + 
    scale_y_continuous(limits=c(-5,5)) 

Estas tres últimas líneas de la trama con los mismos datos de x especificado y límites y, y vemos que ni la faceta amplía las secciones de baldosas a la ventaja en este caso.

¿Hay alguna manera de forzar que el geom_tile en cada faceta se extienda al rango completo de la faceta?

Answer 1

Creo que estás en busca de una combinación de scales = "free" y expand = c(0,0):

ggplot(mydata) + 
    aes(x=x,y=y) + 
    stat_density2d(geom="tile", aes(fill = ..density..), contour = FALSE) + 
    facet_wrap(~ groupvar,scales = "free") + 
    scale_x_continuous(expand = c(0,0)) + 
    scale_y_continuous(expand = c(0,0)) 

EDITAR

Dada la aclaración de la OP, aquí es una opción a través de simplemente configurando el panel fondo manualmente:

ggplot(mydata) + 
    aes(x=x,y=y) + 
    stat_density2d(geom="tile", aes(fill = ..density..), contour = FALSE) + 
    facet_wrap(~ groupvar) + 
    scale_fill_gradient(low = "blue", high = "red") + 
    opts(panel.background = theme_rect(fill = "blue"),panel.grid.major = theme_blank(), 
     panel.grid.minor = theme_blank())