从股票代码到公司名

Mon, 12 Dec 2011 00:00:00 +0000

Ruser也有Ruser的恶习，经常弄的什么事情都想用R来完成：用R玩儿扫雷、用R玩汉诺塔、用R玩儿黑白棋、用R获取股票数据、用R获取财务数据。

现在想的是，如果已经知道一个股票代码，比如上交所的000061，如何知道其对应的公司名称呢？如果能找到一个数据库，其包含公司名称、公司股票代码、公司简称就可以完成这样的事情了。

最典型的金融数据库有什么呢？google?yahoo? yahoo是可以的。代码：

library(quantmod)
paste(getQuote("000061.ss", what=yahooQF("Name"))[,2])

返回结果如下：

[1] "SSE CORPORATE BON"

R获取股票数据

Thu, 14 Apr 2011 00:00:00 +0000

R中有多个包都提供了从线上数据库获取股票数据的方法。如果非得在其中找出一个最好的，quantmod当之无愧。譬如下载沪市大盘数据，代码可以是：

library(quantmod) 
SSE <- getSymbols("000001.SS",auto.assign=FALSE) 
head(SSE)

或者：

library(quantmod) 
setSymbolLookup(SSE=list(name="000001.SS", src="yahoo")) 
getSymbols("SSE") 
head(SSE)

以上是Jeff Ryan（quantmod作者）推荐过的方法。不过，后来JoshuaUlrich在他的邮件中给出了一个更简洁的方法：

library(quantmod) 
getSymbols("^SSEC") 
head(SSEC)

虽然quantmod的包出自Jeff Ryan之手，显而易见，在这一点上Joshua Ulrich是青出于蓝而胜于蓝。