使用R语言从网易财经批量获取股票数据并进行整合的方法

最近因为投资分析需要接触R语言，需要获取A股上市公司数据。从同花顺下载效率太低，就到处找途径。分享下方法，共其他小白参考，请大神指正。

R语言自带的quantmod数据不错，不过国内A股数据不全，而且时常出错，而且由于谷歌已经终止了提供财务数据，更影响了使用，因此只能作为不错。当然，雅虎财经最近也上线了财务数据板块，不过个人还不懂得爬虫抓取，还等大神分享方法。

网上也有一些讲解从新浪财经抓取数据的方法，不过个人觉得还是从网易财经抓取股票数据和财务数据最简单，虽然可能相比其他方法效率也不快，而且网易财经的股价都是除权的。

结合看的两本书，写了个源文件，从网易财经下载财务数据或股票成交数据到指定文件夹，再批量整合，或者读取指定股票，方法如下：

#脚本名称：RStock.R

#从网易财经抓取公司财务数据（主要指标，其他部分可参考，简单修改url）,20191208
#参考《量化投资基础、方法与策略：R语言实战指南》，付志刚，沈慧娟
getStockFin <- function(data,...){
for(i in 1:length(data)){
symbol <- data[i]
url <-paste0("http://quotes.money.163.com/service/zycwzb_",as.character(symbol),".html?type=year")
savefile <- paste0("E://Data_Analysis//StockFinancial//",as.character(symbol),".csv")
download.file(url,destfile=savefile,mode="wb",quiet=T)
}
}

#从网易财经抓取股票交易数据,20191208
#参考《量化投资基础、方法与策略：R语言实战指南》，付志刚，沈慧娟
getStockData <- function(data,star_d,end_d,...){

for(i in 1:length(data)){
symbol <- data[i]
if(substr(symbol,1,1)=="6") Fcode=0 else Fcode =1
url <-paste0("http://quotes.mo