R을 사용하여 다각형 사이의 은색 틈 제거


10

?를 사용하여 다각형 사이의 작은 "은색"을 제거하는 방법이 R있습니까? 원하는 솔루션은 SpatialPolygonsDataFrame다각형 간의 공유 경계가 일치 하는 새로운 곳을 만듭니다 . RArcMap 또는 QGIS 대신 을 사용하는 솔루션에 특히 관심이 있습니다.

또한 왜 이러한 차이가 처음에 존재하는지에 대한 설명을 듣고 싶습니다.

다음은 작업중인 공간 데이터의 재현 가능한 예입니다.

library(rgdal)      
library(sp)
library(tigris)
library(magrittr)
library(leaflet)
library(gplots)

# This project will use WGS 84 projected coordinate system
crs_proj <- CRS("+init=epsg:4326") 

# These are the FIPS codes of the specific block groups in my study area
sel <- c("530330079005", "530330079001", "530330079004", 
         "530330085002", "530330085003", "530330086003", 
         "530330087003", "530330085001", "530330090001", 
         "530330091001", "530330091002", "530330092001", 
         "530330092002", "530330086001", "530330090002", 
         "530330086002", "530330079003", "530330079002", 
         "530330087002", "530330087001")

# Create polygons
polygons <- tigris::block_groups(state = "WA",county = "King") %>% 
        .[.@data$GEOID %in% sel,] %>% 
        spTransform(CRSobj = crs_proj)

# Map the result
leaflet() %>% 
        addProviderTiles("CartoDB.Positron") %>% 
        addPolygons(data = polygons,
                    stroke = F,
                    fillColor = col2hex("red"), fillOpacity = 1)

다각형 사이의 성가신 은색

위의 스크린 샷에서 볼 수 있듯이 센서스 블록 그룹 다각형 사이에는 작은 간격이 있습니다. 이러한 간격의 위치는 확대 / 축소 수준에 따라 다르게 렌더링되지만 항상 약간의 간격이 보입니다.

R이 차이를 없애기 위해 다각형을 프로그래밍 방식으로 조정 하는 함수 (또는 함수 조합)를 추천 할 수 있습니까 ?

답변:


5

설정에서 솔루션 거짓말 것으로 보인다 smoothFactor에서 인수 AddPolygons0이 관련 게시물에 제안이, 리플릿 geojson 다각형 사이 잎 격차를 스타일링

또한 예제 맵에서 은색 틈을 완전히 제거하기 위해 다각형에 작은 선을 추가해야한다는 것을 알았습니다.

leaflet() %>% 
    addProviderTiles("CartoDB.Positron") %>% 
    addPolygons(data = polygons, smoothFactor = 0,
                weight = .75, color = col2hex("red"), opacity = 1,
                fillColor = col2hex("red"), fillOpacity = 1)

여기에 이미지 설명을 입력하십시오

흥미롭게도, 다각형의 불투명도를 줄 였을 때 더 이상 스트로크를 추가 할 필요가 없었습니다.

leaflet() %>% 
        addProviderTiles("CartoDB.Positron") %>% 
        addPolygons(data = polygons, smoothFactor = 0,
                    stroke = FALSE,
                    fillColor = col2hex("red"), fillOpacity = .5)

불투명도 50 %

당사 사이트를 사용함과 동시에 당사의 쿠키 정책개인정보 보호정책을 읽고 이해하였음을 인정하는 것으로 간주합니다.
Licensed under cc by-sa 3.0 with attribution required.