R - 叠加点图层到 3D 密度图

问：

我有一个从 x;y 坐标生成的 3D 密度图，代码如下：

library(MASS)
den3d <- kde2d(data_loc$X, data_loc$Y)
persp(den3d, box=FALSE)

library(plotly)
gg<-plot_ly(x=den3d$x, y=den3d$y, z=den3d$z, type="surface") %>% 
  layout(
    scene=list(
      xaxis=list(title='X Axis (m)'),
      yaxis=list(title='Y Axis (m)'),
      zaxis=list(title='Probability density')
      ))

我想添加一个点图层，如下例所示：

我试图用功能加点，但没有成功。我也尝试了这个功能，但没有成功ggplot2::geom-point ()add_markers()