R语言数据的输入-白红宇

键盘输入

调用edit函数，比如我们要让用户输入一个长度为5的向量并赋值给变量a，那么可以：

        a<-vector( 
"
integer
", 
5) 
 a<-edit(a) 

另外也可以用函数fix来直接编辑变量，而不需要再赋值变量。所以上面编辑a变量的命令可以改为：

        a<-vector( 
"
integer
", 
5) 
 fix(a) 

读取文本文件

read.table函数可以读取csv文件，也可以读取其他分隔符分割的文本文件。如果是Tab键分割，那么就是“\t”比如：

       y<-read.table( 
"
hw1_data.txt
",header=TRUE,sep=“\t”) 

如果是标准的CSV文件，那么可以使用read.table还可以使用read.csv函数读取：

       x<-read.csv( 
"
hw1_data.csv
") 

读取Excel格式的文件

Excel格式分为老的xls和新的xlsx两种，其实读取方法是一样的，一般现在使用的都是xlsx格式的Excel文件了，要读取这种格式的文件，需要安装package: xlsx。

        library(xlsx) 
 excelFile<- 
"
test1.xlsx
"
 excel<-read.xlsx(excelFile, 
1) 

最后那个参数1表示读取第一个Sheet，如果要读取第二个Sheet就将该参数改为2.

读取Url

如果我们想直接读取一个Url文件，那么可以使用url函数建立一个connection，然后使用readLines函数得到该Url的内容。

比如：

       b<-url( 
"
http://www.baidu.com
") 
 html<-readLines(b) 

这些需要说明的是，除了HTTP协议，还可以使用ftp协议file://共享文件夹。另外还可以设置访问网络的代理。

读取数据库

如果需要在R中连接数据库，主要是使用ODBC来连接，需要安装包RODBC。如果是Linux或者Mac平台，对于MySQL数据库，可以安装RMySQL包。

因为我现在是Mac，就以MySQL为例，我在MySQL的test数据库中建立了一个表Employee，现在需要读取该表。

       library(RMySQL) 
 conn<-dbConnect(MySQL(),dbname= 
"
test
",host= 
"
127.0.0.1
") 

接下来我们要查看有哪些表，可以：

dbListTables(conn)

如果我要查询Employee表中的所有数据，那么：

       emp<-dbGetQuery(conn, 
"
select * from Employee”)

查询完了数据库记得关闭连接，这是一个好习惯：

       dbDisconnect(conn) 

如果我们连接的不是MySQL，那么就需要安装对应的数据库连接的包。比如：

另外也可以用JDBC来访问数据库，包是RJDBC