新手请教用 quantmod 从本地的mysql获得数据

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

刚开始学习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

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏0 回帖

关键词：quantmod quant MySQL Mod Ant mysql

try getSymbols.MySQL()