ggplot中+ geom_density_2d（）的基础数据

Question

我对R语言很新，所以如果有什么不对的地方请纠正我！我需要学习！

我最近使用ggplot2包在RStudio中创建了一个图表。

现在我有两个问题。

首先，我对轮廓线背后的数据点非常感兴趣。大概是为了让程序绘制这些行，必须有一系列基础数据点，允许程序这样做。

我正在研究是否有可能提取这些数据点？

其次，如果有人能够启发我对ggplot2中+ geom_density_2d（）函数背后的基础数学原理那么那就太棒了！

我用来创建图表的代码如下......

ggplot(read.Alteryx("Office", mode="data.frame"),aes(x=Chances,y=Defensive,colour=Team)) + 
  facet_wrap( ~ Team, ncol=2) + 
  geom_density_2d() + 
  scale_colour_manual(values = c("Leicester City" = "#1b378b", "Tottenham Hotspur" = "#011657", 
                                 "Arsenal" = "#d02320", "Manchester City" = "#8ac7ff")) + 
  theme_bw()  + 
  theme(panel.background=element_rect(fill="White"))  + 
  theme(plot.background=element_rect(fill="White"))  + 
  theme(panel.border=element_rect(colour="White"))  + 
  theme(panel.grid.major=element_line(colour="gray48",size=0.2))  + 
  scale_x_continuous(minor_breaks=0, breaks=seq(14,26,12),limits=c(14,26))  + 
  scale_y_continuous(minor_breaks=0, breaks=seq(50,100,50),limits=c(50,100))  + 
  theme(axis.text.x=element_text(size=7,colour="#535353",face="bold"))  + 
  theme(axis.text.y=element_text(size=7,colour="#535353",face="bold"))  + 
  theme(axis.ticks=element_blank())  + 
  theme(legend.position="none")  + 
  ggtitle("Pass completion % (Y) v Pass length M (X) for each game – EPL Top 4")  + 
  theme(plot.title=element_text(face="bold",colour="#3C3C3C",size=10))  + 
  ylab("")  + 
  xlab("") + 
  theme(axis.title.x=element_text(size=11,colour="#535353",face="bold",vjust=-.5))  + 
  geom_hline(yintercept=50,size=0.2,colour="gray48") + 
  geom_vline(xintercept=14,size=0.2,colour="gray48")  + 
  theme(strip.text.x = element_text(size=0, face="bold"),
        strip.background = element_rect(colour="White", fill="White"))  + 
  geom_point(size = 3)  + 
  theme(panel.margin = unit(3, "lines"))  + 
  geom_rug(sides="trbl", size = 0.5)