ggplot2のヒートマップからアウトライヤーを除外する方法は？

Question

こんにちは、 私はマップ上の平方あたりの平均変換をプロットしようとしています。それは素晴らしい作品です。問題があるのは、0または1に近い極端な値に達するレコードがほんのわずかである四角形です。これは、プロットを読みにくくします。特定のレコード数に達しない四角形を除外する方法はありますか？または、例えば0.3〜0.7インチの範囲の色を設定します。

CODE：

library(ggplot2) 
library(ggmap) 
manila_map <- get_map("Manila,Philippines", zoom=11) 

map <- ggmap(manila_map) 
map + stat_summary_2d(
    geom = "tile", 
    data = data, 
    fun = "mean", 
    binwidth = 0.02, 
    aes(x = lon, y = lat, z = requested), 
    alpha = 0.4 
) + 
scale_fill_gradient2(low = "red", mid = "yellow", high = "#007f00", midpoint=0.5) 

Answer 1

まず、NA

data$requested <- ifelse(data$requested <= 0.7 & data$requested >= 0.3, 
         data$requested, NA) 

にあなたのデータセット内の外れ値の値を変更し、内na.valueを追加の値をニュートラルカラーにする

scale_fill_gradient2(low = "red", mid = "yellow", high = "#007f00", midpoint=0.5, 
        na.value = "grey50")