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")