눈을 보호하거나 시력의 교정을 요하는 대상에게 시력의 교정 및 안경을 판매 또는 수리하는 업소정보, 주소, 번호, 경도, 위도 등을 제공
양식
A data frame with 10 variables:
- 사업장명
해당 안경업 사업장명
- 영업상태명
해당 안경업 영업상태명 : 취소/말소/만료/정지/중지, 영업/정상,폐업,휴업
- 폐업일자
해당 안경업 폐업일자
- 전화번호
해당 안경업 전화번호
- 소재지우편번호
해당 안경업 소재지우편번호
- 소재지전체주소
해당 안경업 소재지전체주소
- 도로명전체주소
해당 안경업 도로명전체주소
- 도로명우편번호
해당 안경업 도로명우편번호
- 경도
해당 안경업 경도
- 위도
해당 안경업 위도
예시 코드
library(leaflet)
leaflet(optician) %>%
addTiles() %>%
setView(lng=126.9784, lat=37.566, zoom=8) %>%
addProviderTiles('CartoDB.Positron') %>%
addCircles(lng=~`경도`, lat=~`위도`,
label =~`사업장명`,
popup =~paste(`사업장명`,"<BR>", "주소 : ",`도로명전체주소`, sep="","<BR>","전화번호 : ",`전화번호`))
