R语言学习第四天---数据导入及连接数据库

第一步  将数据导入工具

文本文件  

mydata  <- data.frame(age=numeric(0),gender=character(0),weight=numric(0))

mydata <-edit (mydata)

fix(mydata): 对函数进行编辑

带分隔符的文本文件中导入数据

data <- read.table("f:/data/accident.txt",header=TRUE,sep=",")

:将第一行取出来作为属性值

ANSI: Ascii 

head(data)

读入Excel数据  

data1 <- read.table("f:/data/bus_sample.xlsx",header=TRUE,sep=",")

head(data1)

data1 <- read.table("f:/data/bus_sample.csv",

header=TRUE,sep=",")

mydate <- function(type){

       switch(type,

 long = format(Sys.time(),"%A %B %d %Y"),

short = format(Sys.time(),"%m-%d-%y"),

cat(type,"is not recognizes type\n")

)

}

mydate("long")

for循环 

sum <- function(num){

x <- 0

  for(i in 1:num){

    x<- x+i

}

return x

}

fix(sum) : 修改函数值

使用R语言来连接mysql数据库

首先 在R软件中安装RODBC包

然后 在http://dev.mysql.com/downloads/connector/odbc 网站中下载下载connector ODBC  并且安装

最后 windows：控制面板-》管理工具 -》数据源（ODBC）-》双击-》添加-》选中mysql ODBC driver

127.0.0.1

root

123456

启动连接

myconn <- odbcConnect("Rdata",uid="root",pwd="123456")     // Rdata表示的是在控制面板中添加ODBC数据源的名称

data1 <- sqlFetch(myconn,"news") : 将news所有的数据导入到data1中

data2 <- sqlQuery(myconn,"select id,title,pubtime from news")

head(data2)

close(myconn): 关闭数据库