R中好几个Pkg都提供了股票数据的在线下载方法，如果非得在其中找出一个最好的，那么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作者）推荐过的方法。不过，后来Joshua Ulrich在他的邮件中给出了一个更简洁的方法：
library(quantmod) getSymbols("^SSEC") head(SSEC)
虽然quantmod的包出自Jeff Ryan之手，显而易见，在这一点上Joshua Ulrich是青出于蓝而胜于蓝！
原文：http://www.cnblogs.com/hdu-2010/p/4683599.html