2次元ヒストグラム

2dhist()

n1 <- 500 n2 <- 300 n3 <- 200 x <- c(rnorm(n1, 0, 0.5), rnorm(n2, 5, 1), rnorm(n3, 8, 2)) y <- c(rnorm(n1, 0, 2), rnorm(n2, 3, 2), rnorm(n3, -3, 1)) library(gregmisc) plot(x, y) h2d <- hist2d(x, y, show = FALSE, same.scale = TRUE, nbins = …