R:构造函数抓取股票历史数据

1、网页结构解析

数据来源：

http://biz.finance.sina.com.cn/stock/flash_hq/kline_data.php?symbol=sh601369&end_date=20161125&begin_date=20161110

经过“审查元素”选项，查看标签信息：

---

2、构造数据查询函数

> get_stockprice<-function(code,startday,endday){
        
+ library(rvest)

+ i <-"http://biz.finance.sina.com.cn/stock/flash_hq/kline_data.php?
symbol=sh"

+ url<-paste(i,code,"&end_date=",endday,"&begin_date=,"startday",sep="")
        
+ web<-read_html(url)
        
+ res<-do.call(rbind,data<-web%>%html_nodes("content")%>%html_attrs())%>%as.data.frame
        
+ res2<-res[,1:5]
        
+ names(res2)<-c("日期","开盘价","最高价","收盘价","最低价","成交量")
        
+ print(res2)
    
+ }

---

3、输入参数，查询数据

另外，R的quantmod包内的函数也能够达到一样的效果。

(End)