问题描述
我正在创建一个区域分布图并尝试为大都市统计区域绘制边界线。我设法完成了大部分工作,但我只想留下外边界线并摆脱该区域内较小区域的线条。下面是可重现的代码行。预先感谢所有的帮助和时间!
library(tigris)
library(sf)
library(tidyverse)
options(tigris_class = "sf")
options(tigris_use_cache = TRUE)
## Getting the Metro & Micro areas
ks <- tracts("KS",cb = T)
cb <- core_based_statistical_areas(cb = T)
str(cb)
# Filter for Kansas metro
kmsa <- cb %>%
filter(grepl("KS",NAME)) %>%
filter(LSAD == "M1")
ggplot(kmsa) + geom_sf()
# Leave only within KS
w1 <- st_within(ks,kmsa)
w2 <- map_lgl(w1,function(x) {
if (length(x) == 1) {
return(TRUE)
} else {
return(FALSE)
}
})
# Subset
kmsa2 <- ks[w2,]
# Plot
ggplot() +
geom_sf(data = ks,fill = "grey50",lwd = 0) +
geom_sf(data = kmsa2,fill = NA,color = "white") +
theme_minimal() +
theme(axis.text.x = element_blank(),axis.text.y = element_blank(),axis.ticks.x = element_blank(),axis.ticks.y = element_blank(),panel.grid.major = element_blank())
解决方法
暂无找到可以解决该程序问题的有效方法,小编努力寻找整理中!
如果你已经找到好的解决方法,欢迎将解决方案带上本链接一起发送给小编。
小编邮箱:dio#foxmail.com (将#修改为@)