°øÀ¯ÀÚ·á HOME > ÀÚ·á½Ç > °øÀ¯ÀÚ·á
 
[Á¤º¸±â¼úÈ°¿ë¿¬±¸] package rvest À¥»çÀÌÆ® Ŭ·Ñ¸µ ¿¹Á¦
°ü¸®ÀÚ 16-04-12 06:44 1,833
install.packages("rvest")
library("rvest")
#¼öÁýÇÏ·Á´Â Á¤º¸°¡ ÀÖ´Â website ÀÔ·Â
htmlpage <- html("http://www.imdb.com/title/tt0111161/?ref_=fn_al_tt_1")
 
 

#À¥»çÀÌÆ® Å©·Ñ¸µ¿¡ °üÇÑ exampleÀÔ´Ï´Ù.(±èÁ¤ÈÆ 2016310053)
 

#¼öÁýÇÏ·Á´Â Á¤º¸ÀÇ html tag Á¤º¸ ÀÔ·Â (À¥»çÀÌÆ®ÁÖ¼Ò, "Á¤º¸ÀÇ À§Ä¡(Áï,Å×±×)")
review <- html_nodes(htmlpage, "#titleUserReviewsTeaser p")

#ºÒÇÊ¿äÇÑ Å×±× Á¦°Å
test <- html_text(review)
 
write.csv(test,"ÀúÀå°æ·Î")