在R Plotly中使用3d版本的2D核密度图

Question

我的数据集如下所示：dataset 我在这里采用了代码： 2d kernel density plot

kd <- with(test, MASS::kde2d(x=`Avg Protein`,y=`Avg Oil Content`,n=100))
p <- plot_ly(x = kd$x, y = kd$y, z = kd$z) %>% add_surface()
p

虽然，我的结果不正确。峰值不在正确的位置。plot with peak at the wrong location

这是我使用相同数据集的另一个直方图轮廓视觉版本。结果更有说服力。plot with peak at the right location

p <- plot_ly(test, x = ~`Avg Protein`, y = ~`Avg Oil Content`) %>%
  add_histogram2dcontour()

我想知道如何使用与直方图轮廓视觉具有一致结果的3D版本来修正我的内核密度代码。谢谢。