空間の平均と偏差に基づいたスケールバーのラベルとストレッチ

Question

より良いデータの視覚化のためにデータを一定の方法でマッピングしたいと思います：スケール平均値と空間平均値に基づいて色に適用されるストレッチが望ましいまたはマイナス2標準偏差。私はそれを紙で見ましたが、それを行うにはどうすればよいか分かりません。私は下のスクリプトを試してみましたが、エラーメッセージが出てきた：continuous_scaleで

エラー（「塗りつぶし」、「グラデーション」、seq_gradient_pal（低、高 、： 未使用の引数（半ば=「白」、中間点= 500）

require(ggplot2) 
require(maptools) 
data(wrld_simpl) 

mean_val <- mean(Df$layer , na.rm=T) 
sd_val<- sd(Df$layer , na.rm=T) 
Df <- Df[Df$layer < mean_val+2*sd_val,] 
Df <- Df[Df$layer > mean_val -2*sd_val,] 

p <- ggplot() + 
    geom_polygon(data = wrld_simpl, 
       aes(x = long, y = lat, group = group), 
       colour = "black", fill = "grey") 
p <- p + geom_raster(data = Df , aes(x = x, y = y, fill = layer)) 
p <- p + coord_equal() + theme_bw() +labs(x="", y="") 
p <- p + scale_fill_gradient(low = "blue", mid="white", high = "green", midpoint=mean_val) 
p 

Dfがここにhttps://cloudstor.aarnet.edu.au/plus/index.php/s/ywvcxkUaEpkEd9Nです（EDUリンク）。おかげであなたの助けのためにたくさん！

Answer 1

利用scale_fill_gradient2の代わりscale_fill_gradient機能。