क्या उपयोग करने वाले बहुभुजों के बीच छोटे "slivers" को खत्म करने का एक तरीका है R
? वांछित समाधान एक नया निर्माण करेगा SpatialPolygonsDataFrame
जहां बहुभुज के बीच साझा सीमाएं संयोग हैं। मैं विशेष रूप से ऐसे समाधान में दिलचस्पी लेता हूं जो R
आर्कपेज़ या क्यूजीआईएस के बजाय उपयोग करता है ।
मुझे एक स्पष्टीकरण सुनने में भी दिलचस्पी होगी कि ये अंतराल पहले स्थान पर क्यों हैं।
यहाँ मैं जिस स्थानिक डेटा के साथ काम कर रहा हूँ उसका एक प्रतिलिपि प्रस्तुत करने योग्य उदाहरण है:
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
प्रोग्राम (या कार्यों के संयोजन) को इन अंतरालों को खत्म करने के लिए बहुभुज को व्यवस्थित रूप से समायोजित करने की सिफारिश कर सकता है ?