R Notebook

# [2] 연도마다 오픈하는 커피숍과 폐업하는 커피숍의 수를 도수분포표와# 그래프로 표현하시오
# http://www.data.go.kr##

step 1. data loading

ver.coffee <- read.csv('https://www.dropbox.com/s/db2yo6l7kxzasl3/example_coffee.csv?dl=1')

step 2. installpackages : data.table, ggplot2

library(ggplot2)

挼㸶搼㸰Ű挼㸱昼㸶 愼㸱愼㹥ggplot2愼㸱愼㹦戼㸴挼㸲 R 戼㸹昼㸶挼㸰昼㹣 3.5.1戼㹦愼㸱戼㹣愼㹤 挼㸰ۼ戼㹡戼㸵Ǿ昼㹡戼㹤挼㸰戼㸴ϴ搼㸹Need help? Try Stackoverflow: https://stackoverflow.com/tags/ggplot2.

step 3. structure

str(ver.coffee)

step 4. 불필요한 변수 삭제 :

-adress, -adressBystreet, -dateOfclosure, -startdateOfcessation, -duedateOfcessation, dateOfreOpen

ver.coffee <- subset(ver.coffee, select = -c(adress, adressBystreet, dateOfclosure,
                                             startdateOfcessation,duedateOfcessation,
                                             dateOfreOpen))
head(ver.coffee)

step 5. 최초의 커피숍 찾기

range(ver.coffee$yearOfStart,na.rm = T)
ver.temp <- subset(ver.coffee, ver.coffee$yearOfStart == 1964)
ver.temp
ver.firsy_coffee <- subset(ver.coffee, ver.coffee$dateOflicensing == 19640929)
ver.firsy_coffee

step 6. 해마다 오픈한 커피숍 갯수 찾기

ver.open <- table(ver.coffee$yearOfStart)

step 7. 6번결과를 막대 그래프로 그리기

ggplot(ver.open, data = ver.coffee, mapping= aes(x = yearOfStart))+ geom_bar(binwidth=1)

`geom_bar()` no longer has a `binwidth` parameter. Please use `geom_histogram()` instead.

qplot(ver.coffee$yearOfStart, data = ver.coffee, geom = "bar")

step 8. 영업상태 및 연도에 따른 분할표 만들기

ver.satate <- table(ver.coffee$stateOfbusiness,ver.coffee$yearOfStart)

step 9. 이상치제거를 위해 1997년도 이상 데이터만 저장 (outlier 추출)

which(colnames(ver.satate)==1997)
##which() 함수는 True 값이 있는 위치를 알려줌 
##예를 들어 1997 값을 체크했을때 나오는 값은해당연도가 시작한 후 
##몇번째 index 값을 갖는지 알려줌 
which.max(colnames(ver.satate))
##8번 리턴값의 최대값을 보여줌 
ver.satate_2 <- ver.satate[,c(30:48)]
## a부터 b까지만 다시  table로 편집  

step 10. 폐업과 운영하는 샵의 비율

ver.satate_3 <- prop.table(ver.satate_2,margin = 2)
head(ver.satate_3)

step 11. 차트로 표현할 마지막 데이터 프레임 생성

new.coffee <- data.frame(colnames(ver.satate_2),ver.satate_2[1,], ver.satate_2[2,],
                         ver.satate_3[1,], ver.satate_3[2,])

step 12.새로운 데이터 프레임에 가독성있는 이름을 부여

colnames(new.coffee) <- c('Year','Open','Close','개업비율','패업비율')
new.coffee