刚开始学习R语言，云里雾里。请教如何获得mysql数据，
我想用chartSeries画个K线图，数据都在我的mysql库里。
库结构是如下字段  index id name op cl hi lo vol date

我的问题时如何通过getSymbols从mysql获得数据，用quantmod画出K线图？ 谢谢！


library(quantmod)
library(DBI)
library(RMySQL)

drv <- dbDriver("MySQL")
ch <- dbConnect(drv,dbname="stock","root","password")
allQuotes <- dbGetQuery(ch,"select date,id,op,hi,lo,cl,vol from history where id ='600036'") ＃简化一下，只用600036测试一下。
ZSYH <- xts(allQuotes[,-1],order.by=as.Date(allQuotes[,1]))
head(ZSYH)  #            id       op      hi      lo      cl      vol        
                       #2002-04-09 "600036" "10.51" "10.88" "10.51" "10.66" "414108831"
                       #2002-04-10 "600036" "10.66" "10.70" "10.39" "10.60" " 67945475"
                       #2002-04-11 "600036" "10.60" "10.68" "10.49" "10.52" " 22788255"
dbDisconnect(ch)
dbUnloadDriver(drv)
setSymbolLookup(ZSYH=list(name='600036',src='mysql',
                          db.fields=c('date','id','Open','High','Low','Close','Volume'),
                          user='walter',password='tongfang',dbname='stock'))
getSymbols('ZSYH')
    Error in getSymbols.mysql(Symbols = "ZSYH", env = <environment>, verbose = FALSE,  :
    At least one connection argument ( ‘user’ ‘password’ ‘dbname’ ) is not set