공영 노상, 노외 주차장 운영 정보를 안내하고 있으며, 주차장 여건에 따라 실제 정보와 다를 수 있습니다.
양식
A data frame with 19 variables:
- 주차장코드
해당 주차장 주차장코드
- 주차장명
해당 주차장 주차장명
- 주소
해당 주차장 주소
- 주차장종류
해당 주차장 주차장종류 : 노외주차장/ 노상주차장
- 운영구분
해당 주차장 운영구분 : 시간제 주차장/시간제 + 거주자 주차장/버스전용 주차장/이륜차 전용 주차장/거주자 우선 주차장/시간제 + 버스전용 주차장
- 전화번호
해당 주차장 전화번호
- 주차현황제공여부
해당 주차장 주차현황제공여부
- 총 주차 가능 대수
해당 주차장 총 주차 가능 대수
- 유무료구분
해당 주차장 유무료구분 : 유료/무료
- 토요일 유무료 구분
해당 주차장 토요일 유무료 구분
- 공휴일 유무료 구분
해당 주차장 공휴일 유무료 구분
- 월 정기권 금액
해당 주차장 월 정기권 금액
- 기본 주차 요금
해당 주차장 기본 주차 요금
- 기본 주차 단위(분)
해당 주차장 기본 주차 단위(분)
- 추가 주차 요금
해당 주차장 추가 주차 요금
- 추가 주차 단위(분)
해당 주차장 추가 주차 단위(분)
- 일 최대 요금
해당 주차장 일 최대 요금
- 위도
해당 주차장 위도
- 경도
해당 주차장 경도
예시 코드
col_fac = colorFactor('Set1', seoulCarpark$운영구분)
library(leaflet)
leaflet(seoulCarpark) %>%
addTiles() %>%
setView(lng=126.9784, lat=37.566, zoom=11) %>%
addProviderTiles('CartoDB.Positron') %>%
addCircles(lng=~`경도`, lat= ~`위도`,
label =~`주차장명`,
popup =~paste(`주차장명`,"<BR>", "주소 : ",`주소`, sep="","<BR>","운영구분 : ",`운영구분`,"<BR>", "유무료구분 : ",`유무료구분`),
color = ~col_fac(운영구분)) %>%
addLegend(position = 'bottomright',
title = '구분',
pal = col_fac, values = ~운영구분, opacity = 0.5)
#> Warning: Data contains 353 rows with either missing or invalid lat/lon values and will be ignored