0.1 전체 기준

# vector 그리드를 SpatialPoints로 변환
grid_points <- SpatialPoints(data_grid %>% dplyr::select(x, y))
grid_points$color <- colorRampPalette(c("blue", "red"))(length(data_grid$Avg_cat))
grid_points$Index <- data_grid$Avg


e <- extent(grid_points)
r <- raster(e, ncol = 3000, nrow = 3000, crs = '+proj=longlat +datum=WGS84')
# raster 이미지 생성
raster_image <- rasterize(grid_points, r, field = ifelse(data_grid$Avg_cat >= 5, 5, data_grid$Avg_cat), fun = mean)

pal <- colorRampPalette(c("green", 'lightgreen', 'yellow', 'orange',"red"))(length(values(raster_image)))

korea_map <- leaflet() %>%
  addTiles() %>%
  setView(lng = 127.7379, lat = 36.38926, zoom = 8) %>%
  addRasterImage(raster_image, colors = colorRampPalette(c("green",
                                                           'lightgreen',
                                                           'yellow', 
                                                           'orange',
                                                           "red"))(length(values(raster_image))),
                 opacity = 0.5) %>% 
  addCircleMarkers(data = hbank, lng = ~x, lat = ~y, col = 'green', 
                   opacity = 1,
                   fillOpacity = 1,radius = 1,
                   label = ~점포명) %>% 
  addCircleMarkers(data = bank_otw, 
                   lng = ~x, lat = ~y, col = ~color, opacity = 0.7, fillOpacity = 0.7,radius = 0.5,
                   label = ~gcrm_bnk_nm)


korea_map

0.2 수도권 경기 - view 중심

seoul_map <- leaflet() %>%
  addTiles() %>%
  setView(lng = 127.015, lat = 37.51959, zoom = 12) %>%
  addRasterImage(raster_image, colors = colorRampPalette(c("green",
                                                           'lightgreen',
  'yellow', 
  'orange',"red"))(length(values(raster_image))),
                 opacity = 0.5) %>% 
  addCircleMarkers(data = hbank, lng = ~x, lat = ~y, col = 'green', 
                   opacity = 1,
                   fillOpacity = 1,radius = 1,
                   label = ~점포명) %>% 
  addCircleMarkers(data = bank_otw, 
                   lng = ~x, lat = ~y, col = ~color, opacity = 0.7, fillOpacity = 0.7,radius = 0.5,
                   label = ~gcrm_bnk_nm)


seoul_map