链接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数据库
library(RJDBC)
vDriver <- JDBC(driverClass="com.vertica.jdbc.Driver", classPath="E:\\数据库软件\\squirrel-sql\\SQuirreL\\vertica-jdbc-7.0.1-0.jar")
vertica <- dbConnect(vDriver, "jdbc:vertica://192.168.1.11:5433/库名", "icinfo", "密码")
mydata = dbGetQuery(vertica, "sql语句")
连接pgsql
install.packages("RPostgreSQL")
library(RPostgreSQL)
pgdriver<-dbDriver("PostgreSQL")
con<-dbConnect(pgdriver,host="host",port="5432",dbname="库名",user="用户名",password="密码")
dbSendQuery(con,"SET client_encoding = 'gbk'") #pg下的解决中文乱码问题
data<-dbGetQuery(con,"select * from 表名 limit 100")
head(data)
dbDisconnect(con) #断开连接
dbUnloadDriver(pgdriver) #释放资源