R中如何读txt中的部分内容

out1.txt (606 Bytes)

2013-12-12 12:42:10 上传

将txt文件中这3列读出来
         1        CGTA  219.000000
         2        CGTC  459.000000
         3        CGCA   98.000000
         4        CCTA    3.000000
         5        TCTA  238.000000
         6        TCTC   13.000000

存为数据框(数据框有3列)
注意：txt文件中内容保持不变。
谢谢！

看看这样的是否符合，金币给楼上

1. dat1 <-readLines("out1.txt",warn=F)
   
2. in_1=which(dat1=="BEGIN LIST_SUMMARY")
   
3. in_2=which(dat1=="END LIST_SUMMARY")
   
4. dat2 <-dat1[(in_1+1):(in_2-1)]
   
5. data=read.table(text=dat2,dec=" ");data

复制代码

1. f=scan("out1.txt",what="",skip=10)
   
2. t=f[1:(3*8)]
   
3. tt=matrix(t,ncol=3.byrow=T)
   
4. tt=as.data.frame(tt)

复制代码

yywan0913 发表于 2013-12-12 13:48

打开文件数到第10行太麻烦。
能否根据字符串"BEGIN LIST_SUMMARY"定位。

结束根据字符串"END"定位

学习下