R语言读取淘宝的单品页的名称和价值

#lab1library(XML);url1<-“http://data.caixin.com/macro/macro_indicator_more.html?id=F0001&cpage=2&pageSize=30&url=macro_indicator_more.html#top”;url<-htmlParse(url1,encoding=”UTF-8″)#把html文件读入R语言中并理会
#找结点test <- getNodeSet(url,’//meta[@name]’)#xpath语法找到html部件#显示的中文正常#读取结点的内容：xmlValue内部参数只能是一个字符串test_text_list<-sapply(test, xmlValue)#提取内容，多个的化以向量形式存储test_text<-xmlValue(test[[2]])#把test的第2其中的内容提取出来=test_text_list[2].留意，即时test只有一组数据也要利用test[[1]],不行以直接利用test（不是字符串）#读取结点的属性：xmlGetAttr内部参数只能是一个字符串content1<-xmlGetAttr(test[[1]], “content”)#读取test[[1]]中的content内容。留意直接用test不行以。#显示的中文不正常content1<-iconv(content1,”UTF-8″,”gbk”)#办理中文正常显示问题

#lab2利用R语言爬取淘宝网站的条记本商品价值和名称library(XML);url1<-“http://3c.taobao.com/detail.htm?spm=872.217037.254698.6.deIiSJ&spuid=205341228&cat=1101″url2<-“http://3c.taobao.com/detail.htm?spm=872.217037.254698.11.deIiSJ&spuid=203228104&cat=1101″read_taobao<-function(url){    name_text<-“”    price_text<-“”    i<-1    for(i_url in url){        i_url2<-htmlParse(i_url,encoding=”UTF-8″)#读取html数据        name<- getNodeSet(i_url2,”//div[@id=’idetail’]//div[@class=’info-area’]//div[@class=’tlt clearfix’]//h1″)#通过xpath找到网页中的name        #xpath://任意位置的  @是属性        name_text_tmp<-xmlValue(name[[1]])#提取name的内容        price<-getNodeSet(i_url2,”//div[@id=’idetail’]//div[@class=’info-area’]//div[@class=’key-info’]//span[@class=’price’]”)#通过xpath找到网页中的price        price_text_tmp<-xmlValue(price[[1]])#提取price的内容        name_text[i]<-name_text_tmp        price_text[i]<-price_text_tmp        i<-i+1    }    data.frame(name=name_text,price=price_text)}url<-c(url1,url2)read_taobao(url)
但愿各人能有点开导，众大神能给点意见。。