경기도 버스 : 경기도교통정보센터

경기도 버스 201207~101212  평일 

TransitBusPass_wd12071212.csv

TransitBusPass_주말(11.09-11.12).xls

TransitBusPass_주말(12.01-12.06).xls

TransitBusPass_주말(12.07-12.12).xls

TransitBusPass_평일(11.09-11.12).xls

TransitBusPass_평일(12.01-12.06).xls

ggtr <- read.csv('TransitBusPass_wd12071212.csv')

head(ggtr$지역,3)

length(ggtr$지역)

darea1 <- sqldf('select distinct 지역 from ggtr  ')'

darea2 <- sqldf('select * from ggtr where 지역="경기도 성남시" and 시간 in ("02:00", "03:00","04:00","05:00" )')

darea2 <- sqldf('select * from ggtr where 지역="경기도 성남시" and 시간 in ("02:00", "03:00","04:00","05:00" )')

darea3 <- sqldf('select 월, 시간, sum(단일통행승차) as 단일통행승차합계 from ggtr where 지역="경기도 성남시" and 시간 <> "일합계" and 시간 <> "12시간" group by 월, 시간')

darea4 <- sqldf('select 지역, 월, sum(전체통행전체) as 전체통행전체합계 from ggtr where (지역="경기도 성남시" or 지역="경기도 수원시") 

and (시간 <> "일합계" and 시간 <> "12시간")

group by 지역, 월')

plot(darea4$전체통행전체합계[1:6], type="b", col=2) 

plot(darea4$전체통행전체합계[7:12], type="b", col=3) 

plot(darea4$전체통행전체합계[1:6], type="b", col=2) 

lines(darea4$전체통행전체합계[7:12],type="b", col=3)

yrange <- c(800000, 1200000)

plot(darea4$전체통행전체합계[1:6], ylim=yrange ,type="b", col=2) 

lines(darea4$전체통행전체합계[7:12],type="b", col=3)

#===================

# SQL을 사용하지 않을 경우

darea4 <- sqldf('select 지역, 월, sum(전체통행전체) as 전체통행전체합계 from ggtr where (지역="경기도 성남시" or 지역="경기도 수원시") 

and (시간 <> "일합계" and 시간 <> "12시간")

group by 지역, 월')

# :::

darea400 <- ggtr[which(ggtr$지역=="경기도 성남시" | ggtr$지역=="경기도 수원시") ,]

darea400 <- darea400[which(darea400$시간 != "일합계" & darea400$시간 !="12시간") ,]

head(darea400)

darea401 <- aggregate(darea400$전체통행전체, by=list(darea400$지역, darea400$월), FUN=sum)

head(darea401)

names(darea401) <- c('지역','월','전체통합전체합계')

darea401 <- darea401[order(darea401$지역,darea401$월),]

darea402 <- data.frame(as.character(darea401$월[1:6]) , darea401[which(darea401$지역=="경기도 성남시"),]$전체통합전체합계, darea401[which(darea401$지역=="경기도 수원시"),]$전체통합전체합계)

names(darea402) <- c("월", "성남시통합전체합계", "수원시통합전체합계")

plot(darea402$성남시통합전체합계, ylim=yrange ,type="b", col=2) 

lines(darea402$수원시통합전체합계,type="b", col=3)

TransitBusPass_평일(12.01-12.06).xls

1.85MB

TransitBusPass_주말(12.01-12.06).xls

1.81MB

TransitBusPass_wd12071212.csv

0.6MB

TransitBusPass_평일(11.09-11.12).xls

1.27MB

TransitBusPass_주말(12.07-12.12).xls

1.82MB

TransitBusPass_주말(11.09-11.12).xls

0.95MB

TransitBusPass_wd12071212.xls

1.32MB