R语言学习笔记（二）导入数据

谁践踏了优雅 2022-06-07 12:16 494阅读 0赞

导入CSV文件

文件：G：/autompg.csv

字段：

1.  mpg:continuous
2.  cylinders:multi-valued discrete
3.  displacement:continuous
4.  horsepower
5.  weight:continuous
6.  acceleration:continuous
7.  model year:multi-valued discrete
8.  origin:multi-valued discrete
9.  car name:string (unique for each instance)

读取文件：

if(FALSE){stringsAsFactors=FALSE读取字符串变量}
    auto_mpg <- read.table("G:/autompg.csv", header=TRUE, sep=',',stringsAsFactors=FALSE,quote = "")
    summary(auto_mpg)

输出为：（与实际表格的字段类型不符）  
![这里写图片描述][SouthEast]

用colClasses为每一列指定一个类，例如logical（逻辑型）、numeric（数值型）、character（字符型）、factor（因子）。

auto_mpg <- read.table("G:/autompg.csv",colClasses=c("numeric","factor","numeric","numeric","numeric","numeric","factor","factor","character") ,header=TRUE, sep=',',quote = "")
    summary(auto_mpg)
    if(FALSE){查看前5行}
    auto_mpg[1:5,]

输出结果为：  
![这里写图片描述][SouthEast 1]

导入EXCEL文件

1.将EXCEL文件转化为CSV文件，再导入CSV文件（最佳方式）

2.利用xlsx包或者RODBC包导入数据

if(FALSE){安装xlsxC包} install.packages("xlsx") if(FALSE){读取autompg.xlsx的第一页表} library(xlsx) mydata <- read.xlsx("G:/autompg.xlsx", 1)

这将又会出现导入CSV文件的问题，即导入的数据类型与原来数据类型不一致。

导入数据库表格

在R中通过RODBC包访问一个数据库也许是最流行的方式，这种方式允许R连接到任意一种拥有ODBC驱动的数据库，其实几乎就是市面上的所有数据库。

以导入MySQL数据库数据表为例。前提是你的电脑上已经安装了MySQL的ODBC驱动程序,网址为[https://dev.mysql.com/downloads/connector/odbc/][https_dev.mysql.com_downloads_connector_odbc].  
![这里写图片描述][SouthEast 2]  
安装完MySQL的ODBC驱动后，打开控制面板的管理工具，根据自己的Windows系统版本打开ODBC数据源。再连接到MySQL数据库，我们以访问test数据库为例，数据源名称为connect\_mysql.  
![这里写图片描述][SouthEast 3]  
这样设置完后，我们就可以利用R语言连接数据库了（注意：这是双向的连接）。

library(RODBC) if(FLASE){连接数据库,账号为root,密码为123456} myconn <-odbcConnect("connect_mysql",uid="root",pwd="123456") if(FALSE){连接该数据库的product表格} mysqldata <- sqlFetch(myconn, "product")

对数据库的操作

library(RODBC)
    if(FALSE){连接数据库+账号为root+密码为123456}
    myconn <-odbcConnect("connect_mysql",uid="root",pwd="123456")
    if(FALSE){连接该数据库的product表格+并查看前5行}
    mysqldata <- sqlFetch(myconn, "product")
    print(mysqldata[1:5,])
    if(FALSE){对product表进行SQL查询}
    print(sqlQuery(myconn, "select * from product where maker ='E'"))
    print(sqlQuery(myconn, "select maker,max(model) as max_model from product group by maker"))
    if(FALSE){关闭连接}
    close(myconn)

![这里写图片描述][SouthEast 4]

[SouthEast]: /images/20220607/02cbe80059b644868b4ce61cee306515.png
[SouthEast 1]: /images/20220607/ca49899391444130ae17248b51d75d1c.png
[https_dev.mysql.com_downloads_connector_odbc]: https://dev.mysql.com/downloads/connector/odbc/
[SouthEast 2]: /images/20220607/ad738cda3f5c4bf99fe5a92a1ce65739.png
[SouthEast 3]: /images/20220607/90c1e1d9167d4d409bacd52068ced9c7.png
[SouthEast 4]: /images/20220607/68610b727e0f47e89b467317dc00decf.png