ryamada22 https://blog.hatena.ne.jp/ryamada22/ ryamadaの遺伝学・遺伝統計学メモ https://ryamada22.hatenablog.jp/ ２次元ヒストグラム R 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 = c(10,10)) filled.contour(h2d$x, h2d$y, h2d$counts, nlevels =… 190 <iframe src="https://hatenablog-parts.com/embed?url=https%3A%2F%2Fryamada22.hatenablog.jp%2Fentry%2F20100225%2F1266960153" title="2dhist() - ryamadaの遺伝学・遺伝統計学メモ" class="embed-card embed-blogcard" scrolling="no" frameborder="0" style="display: block; width: 100%; height: 190px; max-width: 500px; margin: 10px 0px;"></iframe> Hatena Blog https://hatena.blog 2010-02-25 06:22:33 rich https://ryamada22.hatenablog.jp/entry/20100225/1266960153 1.0 100%