有哪位大神知道如何解决，造成的原因是什么？也百度了很多，也没找到原因。
解决方法：
temp<-getURL(testurl,.encoding="gbk")
t2<-iconv(temp,"gbk","utf-8")  #转码
pagetree<-htmlTreeParse(t2,asText=TRUE,useInternalNodes=TRUE,encoding="utf-8") #这步有乱码
temp_name <-xpathSApply(pagetree,"//tr/td[@class='tl']/a", xmlValue)  #无乱码