从东方财富网上获取股票代码list,R如下:
- library(RCurl)
- library(XML)
- # 从东方财富网获取股票list ------------------------------------------------------------------
- EMurl <- "http://quote.eastmoney.com/stocklist.html"
- EMhtml <- getURL(EMurl, .encoding = "gb2312")
- EMdoc <- htmlParse(EMhtml, encoding = "gb2312")
- EMStkSet <- xpathApply(EMdoc, "//div[@id='quotesearch']/ul/li/a", xmlGetAttr, "href")
这个程序最终只能得到2914条数据,事实上应该有4361条数据。为什么数据会有缺失?


雷达卡






京公网安备 11010802022788号







