Colourscale：転移開始位置を変更

Question

latticeパッケージのlevelplot機能を使用してヒートマップをプロットします。私はそのようにスケールを調整したい

d <- 20 
df <- expand.grid(x = 1:d, y = 1:d) 
df$z <- runif(d*d, -1, 1) 

levelplot(z ~ x * y, data = df, 
      col.regions = cols) 

：

cols <- colorRampPalette(c("blue", "white", "red"))(256) 

小さな例：-1から1まで私のマトリックス範囲内の値とIは、以下の基準を使用しましたスケールのより大きな部分は白です。私は手動で遷移を開始する場所を定義しなければならないとしますが、0に近いときは遅い（つまり白）、1や-1に近づくときは速くなります。

これを行う方法に関するアドバイスをいただければ幸いです。

Answer 1

補間をsplineに切り替えて、よりスムーズな移行を行うことができます。

cols <- colorRampPalette(c("blue", "white", "red"), interpolate = "spline")(256) 

また、私はあなたがどのようにあなたがかもしれlattice`、ここでの `の使用に限定していないRColorBrewer

cols2 <- colorRampPalette(RColorBrewer::brewer.pal(11, "RdBu"))(256) 
levelplot(z ~ x * y, data = df, col.regions = rev(cols2))