r写入数据库

Ⅰ 如何用r语言抓取数据库中的数据库

一、 安装RODBC库

1、进入R语言的GUI界面（RGUI.EXE)，在菜单栏选择“程序包/安装程序包

2、在弹出的窗口里往下拉，选择RODBC如图，点击确定

3、在ODBC数据源管理器里将需要的数据库添加进去，这里笔者使用的是sql Server2008，驱动程序选择Native Client10.0

3、在R语言窗口输入连接语句
> library(RODBC)
**这里是载入RODBC库
> channel<-odbcConnect("MyTest",uid="ripley",case="tolower")
**连接刚才添加进数据源的“MyTest”数据库
**ch <- odbcConnect("some dsn ", uid = "user ", pwd = "**** ")
**表示用户名为user，密码是****，如果没有设置，可以直接忽略
> data(USArrests)
**将“USArrests”表写进数据库里（这个表是R自带的）
> sqlSave(channel,USArrests,rownames = "state",addPK = TRUE)
**将数据流保存，这时候打开SQL Server就可以看到新建的USArrests表了
> rm(USArrests)
> sqlTables(channel)
**给出数据库中的表
> sqlFetch(channel,"USArrests",rownames = "state")
**输出USArrests表中的内容
> sqlQuery(channel,"select * from USArrests")
**调用SELECT查询语句并返回结果（如图）

> sqlDrop(channel,"USArrests")
**删除表
> odbcClose(channel)
**最后要记得关闭连接
当然，通过这个办法也可以读取Excel、Access表中的内容，具体方法类似，这里不再重复

Ⅱ 如何在R语言中读入数据和导出存储数据

1.R数据的保存与加载

可通过save()函数保存为.Rdata文件，通过load()函数将数据加载到R中。

[ruby]view plain

• >a<-1:10

• >save(a,file='d://data//mData.Rdata')

• >rm(a)#将对象a从R中删除

• >load('d://data//mData.Rdata')

• >print(a)

• [1]12345678910



• 2.CSV文件的导入与导出

下面创建df1的数据框，通过函数write.csv()保存为一个.csv文件，然后通过read.csv()将df1加载到数据框df2中。

[ruby]view plain

• >var1<-1:5

• >var2<-(1:5)/10

• >var3<-c("Rand","DataMining","Examples","Case","Studies")

• >df1<-data.frame(var1,var2,var3)

• >names(df1)<-c("VariableInt","VariableReal","VariableChar")

• >write.csv(df1,"d://data//mmmyData.csv",row.names=FALSE)

• >df2<-read.csv("d://data//mmmyData.csv")

• >print(df2)

• 110.1Rand

• 220.2DataMining

• 330.3Examples

• 440.4Case

• 550.5Studies

• 3.通过ODBC导入与导出数据

RODBC提供了ODBC数据库的连接。

3.1从数据库中读取数据

odbcConnect()建立一个数据库连接，sqlQuery()向数据库发送一个SQL查询，odbcClose()关闭数据库连接。

[ruby]view plain

• library(RODBC)

• connection<-odbcConnect(dsn="servername",uid="userid",pwd="******")

• query<-"SELECT*FROMlib.tableWHERE..."

• #orreadqueryfromfile

• #query<-readChar("data/myQuery.sql",nchars=99999)

• myData<-sqlQuery(connection,query,errors=TRUE)

• odbcClose(connection)

• sqlSave()和sqlUpdate()用于写入或更新一个ODBC数据库表。

3.2从Excel文件中导入与导出数据

[ruby]view plain

• library("RODBC")

• conn<-odbcConnectExcel("D:/data/Amtrak.xls")

• Amtrak<-sqlFetch(conn,"Data")

• close(conn)