Мой набор данных выглядит так: набор данных
Я принял код здесь:
2d график плотности ядра
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
пока мой результат не верный. Пик не в правильном месте. график с пиком в неправильном месте
Это еще одна моя версия контурного видения гистограммы, в которой я использовал тот же набор данных. Результат более убедителен. График с пиком в нужном месте
p <- plot_ly(test, x = ~`Avg Protein`, y = ~`Avg Oil Content`) %>%
add_histogram2dcontour()
Интересно, как я могу исправить свой код плотности ядра с помощью 3D-версии, которая имеет согласованный результат с видением контура гистограммы. Благодарю.