R提取坐标由ggplot2 :: stat_density_2d绘制

Question

我正在寻找由此产生的等高线的坐标ggplot2::geom_density_2d.

我是在x/y坐标的(矩阵)列表之后.每个轮廓线一个.

这应该与contourLines给出的相似,但我无法得到理想的结果.

这是一些示例代码 ?stat_density2d

 m <- ggplot(faithful, aes(x = eruptions, y = waiting)) +
  geom_point() +
  xlim(0.5, 6) +
  ylim(40, 110)
 m + geom_density_2d()

Answer 1

你可以使用ggplot_build:

ggplot_build(m + stat_density2d())$data[[2]]

  level        x        y piece  group PANEL  colour size linetype alpha
1 0.002 1.633788 40.00000     1 -1-001     1 #3366FF  0.5        1    NA
2 0.002 1.611111 40.11723     1 -1-001     1 #3366FF  0.5        1    NA
3 0.002 1.555556 40.47552     1 -1-001     1 #3366FF  0.5        1    NA
4 0.002 1.526300 40.70707     1 -1-001     1 #3366FF  0.5        1    NA
5 0.002 1.500000 40.91549     1 -1-001     1 #3366FF  0.5        1    NA
6 0.002 1.448020 41.41414     1 -1-001     1 #3366FF  0.5        1    NA
...