Ответ 1
Используя некоторые смоделированные данные, вы должны получить то, что хотите. Ключ в том, что вам нужно создать свои двумерные бункеры, выполненные с помощью функции cut()
. Затем, обрабатывая коэффициенты биндера как уровни, мы можем подсчитать комбинации каждого уровня фактора с помощью функции table()
, как показано ниже:
library(plot3D)
## Simulate data:
set.seed(2002)
x <- rnorm(1000)
y <- rnorm(1000)
## Create cuts:
x_c <- cut(x, 20)
y_c <- cut(y, 20)
## Calculate joint counts at cut levels:
z <- table(x_c, y_c)
## Plot as a 3D histogram:
hist3D(z=z, border="black")
## Plot as a 2D heatmap:
image2D(z=z, border="black")