R基础-简单函数定义·数据导入导出·MySQL交互

简单函数定义：函数归一化（后边例子中要用到）

斐波那契数列

导入导出

TXT：

安装扩展包

>SegData2<-read.table(file = 'SegData2.txt',header = T,sep = '',na.strings = c('###'),fileEncoding = 'utf8')
                      文件放在工作目录下可以直接写文件名，文件已有表头，把#的地方写成na，编码格式
> write.table(head(SegData2),file = 'SegData3.txt',row.names = FALSE)
把文件导出

CSV文件的导入导出与TXT一致（要安装扩展包）

XML文件

安装扩展包

> xmlToDataFrame('input.xml')
  ID     NAME SALARY  STARTDATE       DEPT
1  1     Rick  623.3   1/1/2012         IT
2  2      Dan  515.2  9/23/2013 Operations
3  3 Michelle    611 11/15/2014         IT
4  4     Ryan    729  5/11/2014         HR
5  5     Gary 843.25  3/27/2015    Finance
6  6     Nina    578  5/21/2013         IT
7  7    Simon  632.8  7/30/2013 Operations
8  8     Guru  722.5  6/17/2014    Finance

Jason文件类似于XML，安装Jason，引用

> data.frame(fromJSON(file = 'input.json'))
  ID     Name Salary  StartDate       Dept
1  1     Rick  623.3   1/1/2012         IT
2  2      Dan  515.2  9/23/2013 Operations
3  3 Michelle    611 11/15/2014         IT
4  4     Ryan    729  5/11/2014         HR
5  5     Gary 843.25  3/27/2015    Finance
6  6     Nina    578  5/21/2013         IT
7  7    Simon  632.8  7/30/2013 Operations
8  8     Guru  722.5  6/17/2014    Finance

MySQL数据库

 install.packages('RMySQL')

> con<-dbConnect(MySQL(),dbname='temp',user='root',password='rootroot',host='127.0.0.1')
#数据库名称是temp，用户名，密码，地址，这个链接的名字是con
> con
<MySQLConnection:0,0>
> summary(con)
<MySQLConnection:0,0>
  User:   root 
  Host:   127.0.0.1 
  Dbname: temp 
  Connection type: 127.0.0.1 via TCP/IP 

Results:
> student<-dbReadTable(con,'students')#把这个表取出来，叫做student

> head(student)
[1] id name sex age tel address
<0 行> (或0-长度的row.names)

> dbWriteTable(con,'student',student)#存入数据库中新表student
[1] TRUE

> dbListTables(con)#查看结果多了一个表
[1] "a" "b" "student" "students" "user"

本地数据库里边刷新一下，可以看到

> dbRemoveTable(con,'student')#删除表
[1] TRUE
> dbListTables(con)
[1] "a"        "b"        "students" "user"    
> dbDisconnect(con)#断开链接
[1] TRUE