R语言 : RJDBC 连接 h2数据库,绘基金净值图

H2database : 命令行: 类似 isql
java -cp /H2/bin/h2-1.3.jar org.h2.tools.Shell

CREATE TABLE JJJZ ;

insert into JJJZ (select * from CSVREAD('/H2/jjjz.csv'))

例如:查询基金净值 ,绘基金净值图,query_fund1.R

library(DBI)
library(RJDBC)
drv <- JDBC("org.h2.Driver","/H2/bin/h2-1.3.jar")
conn <- dbConnect(drv,"jdbc:h2:tcp://localhost/~/test","sa","")
#dbListTables(conn)
fund1 ='660005'
data <- dbGetQuery(conn,"select RQ,JZ from JJJZ where DM=?",fund1)
fundname <- dbGetQuery(conn,"select MC from JJMC where DM=?",fund1)
dbDisconnect(conn)
class(fundname)
head(data)
dates <- as.Date(data$RQ, "%Y-%m-%d")
attach(data)
fund1 <- paste(fund1, fundname$MC) # 基金代码 + 基金名称
plot(dates,JZ, type="l", lwd=1,  main=fund1, xlab="date", ylab="value", col="blue")
grid()
detach(data)

 

  • 0
    点赞
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值