TIPS program crawling

/

URL 만들기

basic_url + 숫자의 형태로 저장되어있음.
다만 add_url의 경우 마우스 오버 후 하나하나 넣어주는것을 권함…
DB에는 있으나 시각화 안한 경우 고려

basic_url = "http://www.jointips.or.kr/bbs/board.php?bo_table=partner&wr_id="

# url은 mannual 추가
add_urls<- c(1, 75, 3, 10, 8, 7, 12, 11, 14, 19, 20, 18, 21, 28, 
             29, 42, 37, 39, 40, 41, 36, 47, 48, 49, 50, 51, 52, 
             54, 55, 58, 59, 60, 61, 62, 63, 66, 24, 22, 57, 65, 
             64, 67, 68, 69, 70, 45, 71, 15, 2, 4, 72, 16) %>% sort()

# vector 초기화
urls <- NULL
for(i in 1:length(add_urls)) {
        urls[i] <- paste(basic_url, add_urls[i], sep = "")
}
urls <- urls %>% na.omit()
urls %>% head()
## [1] "http://www.jointips.or.kr/bbs/board.php?bo_table=partner&wr_id=1"
## [2] "http://www.jointips.or.kr/bbs/board.php?bo_table=partner&wr_id=2"
## [3] "http://www.jointips.or.kr/bbs/board.php?bo_table=partner&wr_id=3"
## [4] "http://www.jointips.or.kr/bbs/board.php?bo_table=partner&wr_id=4"
## [5] "http://www.jointips.or.kr/bbs/board.php?bo_table=partner&wr_id=7"
## [6] "http://www.jointips.or.kr/bbs/board.php?bo_table=partner&wr_id=8"

Rvest

크롤링 시작

# DF init
result1 <- data.frame()
temp_df <- data.frame()

# 갯수만큼 주관, 소개, 표 불러오기
for(i in 1:52) {
        jugwan <- urls[i] %>%
                read_html(encoding='UTF-8') %>%
                html_nodes(xpath = '//*[@id="partners"]/section/div/div/div[2]/section[1]/header/h2') %>%
                html_text()
        breif_intro <- urls[i] %>%
                read_html(encoding='UTF-8') %>%
                html_nodes(xpath = '//*[@id="partners"]/section/div/div/div[2]/section[1]/div') %>%
                html_text()
        Sys.setlocale("LC_ALL", "English") #한글 깨짐 오류잡기위한 코드
        breif_table_list <- urls[i] %>%
                read_html() %>%
                html_nodes(xpath = '//*[@id="partners"]/section/div/div/div[2]/section[2]/div/table') %>%
                html_table()
        Sys.setlocale("LC_ALL", "Korean") #한글 깨짐 오류잡기위한 코드
        breif_table <- breif_table_list[[1]]

        temp_df <- data.frame(X1 = "주관사", X2 = jugwan) %>%
                bind_rows(data.frame(X1 = "소개", X2 = breif_intro)) %>%
                bind_rows(breif_table) %>%
                tidyr::spread(X1, X2)
        result1 <- result1 %>%
                bind_rows(temp_df)
}

최종 결과

주관사 투자업종 평균지분율 홈페이지
카이트창업가재단 첨단제조(HW), 의료/바이오, 부품소재 3.3%* www.kiteef.or.kr
캡스톤파트너스 AI, Blockchain 등 ICT 기술&서비스 13.6%* www.cspartners.co.kr
카카오벤처스 IT서비스(SW, 모바일, 인터넷) 11.4%* www.kakaoventures.co.kr
프라이머 IT서비스(SW, 모바일, 인터넷, 의료헬스케어, 바이오) 등 8%* www.primer.kr
쿨리지코너인베스트먼트 첨단제조(HW), 부품소재, IT서비스 16.3%* www.ccvc.co.kr
퓨처플레이 IT서비스(SW), 첨단제조(IT) 10.0%* www.futureplay.co
본엔젤스벤처파트너스 IT서비스(SW, 모바일, 헬스케어) 12.6%* bonangels.net
액트너랩 의료/바이오(헬스케어), 서비스융합(웨어러블), IT서비스(IoT, 커넥티드카) 8.8%* www.actnerlab.com
씨앤벤처파트너스(엔텔스) ICT서비스(모바일, 헬스케어) 11.5%* www.cnvpartners.co.kr
포스코 소재·에너지·환경, 바이오.신약, 스마트시티/팩토리, 그 외 기타분야 7.4%* www.poscoventure.co.kr
스파크랩 전 산업분야 3.7%* www.sparklabs.co.kr
한국과학기술지주 첨단제조(HW), IT&제조 융합, IoT, 의료/바이오, 부품소재 등 8.3%* www.kstholdings.co.kr
현대자동차 AI, Smart Mobility, Smart City, New Energy, Robotics 5.2%* www.zer01ne.zone
블루포인트파트너스 첨단기술(HW, SW), 기초기술(부품,소재,재료,화학 등), 의료/바이오/헬스케어 등 8.6%* www.bluepoint.ac
BSK인베스트먼트 의료/바이오(헬스케어, 적정의료, IT/BT 융합) 8.2%* www.bskinvest.com
에트리홀딩스 첨단제조(IT, HW) ICT서비스(SW), 부품소재, 의료/바이오 기기 17.8%* www.etriholdings.com
빅베이슨캐피탈 IT서비스(인터넷, IoT) 서비스융합(전자상거래) 7.1%* www.bigbasincapital.com
미래과학기술지주 IT서비스, 부품소재, 의료/바이오(NT, BT) 8.4%* http://www.miraeholding.com
인포뱅크 전 산업분야 8.2%* www.infobank.net
카이스트청년창업투자지주(주) IT서비스, AI, 의료/바이오, 환경, 에너지 등 첨단 산업분야 5.9%* kaistventures.com/
휴젤 의료/바이오(의약품, 의료기기, 헬스케어 등) 4%* www.hugel.co.kr
포스텍기술지주 첨단제조(HW), IT, 부품소재, 의료/바이오(헬스케어, BT) 8.9%* www.postechholdings.com
충북창조경제혁신센터 바이오, 헬스케어, ICT, Beauty Tech 등 2.3%* ccei.creativekorea.or.kr/chungbuk/main.do
스프링캠프 IT서비스(ICT, O2O, HW 등) 8.6%* springcamp.co
케이런벤처스 첨단제조(HW), IT&제조 융합, IoT, 의료/바이오, 부품소재 등 5.7%* www.krunventures.com
선보엔젤파트너스 ICT/모바일, 산업용 HW/SW, 바이오, AR/VR, 소비재 7.7%* www.sunbonpartners.com
부산지역대학연합기술지주 전 산업분야 14.5%* www.buholdings.co.kr
마그나인베스트먼트 ICT, 바이오, 헬스케어, 제조, AI, 콘텐츠 등 전산업분야 15.6%* www.mgni.co.kr
빅뱅엔젤스 AI & DeepTech, Beauty & Healthcare, Cross-border & Commerce 7.5%* www.bigbangangels.com
아이빌트 ICT, 의료/바이오, VR/AR, 제조, 부품/소재, AI, 빅데이터, 콘텐츠 등 12.2%* www.ibuilt.kr
에버그린투자파트너스(유) ICT, VR/AR, 부품소재, 의료/바이오, IoT, AI 등 6.3%*
코맥스벤처러스 IAI, Cloud, Big Data, IoT, O2O, 헬스케어 13.7%* www.iventurus.com
킹슬리벤처스 ICT, 바이오 5.2%* www.kingsley.co.kr
KB인베스트먼트 핀테크, 바이오, 딥테크, 동남아 진출 사업 5.9%* www.KBIC.co.kr
고려대학교기술지주 바이오의료(의약품, 의료기기, 헬스케어, 소재 등) 4.6%* www.kuholdings.co.kr
씨엔티테크 IT서비스(FoodTech, O2O, SW 등) 5.0%* www.cntir.co.kr
매쉬업엔젤스 인터넷, 소프트웨어, 딥테크, 모바일, 커머스, 게임 등 ICT전분야 11.0%* www.mashupangels.com
메디톡스벤처투자 헬스케어(제약,바이오,의료기기,건강기능식품,고기능성화장품 등) 14.1%* www.medytoxventure.com
서울대기술지주 4IR, 전분야 8.8%* www.snuholdings.com
에이치지이니셔티브 육아·보육, 교육, 컨텐츠, 헬스케어, 지속가능한 생산과 소비 5.7%* www.hginitiative.com
인라이트벤처스(유) 기술기반 전분야 7.0%* www.enlightvc.com
한양대기술지주 AI·빅데이터, AR·VR, 바이오 등 4IR 전분야 6.8%* www.hyuholdings.com
플래티넘기술투자 AI·빅데이터, AR·VR, 바이오, 부품소재 등 분야 %*
엔피프틴파트너스 하드웨어, 제조, 바이오 및 기술기반 전분야 %* www.n15partners.asia
김기사랩 4IR 및 ICT 전분야 %* www.kimgisacompany.com
대덕벤처파트너스 ICT융복합,바이오헬스케어 반도체·디스플레이, 부품소재 %* www.dvpdvp.com
더존홀딩스 플랫폼, 빅데이터, AI, 핀테크, 전자상거래, ICT 전 분야 %* www.douzone.com
데일리파트너스 의료, 바이오. 헬스케어 %* dayli.partners
벤처스퀘어 바이오, AI, VR/AR, ICT 융합기술, 라이프스타일 %* www.venturesquare.net
슈미트 모빌리티, 바이오&딥테크, 플랫폼비즈니스 %* schmidt.kr
플랜에이치벤처스 전 산업분야 %* www.planhventures.co.kr
시너지아이비투자 의료/바이오(의약품, 소재, 의료기기 등) 1.6%* www.synergyib.co.kr

Leave a Comment