file<-file("D:\\housing.txt","r") #打开
data=matrix()
i=1
f1=readLines(file,n=1) #读一行
line=gsub(":"," ",f1) #按空格分割每行
x=strsplit(line," ") #按空格分割每行
data=unlist(x)
while(length(f1)!=0){
f1=readLines(file,n=1) #
line=gsub(":"," ",f1) #按空格分割每行
x=strsplit(line," ") #按空格分割每行
temp_data=unlist(x)
data=rbind(data,temp_data)
i=i+1
}
close(file)
data就是你要的,我对了一下是对的
程序运行可能有点警告信息,我也没找出是哪,但结果是对的,将就用吧,哈哈 |