如何将异常数据格式导入R？

Question

格式由行组成，每行都有一组key =“value”元素。

格式示例：

X="1" Y="2" Z="who are you?"
Y="4" Z="bla bla..."
X="42"

我想将这些数据导入R，table或data.frame，其中key定义了列。

Answer 1

以下代码以“融化”形式解析您提供的文件：

data<-NULL 
stream<-file("path");open(stream) #or stream<- textConnection(' X="1" Y="2" Z="who are you?" Y="4" Z="bla bla..." X="42"')
while(length(ele<-c(scan(stream,what="string",n=1,sep="="),scan(stream,what="string",n=1,sep=" ")))>0){
    data<-rbind(data,ele);
}
close(stream);
print(data);

现在结晶：

 sapply(unique(data[,1]),function(key) data[data[,1]==key,2])