Gebrochene Polygone in levelplot ggplot mit stat_density_2d

Question

ein levelplot Erstellen mit ggplot ‚s stat_density_2d ich "gebrochen" Polygone. Zum Beispiel der äußere im Beispiel unten.

Wie kann ich das beheben, um eine glatte Form zu bekommen?

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

auf @ hrbrmstr Antwort zu bauen (was zumindest auf meinem Rechner, einen Datenpunkt lops ab, weil die x-Skala nicht ausreichend breit ist), ein etwas aufwendigerer Ansatz würde werden die Grenzen der Daten zu erhalten, setzen Sie die Skalengrenzen, dann setzen Sie den Plot auf den ursprünglichen Bereich begrenzt zurück:

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) 

Ausgang: