【求助】R爬京东手机页面信息，出点小问题，请高手指点！

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

错误提示如下：

Error in brand[-c(1:(length(brand) - 60))] : only 0's may be mixed with negative subscripts

不知道哪里出问题，本人是初学者，还望哪位高手指点，谢谢！

源代码如下：
require(stringr)
require(rvest)
require(rjson)
myfun = function(x){
          url = str_c("http://list.jd.com/list.html?cat=9987,653,655=",x,"&JL=6_0_0")
          brand = url %>% html_session() %>% html_nodes(".right-extra .p-name a") %>% html_text()
          b = brand[-c(1:(length(brand) - 60))] %>% strsplit(" ")
          b1 = sapply(1:60,function(i) paste(b[][1],collapse = ''))
          b2 = sapply(1:60,function(i) paste(b[][2],collapse = ''))
          b3 = sapply(1:60,function(i) paste(b[][-c(1:2)],collapse = ''))
          evalue = url %>% html_session() %>% html_nodes(".evaluate a") %>% html_text() %>% str_extract("http://p.3.cn/prices/mgets?skuIds=",price1)
          dat = u %>% html() %>% html_nodes("p") %>% html_text()
          p = fromJSON(dat)
          price =sapply(1:60,function(i) p[]$p)         
          data.frame(品牌 = b1,型号 = b2,性能描述 = b3,评价 = evalue,价格 = price)
        }
dat = lapply(1:4,myfun)
total = do.call(rbind,dat)

扫码加我 拉你入群

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

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

分享0 收藏0 回帖

关键词：高手指点 小问题 function Collapse negative function require 源代码 Error 京东

不知道你的x是什么，我用“0”来试了一下，brand得到的是空的呢，爬取的页面源码里面没有.right-extra .p-name这些标签啊