개발냥발

#영화평점에 따른 타이틀 선정건 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..

install.packages("rvest") library(rvest) install.packages("rvest") library(rvest) library(stringr) # 크롤링 결과를 담는 주머니 title

setwd("C:/Rdata") getwd() #Ctrl + l => 콘솔창 정리 install.packages("foreign") install.packages("readxl") library(foreign) library(dplyr) library(ggplot2) library(readxl) raw_welfare=read.spss(file = "Koweps_hpc10_2015_beta1.sav", to.data.frame = T)#데이타 프레임 트루 #원본 데이터는 그대로 두고 가공하기 위한 사본을 만듦 welfare=raw_welfare head(welfare) tail(welfare) View(welfare) #()에 해당되는 전체 데이터 보기 str(welfare) summarise(welfar..