2015-07-19 57 views
0

我有一個XML文件,我在R中解析並且必須讀取它並將其轉換爲隨後可以由行ID排列的數據幀。此XML文件R中的XML解析和數據幀轉換

<tags> 
<row Id="1" TagName="bayesian" Count="1342" ExcerptPostId="20258" WikiPostId="20257"/> 
<row Id="2" TagName="prior" Count="168" ExcerptPostId="62158" WikiPostId="62157"/> 
<row Id="3" TagName="elicitation" Count="6"/> 
<row Id="4" TagName="normality" Count="191" ExcerptPostId="67815" WikiPostId="67814"/> 
<row Id="5" TagName="open-source" Count="13"/> 
</tags> 

我嘗試使用XMLparse

Tags_data <- xmlParse("../Tags.xml",useInternalNodes = True) 
xml_Data <- xmlToList(Tags_data) 
ldply(xml_Data,data.frame) 

不知怎的,它給我的錯誤,行不被轉換成data.frame。

+0

的錯誤上使用xmlAttrsToDataFrame我得到的是「Error in xmlParse(xml,useInternalNodes = True): object'True'not found」。真應該是「真」 – scoa

回答

1

邏輯值TRUER中應始終全部大寫。此外,爲了輸出每觀察一排一個data.frame,你應該在ldply使用rbind而不是data.frame

library(XML) 
library(plyr) 
xml <- '<tags> <row Id="1" TagName="bayesian" Count="1342" ExcerptPostId="20258" WikiPostId="20257"/> 
    <row Id="2" TagName="prior" Count="168" ExcerptPostId="62158" WikiPostId="62157"/> 
    <row Id="3" TagName="elicitation" Count="6"/> 
    <row Id="4" TagName="normality" Count="191" ExcerptPostId="67815" WikiPostId="67814"/> 
    <row Id="5" TagName="open-source" Count="13"/> 
    </tags>' 

Tags_data <- xmlParse(xml,useInternalNodes = TRUE) 
xml_Data <- xmlToList(Tags_data) 

ldply(xml_Data,rbind) 

    .id Id  TagName Count ExcerptPostId WikiPostId 
1 row 1 bayesian 1342   20258  20257 
2 row 2  prior 168   62158  62157 
3 row 3 elicitation  6   <NA>  <NA> 
4 row 4 normality 191   67815  67814 
5 row 5 open-source 13   <NA>  <NA> 
0

你也可以排節點

doc <- xmlParse(xml) 
XML:::xmlAttrsToDataFrame(doc["//row"]) 
    Id  TagName Count ExcerptPostId WikiPostId 
1 1 bayesian 1342   20258  20257 
2 2  prior 168   62158  62157 
3 3 elicitation  6   <NA>  <NA> 
4 4 normality 191   67815  67814 
5 5 open-source 13   <NA>  <NA>