разорванные многоугольники в levelplot с использованием ggplot stat_density_2d

Question

Создание levelplot с помощью ggplot «s stat_density_2d я получаю„сломанные“многоугольников. Например, внешний в приведенном ниже примере.

Как исправить это, чтобы получить гладкую форму?

set.seed(0) 
n <- 50 
d <- data.frame(x = rnorm(n, -.7, .5), 
       y = rnorm(n, 0, .8)) 
ggplot(d, aes(x, y)) + 
    geom_point() + 
    stat_density_2d(aes(fill = ..level..), alpha=.1, geom = "polygon") 

Answer 1

Чтобы построить на @ hrbrmstr отвечают (что, по крайней мере, на моей машине, отсекает одну точку данных, поскольку х масштаб не достаточно широк), немного более активное участие подход будет чтобы получить пределы данных, установить пределы шкалы, а затем сбросить сюжет ограничивает обратно в исходный диапазон:

g <- ggplot(d, aes(x, y)) + 
    geom_point() + 
    stat_density_2d(aes(fill = ..level..), alpha=.1, geom = "polygon") 

dat_lims <- lapply(d, function(v) c(min(v), max(v))) 
plot_lims <- ggplot_build(g)$panel$ranges[[1]][c("x.range", "y.range")] 

g + 
    scale_x_continuous(limits = dat_lims$x * 1.1) + 
    scale_y_continuous(limits = dat_lims$y * 1.1) + 
    coord_cartesian(xlim = plot_lims$x.range, ylim = plot_lims$y.range) 

Выход: