smoothScatterを使用して作成した色濃度散布図のR凡例

Question

smoothScatter()関数を使用してRで色濃度散布図を作成しています。

例：

## A largish data set 
n <- 10000 
x1 <- matrix(rnorm(n), ncol = 2) 
x2 <- matrix(rnorm(n, mean = 3, sd = 1.5), ncol = 2) 
x <- rbind(x1, x2) 
oldpar <- par(mfrow = c(2, 2)) 
smoothScatter(x, nrpoints = 0) 

出力：

私が午前問題は、私は、数値的に相対的な差を説明する伝説/カラースケールを追加する方法がわからないだということです異なる色合いの間。たとえば、上の図の最も濃い青が、何らかの種類の凡例や色の尺度なしで、最も薄い青の密度の2倍、10倍、または100倍の密度であるかどうかを判断する方法はありません。 Rには、このようなスケールを作るために必要な情報を取得する方法や、この性質のカラースケールを自動的に生成できる何かが組み込まれていますか？ここで

Answer 1

あなたが望む結果を得るためにimage.plotと周りいじると見ることができfields::imageplotに依存している答えであり、いくつかは

fudgeit <- function(){ 
    xm <- get('xm', envir = parent.frame(1)) 
    ym <- get('ym', envir = parent.frame(1)) 
    z <- get('dens', envir = parent.frame(1)) 
    colramp <- get('colramp', parent.frame(1)) 
    fields::image.plot(xm,ym,z, col = colramp(256), legend.only = T, add =F) 
} 

par(mar = c(5,4,4,5) + .1) 
smoothScatter(x, nrpoints = 0, postPlotHook = fudgeit) 

余白が正しい取得するpar(mar)をいじります?bkde2Dとtransformation引数をsmoothScatterに設定すると、色が何を表しているかがわかります。