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)