链接mysql数据库
install.packages("RMySQL")
library(RMySQL)
con <- dbConnect(MySQL(),host='192.168.1.11',username='xytz',password='密码',port=3306,dbname='库名')
dbSendQuery(con,'SET NAMES gbk') #设置编码gbk,解决中文乱码问题
mydata=dbGetQuery(con,"select * from model_var_end1") #读取mysql中的数据
hist(mydata$pf,breaks=100) #breaks分隔的区间数
dbDisconnect(con) #断开数据库连接
链接Vertica数据库