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

Question

在下面的示例中，我想在蓝色配色方案中为 100 以上的值着色（从最接近 100 的浅蓝色到最大值的深蓝色）和暖色范围内的 100 以下的值（从最接近 100 的黄色到最小的红色）。请参阅下面的颜色范围示例。有人可以帮助我吗？我尝试了几种不同的方法（包括下面的方法），但 unsuccessfully.Thanks 很多！

 #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

一个选项可能是个人ifelse设置颜色的函数

colour_func <- function(x){
       ifelse(x$x > 150, 'darkblue',
  ifelse(x$x > 130, 'cyan4',
  ifelse(x$x > 110, 'cadetblue3',
     ifelse(x$x > 100, 'cadetblue', 
                              ifelse(x$x > 90, 'red',
                                     ifelse(x$x > 60, 'darkorange3', 
                                            ifelse(x$x > 40, 'darkorange', 
                                                   ifelse(x$x > 20, 'goldenrod2', "gold"))))))))
}

> #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 = colour_func(var_df))
> p

Answer 2

嗯...那么，您真的希望它在 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))))

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

ggplot - mapping values below and above a threshold in different colour ranges

r

ggplot2

raster

r-raster

legend-properties