获取上市公司主要财务指标

Fri, 07 Sep 2012 00:00:00 +0000

写了一段获取上市公司主要财务指标的代码：

# 加载XML包
library(XML)
####id:股票代码
####year:年度
get.finance <- function(id,year,...){
 web <- paste("http://money.finance.sina.com.cn/corp/go.php/vFD_FinancialGuideLine/stockid/",id,"/ctrl/",year,"/displaytype/4.phtml",sep="")
 tables <- readHTMLTable(web)$BalanceSheetNewTable0
 colnames(tables)<-tables[1,]
 tables <- tables[-1,]
 return(tables)
}

简单演示一下：

library(XML)
res <- get.finance("000002","2012")

基于这些财务数据和价格数据，就可以着手建立股票排名系统了。

排名系统 on 格物堂

获取上市公司主要财务指标