R语言读写最灵活的文件——txt文件

Python042

R语言读写最灵活的文件——txt文件,第1张

原文链接R语言可以读取很多文件,其中以txt文本文件最为灵活,为什么呢,txt文件可以以任意符号作为分隔符,比如“,”,“\t”,空格,甚至`“……&¥¥%¥”`等任意自定义的分隔符号。 这里先把工作空间切换到D盘下面,默认的一般是C盘的文档,我们要有分层管理文件的概念,否则我们还是一个合格的程序员吗? >setwd('D:\\') 读取文本文件主要用read.table(filePath,header = ,sep=) filePath就是文件路径,header表示文件是否有头部,我这个文件没有头部,值就为false,sep表示文件是以什么符号作为分隔符号。 头部是什么意思呢? 现在这里有4个文件,分别以空格,逗号,制表符,“/”作为分隔符,下面分别将其读取: >dat <- read.table('1.txt',header = FALSE,sep = ' ') >dat2 <- read.table('2.txt',header = FALSE,sep = ',') >dat3 <- read.table('3.txt',header = FALSE,sep = '\t') >dat4 <- read.table('4.txt',header = FALSE,sep = '/') 读取出来的数据都是一样的: 因为第二个文件是以逗号作为分隔符,所以也是可以用read.csv()读取的,read.csv()也是一个读取文件函数,后面会讲到。 把刚才读取的数据写入到一个新的文本文件里面,可以用write.table(),形式为: write.table(dat,file = ,sep = ,row.names,col.names) 分别表示, dat:被写的数据, file:文件名(包含路径), sep:分隔符, row.names:是否有行名(比如第一行,第二行。。)就是行名, col.names:是否有列名,同上, 当然了,一般行名与列名需要取有实际意义的名字,比如列名可以取(年龄、性别、成绩,这种表格相信大家应该都见过吧!)。 这里分别用" ","aaa","\t"作为分隔符,生成了3个文件。 >write.table(dat,file = '5.txt',sep = ' ') >write.table(dat,file = '6.txt',sep = 'aaa') >write.table(dat,file = '7.txt',sep = '\t') 这样就保存了三个文件。当然了,你可以保存成任意你喜欢、需要的分隔符号。 原文链接: 原文链接

第一:R中读取excel文件中的数据的路径:

假定在您的电脑有一个excel文件,原始的文件路径是:D:\work\data\1

如果直接把这个路径拷贝到R中,就会出现错误,原因是:

\是escape character(转义符),\\才是真正的\字符,或者用/

因此,在R中有两种方法读取该路径:

1:在R中输入一下路径:D:\\work\\data\\1

2:在R中输入一下路径:D:\\work\\data\\1

第二:R中读取excel文件中的数据的方法:

read.table(),read.csv(),read.delim()直接读取EXCEl文件时,都会遇到一下问题:“在读取‘.xls’的TableHeader时遇到不完全的最后一行”。解决的方法有以下几种:假如文件1.1中是一个6乘以2的矩阵,元素为:

123

224

325

426

527

628

方法1:xls另存为csv格式然后用read.csv:

具体过程如下:

>data<-read.csv("D:\\work\\data\\1.csv")

>data

X1 X23

1 2 24

2 3 25

3 4 26

4 5 27

5 6 28

>data<-read.csv("D:\\work\\data\\1.csv",header = F)

>data

V1V2

1 1 23333

2 224

3 325

4 426

5 527

6 628

>data<-read.csv("D:\\work\\data\\1.csv",header = T)

>data

X1 X23333

1 2 24

2 3 25

3 4 26

4 5 27

5 6 28

也就是说header = T(TURE)是默认的状态,在这默认状态下,输出的data矩阵是一个5乘以2的矩阵,第一行作为了data的名字,如果header = F(FALSE),则会现实原始的矩阵结果。

方法2:xls另存为txt格式然后用read.table:

如例子所示:

>data<-read.table("D:\\work\\data\\1.txt",header = T)

>data

X1 X23

1 2 24

2 3 25

3 4 26

4 5 27

5 6 28

>data<-read.table("D:\\work\\data\\1.txt",header = F)

>data

V1 V2

1 1 23

2 2 24

3 3 25

4 4 26

5 5 27

6 6 28

方法3:打开EXCEL,全选里面的内容,点击复制,然后在R中输入一下命令:

data <- read.table("clipboard", header = T, sep = '\t')

结果如下所示:

>data <- read.table("clipboard", header = T, sep = '\t')

>data

X1 X23

1 2 24

2 3 25

3 4 26

4 5 27

5 6 28

>data <- read.table("clipboard", header = F, sep = '\t')

>data

V1 V2

1 1 23

2 2 24

3 3 25

4 4 26

5 5 27

6 6 28