根据空间均值和偏差在地图上缩放条形标签和拉伸

Question

我希望以某种方式映射数据以获得更好的数据可视化：我希望缩放条标签和应用于颜色的拉伸基于空间平均值加上或减去两个标准偏差。我在一篇论文中看到了这一点，但我不确定如何做到最好。我已尝试过以下脚本，但收到错误消息：

  

continuous_scale（“填充”，“渐变”，seq_gradient_pal（低，   高，：         未使用的参数（mid =“white”，midpoint = 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功能。