Làm cách nào để buộc geom_tile của ggplot lấp đầy mọi khía cạnh?

Question

Tôi đang sử dụng geom_tile của ggplot để thực hiện các ô mật độ 2-D với một yếu tố. Mọi thang điểm của mọi khía cạnh đều đi từ mức tối thiểu của tất cả dữ liệu đến mức tối đa của tất cả dữ liệu, nhưng geom_tile trong mỗi khía cạnh chỉ mở rộng đến phạm vi dữ liệu được đánh dấu trong khía cạnh đó.

Ví dụ mã đó chứng tỏ vấn đề:

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) 

Run mã, và bạn sẽ thấy hai khía cạnh. Một khía cạnh cho thấy một âm mưu mật độ của một phân phối bình thường ngẫu nhiên "không giới hạn". Khía cạnh thứ hai cho thấy một cắt ngắn ngẫu nhiên bình thường nằm trong một hình vuông 2x2 về nguồn gốc. Geom_tile trong phần "giới hạn" sẽ bị giới hạn bên trong hộp nhỏ này thay vì làm đầy khía cạnh.

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

Ba dòng cuối cùng vẽ cùng một dữ liệu với x nhất định và giới hạn y, và chúng ta thấy rằng không phải khía cạnh mở rộng các phần gạch đến mép trong trường hợp này.

Có cách nào để buộc geom_tile trong mỗi khía cạnh để mở rộng đến phạm vi đầy đủ của các khía cạnh?

Answer 1

Tôi nghĩ rằng bạn đang tìm kiếm một sự kết hợp của scales = "free" và 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)) 

EDIT

Do làm rõ của OP, đây là một lựa chọn thông qua chỉ đơn giản là thiết lập các bảng nền theo cách thủ công:

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