R语言学习笔记（二）

3R软件导览

3.1获取和设定工作目录

> getwd()             //显示当前工作目录

> setwd(“需要改变的目录”)          //改变当前目录

3.2保存工作空间

>save.image()    //生成R.data的文件存放于当前工作目录

3.3查看历史命令记录

> history()            //括号内还能填数字

3.4保存先前命令产生的结果

> x <-.Last.value        //存储了最近一个计算出的表达式值

3.5使用R包中的函数

> library(packagename)

3.6查看已安装的R包列表

> library()

3.7从CRAN网站安装R包

>install.packages(“packagename”)

3.8设定默认CRAN网站镜像

>chooseCRANmirror()

在列表中选中镜像并点击确定。

>options(“repos”)[[1]][1]        //查看repos选项第一个元素获取所选镜像的URL地址。

>options(repos=“URL”)                  //URL就是之前显示出的地址

3.9隐藏启动信息

右击快捷方式，选择“属性”，在“目标”字符串结尾添加—quiet。

3.10运行脚本

可以将大幅或常用的R代码存储于文本文件中。

>source(“myScript.R”)            //执行脚本

3.11获取和设定环境变量

>Sys.getenv(“SHELL”)              //获取环境变量

>Sys.setenv(SHELL=”/bin/ksh”)             //设置环境变量

3.12 找到R的主目录

>Sys.getenv(“R_HOME”)

 

4. 输入与输出

4.1 使用键盘输入数据

对于很小的数据量，使用c()建立向量。另外，可以建立一个空的数据框。

> scores<— data.frame()       //创建空的数据框

> scores<— edit(scores)         //编辑

4.2 显示更少的位数

> print(pi,digits=4)           //方法1，保证输出数据的位数为4

> cat(format(pi,digits=4), “\n”)            //方法2

4.3 将输出结果重定向到某一文件

> cat(“Theanswer is”, answer, “\n”, file=”filename”)                    //方法1

在文件中会输出：The answer is + answer中的数据。

> sink(“filename”)            //方法2

后面的输出都会重定向到目标文件

> sink()                       //关闭重定向

4.4 显示文件列表

>list.files()                 //列出当前工作目录中的文件

> list.file(all.file=TRUE)

4.5 文件路径表示方法

C:/data/sample.txt

C:\\data\\sample.txt

4.6 阅读固定宽度数据记录

> records<— read.fwf(“filename”, widths=c(w1,w2,…,wn),

+                         col.names =c(“col1”,”col2”,…,”coln”))

4.7 读取表格数据文件

> dfrm <—read.table(“filename”)

读取表格数据，文件中的每一栏用空格分隔。

4.8 读取csv文件

> tbl <—read.csv(“filename”, header=FALSE)

4.9 写入csv文件

> write.csv(tbl,file=”filename”, row.names=FALSE)

4.10 读取MySQL数据库中的数据

安装、载入RMySQL数据包：

> library(RMySQL)

使用dbConnect函数打开一个数据库连接：

> con <— dbConnect(MySQL(),user=”userid”, password=”pswd”, host=”hostname”

+                                 client.flag=CLIENT_MULTI_RESULTS)

使用dbGetQuery函数发起一个SELECT，并返回结果集：

> sql <—paste(“select * from ……”)

> rows <—dbGetQuery(con, sql)

> if(dbMoreResults(con)) dbNextResult(con)     //重复调用dbGetQuery函数来完成多重查询

读取结束后，使用dbDisconnect函数终止与数据库的连接

>dbDisconnect(con)                //结果是TRUE

4.11 保存和传送目标

> save(myData,file=”myData.RData”)        //将对象写入一个文件

>load(“myData.RData”)         //载入对象

Save函数以二进制数据方式保存数据，若需ASCII码格式进些保存：

>dput(myData, file=”myData.txt”) 或者 dump(“myData”, file=”myData.txt”)