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

导入CSV文件

  文件：G：/autompg.csv,表格中的全部字段为：

• mpg:continuous
• cylinders:multi-valued discrete
• displacement:continuous
• horsepower
• weight:continuous
• acceleration:continuous
• model year:multi-valued discrete
• origin:multi-valued discrete
• 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)

  输出为：（与实际表格的字段类型不符）
[图片上传失败...(image-2e96a7-1512713264789)]

  可以用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,]

  输出结果为：
[图片上传失败...(image-1143c2-1512713264789)]

导入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/.
[图片上传失败...(image-233540-1512713264789)]
安装完MySQL的ODBC驱动后，打开控制面板的管理工具，根据自己的Windows系统版本打开ODBC数据源。再连接到MySQL数据库，我们以访问test数据库为例，数据源名称为connect_mysql.

ODBC驱动填写

这样设置完后，我们就可以利用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)

数据库操作