使用R将xml解析为数据帧
我相信这个问题已经被回答了很多次……不过我想我掌握的数据有点独特。以下是我的数据集的一部分使用R将xml解析为数据帧,r,xml,R,Xml,我相信这个问题已经被回答了很多次……不过我想我掌握的数据有点独特。以下是我的数据集的一部分 <?xml version="1.0" encoding="UTF-8"?> <IOTModellerLog xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" DeviceID="7430180" ClientID="12324" FileCreationDate="2017-03-01T22:40:03" FileVersion
<?xml version="1.0" encoding="UTF-8"?>
<IOTModellerLog xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" DeviceID="7430180" ClientID="12324" FileCreationDate="2017-03-01T22:40:03" FileVersion="2" EventClassID="65535" IOTLogCreationDate="2017-03-01T12:29:54" SampleID="1" xsi:noNamespaceSchemaLocation="/opt/nds/ams_proxy/webapps/ams_proxy/WEB-INF/amsXmlSchema.xsd">
<Event EventTime="2017-02-27T18:33:58">
<IOTEvent State="PowerOn" />
</Event>
<Event EventTime="2017-02-28T08:59:03">
<DataEvent>
<Model>1</Model>
<DataType>1</DataType>
<DataValue>0301</DataValue>
</DataEvent>
</Event>
<Event EventTime="2017-02-28T08:59:13">
<DataEvent>
<Model>1</Model>
<DataType>1</DataType>
<DataValue>0401</DataValue>
</DataEvent>
</Event>
</IOTModellerLog>
我尝试了以下方法:
result <- xmlParse("demoxml.xml")
XML:::xmlAttrsToDataFrame(result["//Event"]) #This just prints only the time
xmlToDataFrame(nodes=getNodeSet(result,"//DataEvent"))[c("Model","DataType","DataValue")]
result我用了这样的东西
library(XML)
library(data.table)
result <- xmlParse('text_XML.xml')
result_nodes = XML::getNodeSet(result , "//IOTModellerLog/Event")
rbindlist(lapply(result_nodes,function(x) data.frame(as.list(unlist(xmlToList(x))))),use.names = TRUE, fill = TRUE)
IOTEvent.State .attrs.EventTime DataEvent.Model DataEvent.DataType DataEvent.DataValue
1: PowerOn 2017-02-27T18:33:58 NA NA NA
2: NA 2017-02-28T08:59:03 1 1 0301
3: NA 2017-02-28T08:59:13 1 1 0401
我想这是你可以使用的:)哇……非常感谢……这当然是我可以使用的。。。。
IOTEvent.State .attrs.EventTime DataEvent.Model DataEvent.DataType DataEvent.DataValue
1: PowerOn 2017-02-27T18:33:58 NA NA NA
2: NA 2017-02-28T08:59:03 1 1 0301
3: NA 2017-02-28T08:59:13 1 1 0401