library(xlsx)
## Loading required package: rJava
## Loading required package: xlsxjars
library(pander)
doorae0924.rest<-read.xlsx("./Data0924.xlsx", 1, colIndex=2:54, endRow=98, stringsAsFactors=TRUE)
doorae0924.name <- read.xlsx("./Data0924.xlsx", 1, colIndex=1, endRow=98)
doorae0924 <- data.frame(doorae0924.name, doorae0924.rest)
doorae0924$"시도"
## [1] 경기 경기 경기 경기 경기 경기 경기 경기 경기 경기 경기
## [12] 경기 경기 강원 강원 강원 강원 강원 강원 강원 강원 강원
## [23] 강원 충북 충북 충북 충북 충북 충북 충북 충북 충남 충남
## [34] 전북 전북 전북 전북 전북 전북 전북 전북 전북 전북 전북
## [45] 전북 전북 전북 전북 전북 전북 전북 전남 전남 전남 전남
## [56] 전남 전남 전남 전남 전남 전남 전남 전남 전남 전남 전남
## [67] 전남 전남 경북 경북 경북 경북 경북 경북 경북 경북 경북
## [78] 경북 경북 경북 경북 경북 경북 경북 경북 경북 경남 경남
## [89] 경남 경남 경남 경남 경남 경남 경남 경남 경남
## Levels: 강원 경기 경남 경북 전남 전북 전북 충남 충북
- 전북이 두 개 나옴에 유의. 어떤 사연인가 하면,
(id.to.fix <- which(doorae0924$"시도"=="전북 "))
## [1] 50 51
doorae0924$"조직명"[id.to.fix]
## [1] "숲속나들이" "구천동펜션협의회"
doorae0924$"시도"[id.to.fix] <- "전북"
doorae0924$"시도"
## [1] 경기 경기 경기 경기 경기 경기 경기 경기 경기 경기 경기 경기 경기 강원
## [15] 강원 강원 강원 강원 강원 강원 강원 강원 강원 충북 충북 충북 충북 충북
## [29] 충북 충북 충북 충남 충남 전북 전북 전북 전북 전북 전북 전북 전북 전북
## [43] 전북 전북 전북 전북 전북 전북 전북 전북 전북 전남 전남 전남 전남 전남
## [57] 전남 전남 전남 전남 전남 전남 전남 전남 전남 전남 전남 전남 경북 경북
## [71] 경북 경북 경북 경북 경북 경북 경북 경북 경북 경북 경북 경북 경북 경북
## [85] 경북 경북 경남 경남 경남 경남 경남 경남 경남 경남 경남 경남 경남
## Levels: 강원 경기 경남 경북 전남 전북 전북 충남 충북
pander(table(doorae0924$"시도"))
Table continues below
| 10 |
13 |
11 |
18 |
17 |
18 |
0 |
2 |
count가 없는 factor level도 손봐야 함. 이는 간단히
(doorae0924$"시도" <- factor(doorae0924$"시도"))
## [1] 경기 경기 경기 경기 경기 경기 경기 경기 경기 경기 경기 경기 경기 강원
## [15] 강원 강원 강원 강원 강원 강원 강원 강원 강원 충북 충북 충북 충북 충북
## [29] 충북 충북 충북 충남 충남 전북 전북 전북 전북 전북 전북 전북 전북 전북
## [43] 전북 전북 전북 전북 전북 전북 전북 전북 전북 전남 전남 전남 전남 전남
## [57] 전남 전남 전남 전남 전남 전남 전남 전남 전남 전남 전남 전남 경북 경북
## [71] 경북 경북 경북 경북 경북 경북 경북 경북 경북 경북 경북 경북 경북 경북
## [85] 경북 경북 경남 경남 경남 경남 경남 경남 경남 경남 경남 경남 경남
## Levels: 강원 경기 경남 경북 전남 전북 충남 충북
str(doorae0924)
## 'data.frame': 97 obs. of 54 variables:
## $ 조직명 : chr "수원누리" "수원화성공예_협" "행궁맛촌" "이웃문화협동조합" ...
## $ 시도 : Factor w/ 8 levels "강원","경기",..: 2 2 2 2 2 2 2 2 2 2 ...
## $ 시군 : Factor w/ 18 levels "가평","강릉",..: 10 10 10 10 10 12 12 12 12 12 ...
## $ PD.1 : Factor w/ 18 levels "경용주","권옥선",..: 3 3 3 3 3 11 11 11 11 11 ...
## $ PD.2 : Factor w/ 3 levels "박호철","없음",..: 1 1 1 1 1 2 2 2 2 2 ...
## $ 공동체상태 : Factor w/ 2 levels "경영개선","창업준비": 2 2 2 1 2 2 1 2 2 2 ...
## $ 조직형태 : Factor w/ 2 levels "법인","임의단체": 2 2 2 1 2 2 1 1 1 2 ...
## $ 조직원 : num 4 4 4 5 5 5 40 67 5 5 ...
## $ 법인유형 : Factor w/ 7 levels "마을회","사단법인",..: 5 5 5 7 5 5 3 7 3 5 ...
## $ 설립일 : Date, format: "2014-05-01" "2015-03-01" ...
## $ 사업자등록 : Factor w/ 49 levels "124-87-43816",..: 49 39 49 1 49 2 3 49 49 49 ...
## $ 업태 : Factor w/ 16 levels "농업","도소매",..: 16 16 16 5 16 16 16 16 16 16 ...
## $ 종목 : Factor w/ 30 levels "곡물","공연",..: 30 30 30 11 30 30 30 30 30 30 ...
## $ 소재지 : Factor w/ 19 levels "가평","강릉",..: 11 11 11 11 11 13 13 13 13 13 ...
## $ 인적자원 : Factor w/ 3 levels "상","중","하": 3 2 2 1 3 1 3 3 3 3 ...
## $ 물적자원 : Factor w/ 3 levels "상","중","하": 2 2 2 2 2 1 3 3 3 3 ...
## $ 재무자원 : Factor w/ 3 levels "상","중","하": 3 3 3 2 3 3 3 3 3 3 ...
## $ 정부지원사업 : num 1 1 1 1 0 0 0 0 0 0 ...
## $ 사업명 : Factor w/ 33 levels "경기도특화거리지원",..: 17 17 1 18 22 22 22 22 22 22 ...
## $ 지원금.천원. : num 12000 12000 10000 5000 0 0 0 0 0 0 ...
## $ 지원사항 : Factor w/ 4 levels "없음","HW","SW",..: 4 4 2 3 1 1 1 1 1 1 ...
## $ 사업아이템 : Factor w/ 7 levels "관광기념품","교통",..: 1 1 5 7 6 3 7 4 7 7 ...
## $ 아이디어 : Factor w/ 64 levels "간식","게스트하우스",..: 34 37 1 60 29 55 60 46 20 7 ...
## $ 대표상품 : Factor w/ 26 levels "게스트하우스",..: 23 23 23 19 23 23 19 23 23 23 ...
## $ 방문객_2012 : num 0 0 0 0 0 ...
## $ 방문객_2013 : num 0 0 0 5000 0 0 0 0 0 0 ...
## $ 방문객_2014 : num 0 0 0 4000 0 ...
## $ 매출_2012 : num 0 0 0 0 0 0 653000 0 0 0 ...
## $ 매출_2013 : num 0 0 0 80000 0 0 0 0 0 0 ...
## $ 매출_2014 : num 0 0 0 70000 0 ...
## $ 성과_법인화 : Factor w/ 2 levels "No","Yes": 1 1 1 2 1 1 2 2 2 1 ...
## $ 성과_사업착수 : Factor w/ 2 levels "No","Yes": 1 1 2 2 1 2 2 1 1 1 ...
## $ 성과_사업자등록 : Factor w/ 2 levels "No","Yes": 1 2 1 2 1 2 2 1 1 1 ...
## $ 성과_상품개발 : Factor w/ 2 levels "No","Yes": 1 1 1 2 1 2 2 1 1 1 ...
## $ 성과_기술개발 : Factor w/ 2 levels "No","Yes": 1 1 1 2 1 2 2 1 1 1 ...
## $ 성과_신기술개발 : Factor w/ 2 levels "No","Yes": 1 1 1 1 1 1 1 1 1 1 ...
## $ 성과_신상품개발 : Factor w/ 2 levels "No","Yes": 1 1 1 1 1 1 1 1 1 1 ...
## $ 성과_사업장확보 : Factor w/ 2 levels "No","Yes": 1 1 1 2 1 2 2 1 1 1 ...
## $ 성과_사업장추가 : Factor w/ 2 levels "No","Yes": 1 1 1 1 1 1 1 1 1 1 ...
## $ 성과_이벤트 : Factor w/ 2 levels "No","Yes": 2 2 1 1 2 1 1 1 1 1 ...
## $ 성과_SNS : Factor w/ 2 levels "No","Yes": 2 2 1 1 1 1 1 1 1 1 ...
## $ 성과_매출_2014 : num 0 0 0 0 0 ...
## $ 성과_매출_2015_3개월 : num 0 0 20800 7080 0 0 0 0 0 0 ...
## $ 성과_방문객_2014 : num 0 0 0 0 0 ...
## $ 성과_방문객_2015_3개월: num 0 0 5200 760 0 0 0 0 0 0 ...
## $ 성과_정규직_2014 : num 0 0 0 0 0 0 0 0 0 0 ...
## $ 성과_정규직_2015 : num 0 0 0 0 0 0 0 0 0 0 ...
## $ 성과_비정규직_2014 : num 0 0 0 0 0 0 0 0 0 0 ...
## $ 성과_비정규직_2015 : num 0 0 0 3 0 0 0 0 0 0 ...
## $ 사업실적_역량강화 : num 1 1 0 1 0 2 2 2 2 0 ...
## $ 사업실적_멘토링 : num 0 0 0 0 0 1 1 0 0 0 ...
## $ 사업실적_파일럿 : num 1 0 0 0 0 2 3 2 6 0 ...
## $ 사업실적_관광공사 : num 0 0 0 0 0 3 3 1 0 0 ...
## $ 기타 : num 0 1 0 0 0 4 4 2 0 0 ...
years.in.business <- round(as.numeric(difftime(Sys.Date(), doorae0924$"설립일", units="days"))/365, digits=1)
str(years.in.business)
## num [1:97] 1.4 0.6 0.4 2.7 0.4 1.6 4.1 2.1 1.5 0.2 ...
head(years.in.business)
## [1] 1.4 0.6 0.4 2.7 0.4 1.6
doorae0924$"업력" <- years.in.business
str(doorae0924)
## 'data.frame': 97 obs. of 55 variables:
## $ 조직명 : chr "수원누리" "수원화성공예_협" "행궁맛촌" "이웃문화협동조합" ...
## $ 시도 : Factor w/ 8 levels "강원","경기",..: 2 2 2 2 2 2 2 2 2 2 ...
## $ 시군 : Factor w/ 18 levels "가평","강릉",..: 10 10 10 10 10 12 12 12 12 12 ...
## $ PD.1 : Factor w/ 18 levels "경용주","권옥선",..: 3 3 3 3 3 11 11 11 11 11 ...
## $ PD.2 : Factor w/ 3 levels "박호철","없음",..: 1 1 1 1 1 2 2 2 2 2 ...
## $ 공동체상태 : Factor w/ 2 levels "경영개선","창업준비": 2 2 2 1 2 2 1 2 2 2 ...
## $ 조직형태 : Factor w/ 2 levels "법인","임의단체": 2 2 2 1 2 2 1 1 1 2 ...
## $ 조직원 : num 4 4 4 5 5 5 40 67 5 5 ...
## $ 법인유형 : Factor w/ 7 levels "마을회","사단법인",..: 5 5 5 7 5 5 3 7 3 5 ...
## $ 설립일 : Date, format: "2014-05-01" "2015-03-01" ...
## $ 사업자등록 : Factor w/ 49 levels "124-87-43816",..: 49 39 49 1 49 2 3 49 49 49 ...
## $ 업태 : Factor w/ 16 levels "농업","도소매",..: 16 16 16 5 16 16 16 16 16 16 ...
## $ 종목 : Factor w/ 30 levels "곡물","공연",..: 30 30 30 11 30 30 30 30 30 30 ...
## $ 소재지 : Factor w/ 19 levels "가평","강릉",..: 11 11 11 11 11 13 13 13 13 13 ...
## $ 인적자원 : Factor w/ 3 levels "상","중","하": 3 2 2 1 3 1 3 3 3 3 ...
## $ 물적자원 : Factor w/ 3 levels "상","중","하": 2 2 2 2 2 1 3 3 3 3 ...
## $ 재무자원 : Factor w/ 3 levels "상","중","하": 3 3 3 2 3 3 3 3 3 3 ...
## $ 정부지원사업 : num 1 1 1 1 0 0 0 0 0 0 ...
## $ 사업명 : Factor w/ 33 levels "경기도특화거리지원",..: 17 17 1 18 22 22 22 22 22 22 ...
## $ 지원금.천원. : num 12000 12000 10000 5000 0 0 0 0 0 0 ...
## $ 지원사항 : Factor w/ 4 levels "없음","HW","SW",..: 4 4 2 3 1 1 1 1 1 1 ...
## $ 사업아이템 : Factor w/ 7 levels "관광기념품","교통",..: 1 1 5 7 6 3 7 4 7 7 ...
## $ 아이디어 : Factor w/ 64 levels "간식","게스트하우스",..: 34 37 1 60 29 55 60 46 20 7 ...
## $ 대표상품 : Factor w/ 26 levels "게스트하우스",..: 23 23 23 19 23 23 19 23 23 23 ...
## $ 방문객_2012 : num 0 0 0 0 0 ...
## $ 방문객_2013 : num 0 0 0 5000 0 0 0 0 0 0 ...
## $ 방문객_2014 : num 0 0 0 4000 0 ...
## $ 매출_2012 : num 0 0 0 0 0 0 653000 0 0 0 ...
## $ 매출_2013 : num 0 0 0 80000 0 0 0 0 0 0 ...
## $ 매출_2014 : num 0 0 0 70000 0 ...
## $ 성과_법인화 : Factor w/ 2 levels "No","Yes": 1 1 1 2 1 1 2 2 2 1 ...
## $ 성과_사업착수 : Factor w/ 2 levels "No","Yes": 1 1 2 2 1 2 2 1 1 1 ...
## $ 성과_사업자등록 : Factor w/ 2 levels "No","Yes": 1 2 1 2 1 2 2 1 1 1 ...
## $ 성과_상품개발 : Factor w/ 2 levels "No","Yes": 1 1 1 2 1 2 2 1 1 1 ...
## $ 성과_기술개발 : Factor w/ 2 levels "No","Yes": 1 1 1 2 1 2 2 1 1 1 ...
## $ 성과_신기술개발 : Factor w/ 2 levels "No","Yes": 1 1 1 1 1 1 1 1 1 1 ...
## $ 성과_신상품개발 : Factor w/ 2 levels "No","Yes": 1 1 1 1 1 1 1 1 1 1 ...
## $ 성과_사업장확보 : Factor w/ 2 levels "No","Yes": 1 1 1 2 1 2 2 1 1 1 ...
## $ 성과_사업장추가 : Factor w/ 2 levels "No","Yes": 1 1 1 1 1 1 1 1 1 1 ...
## $ 성과_이벤트 : Factor w/ 2 levels "No","Yes": 2 2 1 1 2 1 1 1 1 1 ...
## $ 성과_SNS : Factor w/ 2 levels "No","Yes": 2 2 1 1 1 1 1 1 1 1 ...
## $ 성과_매출_2014 : num 0 0 0 0 0 ...
## $ 성과_매출_2015_3개월 : num 0 0 20800 7080 0 0 0 0 0 0 ...
## $ 성과_방문객_2014 : num 0 0 0 0 0 ...
## $ 성과_방문객_2015_3개월: num 0 0 5200 760 0 0 0 0 0 0 ...
## $ 성과_정규직_2014 : num 0 0 0 0 0 0 0 0 0 0 ...
## $ 성과_정규직_2015 : num 0 0 0 0 0 0 0 0 0 0 ...
## $ 성과_비정규직_2014 : num 0 0 0 0 0 0 0 0 0 0 ...
## $ 성과_비정규직_2015 : num 0 0 0 3 0 0 0 0 0 0 ...
## $ 사업실적_역량강화 : num 1 1 0 1 0 2 2 2 2 0 ...
## $ 사업실적_멘토링 : num 0 0 0 0 0 1 1 0 0 0 ...
## $ 사업실적_파일럿 : num 1 0 0 0 0 2 3 2 6 0 ...
## $ 사업실적_관광공사 : num 0 0 0 0 0 3 3 1 0 0 ...
## $ 기타 : num 0 1 0 0 0 4 4 2 0 0 ...
## $ 업력 : num 1.4 0.6 0.4 2.7 0.4 1.6 4.1 2.1 1.5 0.2 ...
doorae0924$"사업자등록여부" <- factor(ifelse(doorae0924$"사업자등록" == "NA", "No", "Yes"), levels=c("Yes", "No"))
doorae0924.ys <- data.frame(status=factor(doorae0924$"공동체상태", levels=c("창업준비", "경영개선")), years=doorae0924$"업력")
save.image("doorae_new.rda")