使用Rcurl得到到豆瓣评分

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

1. require(RCurl)
   
2. library(XML)
   
3. x='明日世界'
   
4. search <- getForm("http://movie.**.com/subject_search", search_text = x)
   
5. searchweb<-htmlParse(search)
   
6. #乱码了 searchweb
   
7. searchweb
   
8. # 解析搜索结果页面
   
9. resnodes<-getNodeSet(searchweb,"//div[@id='wrapper']//table[1]//a")
   
10. #查找id为wrapper的div里面table第一第的数
    
11. resurl<-xmlGetAttr(resnodes[[1]],name="href")
    
12. #找到电影url地址
    
13. resweb<-getURL(resurl,.encoding="UTF-8")  #上该电影主页
    
14. #得到影片页面后第二次解析
    
15. content<-htmlParse(resweb,encoding="UTF-8")
    
16. resnodes<-getNodeSet(content,"//div[@id='interest_sectl']//p[@class='rating_self clearfix']//strong")
    
17. namenodes<-getNodeSet(content,"//div[@id='content']//h1//span")
    
18. #得到影片评分
    
19. score<-xmlValue(resnodes[[1]])
    
20. name<-xmlValue(namenodes[[1]])
    
21. name;
    
22. score;

复制代码

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏1 回帖

关键词：Rcurl Curl url Library require library require search

在R中前两行就不能执行，应该还要下载哪些包呢？

金融学爱好者 发表于 2015-6-7 01:29
在R中前两行就不能执行，应该还要下载哪些包呢？

Rcurl 和XML两个包

showmonki 发表于 2015-6-7 04:01
Rcurl 和XML两个包

好像没有这个包哦

XML这个包也没有呢，怎么办呢？

金融学爱好者 发表于 2015-6-7 15:45
XML这个包也没有呢，怎么办呢？

括号里的包要加双引号。

Rcurl这个包加了双引号好像也不行哦，哪里出错了呢？

showmonki 发表于 2015-6-7 21:55
括号里的包要加双引号。

麻烦您在看一下加了双引号还是不行呢？

showmonki 发表于 2015-6-7 21:55
括号里的包要加双引号。

双引号和单引号均不行哦