如何強制ggplot的geom_tile填滿每個方面？

Question

我正在使用ggplot的geom_tile做一個因素面對的二維密度圖。每個方面的比例從所有數據的最小值到所有數據的最大值，但是每個方面中的geom_tile僅延伸到在該方面中繪製的數據的範圍。

示例代碼演示了此問題：

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) 

運行的代碼，你會看到兩個方面。一個方面顯示了「無限」隨機正態分佈的密度圖。第二個方面顯示了一個隨機正常截斷位於關於原點的2x2正方形內。 「有限」面中的geom_tile將被限制在這個小方框內，而不是填充面。

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

這些最後三行繪製與指定的x和y範圍相同的數據，我們看到，無論小面的瓷磚部分延伸到在這種情況下的邊緣。

有什麼辦法可以強制每個方面的geom_tile擴展到整個方面？

Answer 1

我認爲你正在尋找的scales = "free"和expand = c(0,0)組合：鑑於OP的澄清

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)) 

編輯

，這裏是通過簡單的設置面板一個選項手動背景：

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())