r - ggplot - 在不同颜色范围内映射低于和高于阈值的值

Question

在下面的示例中，我想在蓝色配色方案(从最接近 100 的浅蓝色到最大值的深蓝色)中为高于 100 的值着色，在暖色范围(从黄色开始)中为低于 100 的值着色最接近 100 的最小值为红色)。请参阅下面的颜色范围示例。有人可以帮助我吗？我尝试了几种不同的方法(包括下面的方法)但没有成功。非常感谢!

 #library
    library(raster)
    library(ggplot2)
    library(maptools)
    data("wrld_simpl")

    #sample raster
    r <- raster(ncol=36, nrow=18)
    r[] <- (-ncell(r)/2+1):(ncell(r)/2)
    plot(r)

    var_df <- as.data.frame(rasterToPoints(r))

    #plotting
    p <- ggplot() 
    p <- p + geom_raster(data = var_df , aes(x = x, y = y, fill = layer))
    p <- p + coord_equal() 
    p <- p + scale_fill_gradient2(low = muted("red"), mid = "white",
                                  high = muted("blue"), midpoint = 100)
    p

Answer 1

嗯...那么，您真的希望它在 layer=100 处准确拆分吗？

如果是，

#plotting
p <- ggplot() 
p <- p + geom_raster(data = var_df , aes(x = x, y = y, fill = layer))
p <- p + coord_equal()
p <- p + scale_fill_gradientn(
  colours=c("red", "yellow", "skyblue", "darkblue"),
  values = rescale(c(min(var_df$layer),
                     100,
                     100.01,
                     max(var_df$layer))))