这样数据如何读入？

部分数据如下，每一行的长度都不一样，直接read.table会提示

> x=read.table("racing.txt")

错误于scan(file, what, nmax, sep, dec, quote, skip, nlines, na.strings,  :   3行没有13元素

racing.zip (1.27 KB) 本附件包括：

• racing.txt

2012-5-1 08:47:05 上传

谢谢高手指点~

ywh兄建议的小修改如下:
fileID <- file("racing.txt",open="rt")
nFields <- count.fields(fileID)
mat <- matrix(nrow=length(nFields),ncol=max(nFields))
invisible(seek(fileID,where=0,origin="start",rw="read"))  #81 x 19 NA matrix
for(i in 1:nrow(mat) ) {
   mat[i,1:nFields] <-scan(fileID,what=double(),nlines=1,quiet=TRUE)
}
close(fileID)
df <- as.data.frame(mat)
df

###################
由于你的data matrix,每个row差异很大
若是第一个row是最长的,那好办
read.csv("racing1.csv",na.strings='',header=FALSE)
racing1.csv
racing1.rar (1.12 KB) 本附件包括：

• racing1.csv

2012-5-1 14:12:07 上传

##################
要不然就类似unbalanced data: '.' or 'NA'
racing.csv
racing.rar (1.14 KB) 本附件包括：

• racing.csv

2012-5-1 14:12:21 上传

race= read.csv("racing.csv",na.strings='.',header=FALSE)
#or replace these by zeros:
race[is.na(race)] <- 0
race

https://stat.ethz.ch/pipermail/r-help/2007-March/127355.html


试一下这个可不可以。

可以用read.fwf来按指定的列读取

恩，谢谢楼上各位！
借鉴epoh兄的方法，先转成csv再读取，呵呵，受教啦~~
再次谢谢各位~~

另外在读取过程中如果碰到“在读取'file.csv'时遇到了不完全的最后一行”的情况
可以把数据重新复制粘贴成一个新的csv文件，再读这个文件就好了

给后来的同学作参考，呵呵

呵呵，转成csv读取的话老出现莫名其妙的问题，
可以考虑先转成excel，然后
library(RODBC)
x<-odbcConnectExcel("racing.xls")
xx<-sqlFetch(x,"Sheet1")
这样也挺顺利

kk22boy 发表于 2012-5-1 14:39
另外在读取过程中如果碰到“在读取'file.csv'时遇到了不完全的最后一行”的情况
可以把数据重新复制粘贴成 ...

出现这种情况，一般是很多人直接把xls改为csv文件，而不是另存为。
如果排除了上面的情况而还是错误的话，那么在最后一个数字上按下Enter键有效。
哈哈，看到别人的总结，据说有效，以后可以考虑。