행정안전부 가축분뇨수집운반업, 배출시설관리업 정보

가축의 배설물을 수집하여 운반하는 업소정보와 가축분뇨배출시설 및 처리시설의 관리를 대행하는 업소정보, 주소, 번호, 경도, 위도 등을 제공

사용법

aniPollution

양식

A data frame with 10 variables.

사업장명: 해당 가축분뇨 처리업 사업장명
전화번호: 해당 가축분뇨 처리업 전화번호
소재지우편번호: 해당 가축분뇨 처리업 소재지우편번호
소재지전체주소: 해당 가축분뇨 처리업 소재지전체주소
도로명전체주소: 해당 가축분뇨 처리업 도로명전체주소
도로명우편번호: 해당 가축분뇨 처리업 도로명우편번호
경도: 해당 가축분뇨 처리업 경도
위도: 해당 가축분뇨 처리업 위도
업종구분명: 해당 가축분뇨 처리업 업종구분명 : 지정외 폐기물 수집운반업, 분뇨 및 축산분뇨 처리업, 축산관련 서비스업, 축산분뇨 처리업 등
구분: 해당 가축분뇨 처리업 구분 : 가축분뇨 수집운반업, 가축분뇨배출시설관리업(사업장)

소스코드

https://www.localdata.go.kr/devcenter/dataDown.do?menuNo=20001

예시 코드

col_fac = colorFactor('Set1', aniPollution$구분)

library(leaflet)
leaflet(aniPollution) %>% 
  addTiles() %>% 
  setView(lng=127.9784, lat=36.866, zoom=7) %>%  
  addProviderTiles('CartoDB.Positron') %>% 
  addCircles(lng=~`경도`, lat=  ~`위도`,
             label =~`사업장명`,
             popup =~paste(`사업장명`,"<BR>", "주소 : ",`도로명전체주소`, sep="","<BR>","전화번호 : ",`전화번호`),
             color = ~col_fac(구분)) %>% 
  addLegend(position = 'bottomright', 
            title = '구분', 
            pal = col_fac, values = ~구분, opacity = 0.5)