bitSpatial 패키지를 이용한
한국R사용자회 / 디플래닉스
May 23, 2024
bitSpatial 배경
bitSpatial 소개
bitSpatial 특징
bitSpatial 사용하기
thematic_map(
zoom = c("mega", "cty", "admi"),
subset = NULL,
stat = NULL,
polygon = TRUE,
point = FALSE,
label = NULL,
col_cnt = 9,
palette = "YlOrRd",
line_col = "darkgray",
fill = "lightblue",
point_col = "blue",
title = NULL,
subtitle = NULL,
legend_pos = c("none", "right", "left", "bottom", "top"),
base_family = "NanumSquare"
)
pos_edu <- store_info_seoul |>
filter(industry_s_nm %in% "입시·교과학원") |>
st_as_sf(coords = c("lon", "lat"), crs = 4326)
ggplot() +
stat_density_2d(data = pos_edu,
mapping = aes(x = purrr::map_dbl(geometry, ~.[1]),
y = purrr::map_dbl(geometry, ~.[2]),
fill = stat(density)),
geom = 'tile', contour = FALSE, alpha = 0.7) +
scale_fill_viridis_c(option = "viridis", direction = -1) +
geom_sf(data = cty |> filter(mega_nm %in% "서울특별시"),
color = "grey30", fill = NA, linewidth = 0.8) +
geom_sf(data = pos_edu, color = "blue", size = 0.1) +
xlim(126.75, 127.22) + ylim(37.42, 37.71) +
labs(title = "서울특별시 입시·교과학원 분포 현황",
subtitle = "출처: 공공데이터포털의 소상공인시장진흥공단_상가(상권)정보") +
theme_custom_map()
lon lat mega_cd mega_nm cty_cd cty_nm
1 126.9691 37.56825 11 서울특별시 11110 종로구
2 127.4926 36.23795 44 충청남도 44710 금산군
lon lat mega_cd mega_nm cty_cd cty_nm admi_cd admi_nm
1 126.9691 37.56825 11 서울특별시 11110 종로구 1111053000 사직동
2 127.4926 36.23795 44 충청남도 44710 금산군 4471039000 추부면