使用 ggplot stat_density_2d 在 levelplot 中破坏多边形

Question

使用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 的答案为基础（至少在我的机器上，因为 x 比例不够宽，所以删除了一个数据点），一种稍微复杂的方法是获取数据的限制，设置比例限制，然后将绘图限制重置回原始范围：

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)

输出：