r - ggplot2：stat_density2d 轮廓/箱中点的标识

Question

我正在尝试确定 stat_density2d() 给出的前两个（即最里面的）轮廓中的数据点的身份。如何检索数据点 ID？例如：

set.seed(1235)
dat <- as.data.frame(rbind(matrix(rnorm(200,0),nrow=100),matrix(rnorm(200,3),nrow=100)))
colnames(dat) <- c('X1','X2')
rownames(dat) <- paste0('id.',1:nrow(dat))

ggplot(data=dat,aes(X1,X2))   + 
  stat_density2d(data=dat,aes(fill=..level..,alpha=..level..),bins=4,geom='polygon',colour='black') + 
  scale_fill_continuous(low="sienna1",high="sienna4")+ geom_point()

谢谢！