저작권 문제로 아무거나 크롤링을 할 수 없다는 말씀과 함께 주신 과제... library(rvest) library(stringr) library(dplyr) library(ggplot2) library(wordcloud) library(wordcloud2) cnt=c() base_url="https://www.bskorea.or.kr/bible/korbibReadpage.php?version=GAE&book=gen&chap=" for(i in 1:50){ cr_url=paste0(base_url,i) t_css="#tdBible1 span" hdoc=read_html(cr_url,encoding = 'UTF-8') n_css=html_nodes(hdoc,t_css) cnt_part=html_text(n..
#영화평점에 따른 타이틀 선정건 library(rvest) library(stringr) library(dplyr) library(ggplot2) title=c() grade=c() #body=c() base_url="https://movie.naver.com/movie/point/af/list.nhn?&page=" for(i in 1:200){ craw_url=paste0(base_url,i,Encoding("EUC_KR")) hdoc=read_html(craw_url) t_css=".color_b" g_css="#old_content em" t_node=html_nodes(hdoc,t_css) g_node=html_nodes(hdoc,g_css) title_part=html_text(t_node) t..