ggplot2: Đặt alpha = 0 cho các điểm nhất định tùy thuộc vào giá trị điền

Question

Tôi hiện đang làm việc trên một dự án liên quan đến việc tạo lô rất giống với ví dụ trong trang ggplot2 0.9.0 của Hadley liên quan đến stat_density2d().

library(ggplot2) 
dsmall <- diamonds[sample(nrow(diamonds), 1000), ] 
d <- ggplot(dsmall, aes(carat, price)) + xlim(1,3) 
d + stat_density2d(geom="tile", aes(fill = ..density..), contour = FALSE) 
last_plot() + scale_fill_gradient(limits=c(1e-5,8e-4)) 

Bây giờ, những gì tôi đang phải vật lộn với một cách để cơ bản biến alpha tắt (alpha = 0) cho tất cả các gạch không điền tầm xa. Vì vậy, mỗi ô màu xám nhìn thấy trong hình ảnh, alpha phải được đặt thành 0. Điều này sẽ làm cho hình ảnh đẹp hơn rất nhiều, đặc biệt là khi chồng lên trên bản đồ chẳng hạn.

Nếu có bất kỳ đề xuất nào, điều này sẽ được đánh giá cao.

Answer 1

Điều này dường như làm việc:

d + stat_density2d(geom="tile", 
    aes(fill = ..density.., 
    alpha=cut(..density..,breaks=c(0,1e-5,Inf))), 
    contour = FALSE)+ 
scale_alpha_manual(values=c(0,1),guide="none") 

Answer 2

Một khả năng khác, chỉ cần sử dụng ifelse thay vì cut.

d + stat_density2d(geom="tile", 
    aes(fill = ..density.., alpha = ifelse(..density.. < 1e-5, 0, 1)), 
    contour = FALSE) + 
scale_alpha_continuous(range = c(0, 1), guide = "none")