서울교통공사 지하철혼잡도정보

서울교통공사 1-8호선 30분 단위 평균 혼잡도로 30분간 지나는 열차들의 평균 혼잡도(정원대비 승차인원으로, 승차인과 좌석수가 일치할 경우를 혼잡도 34

사용법

busyMetro

양식

A data frame with 7 variables.

요일구분

평일, 토요일, 공휴일 등 요일 구분

호선

지하철 호선 번호

역번호

외부역 코드

출발역

출발역 이름

상하구분

운행 방향

시간

기준 시간으로 30분 단위로 집계

혼잡도

30분 단위 평균 혼잡도로 30분간 지나는 열차들의 평균 혼잡도

소스코드

https://www.data.go.kr/data/15071311/fileData.do

예시 코드

DT::datatable(head(busyMetro))


busyMetro %>% 
   filter(요일구분 == "평일") %>% 
   filter(호선 == 2) %>% 
   mutate(출발역 = paste(호선, "호선", 출발역)) %>% 
   ggplot(aes(시간, 혼잡도, color = 상하구분)) +
   geom_line(aes(group = 상하구분)) +
   scale_color_manual(values = c("#E966A0", "#213363", "#8EAC50", "#F2BE22")) +
   facet_wrap(. ~출발역, ncol = 10, strip.position = "bottom") +
   ggthemes::theme_tufte(base_family = "NanumGothic") +
   theme(
       axis.text = element_blank(),
       axis.ticks = element_blank(),
       axis.title = element_blank(),
       legend.position = "bottom"
       ) +
   labs(title = "서울교통공사 2호선 시간대별 지하철 혼잡도 분포", subtitle = "평일 05:30 ~ 00:30")