shapefile에서 geometry컬럼의 폴리곤 값만 추출해서, data frame으로 변환해서, ggplot2로 동지도를 그리기 까지진행하였습니다.

dongs_shp <- st_read('TL_SCCO_EMD.shp')

dongs_spatial <- sf::as_Spatial(dongs_shp )
dongs_df <- fortify(dongs_spatial )

dongs_df %>%
  ggplot(aes(x = long, y = lat, group = group, fill(group))) +
    geom_path(color = 'blue', size = .2) +
    coord_fixed(1.3)

궁금한 점은, shapefile에 있는 법정동코드 및 동이름을, dongs_df의 data frame에도 남겨두고 싶은대,

위와 같이 변환하면, 법정동코드및 동이름이 data frame이 저장되지 않습니다.

dongs_spatial$EMD_CD <--법정동 코드
dongs_spatial$EMD_ENG_NM <-- 법정동 영문명
dongs_spatial$EMD_KOR_NM <-- 법정동 한글명