R：將XML讀取為data.frame

Question

我正在面對這個問題，我無法讀取.xml文件以使其成為R中的data.frame 。我知道這個問題在這里和這里已經有了很好的答案，但是我無法拒絕我的需要，對不起，如果重復的話。

我有一個像這樣的.xml ：

<?xml version='1.0' encoding='UTF-8'?>
<LexicalResource>
  <GlobalInformation label="Created with the standard propagation algorithm"/>
  <Lexicon languageCoding="UTF-8" label="sentiment" language="-">
    <LexicalEntry id="id_0" partOfSpeech="adj">
      <Lemma writtenForm="word"/>
      <Sense>
        <Confidence score="0.333333333333" method="automatic"/>
        <Sentiment polarity="negative"/>
        <Domain/>
      </Sense>
    </LexicalEntry>
        </Lexicon>
</LexicalResource>

本地存儲。 所以我嘗試了這種方式：

library(XML)
    doc<-xmlParse("...\\test2.xml")
    xmldf <- xmlToDataFrame(nodes=getNodeSet(doc,"//LexicalEntry/Lemma/Sense/Confidence/Sentiment"))

但是結果是這樣的：

> xmldf
data frame with 0 columns and 0 rows

所以我嘗試了xml2包：

library(xml2)
pg <- read_xml("...test2.xml")

recs <- xml_find_all(pg, "LexicalEntry")

> recs
{xml_nodeset (0)}

我在處理.xml文件方面缺乏知識，因此我認為我沒有抓住重點。 我究竟做錯了什么？

Answer 1

您需要屬性，而不是值，這就是為什么您使用的方法不起作用的原因，請嘗試如下操作：

data.frame(as.list(xpathApply(doc, "//Lemma", fun = xmlAttrs)[[1]]), 
           as.list(xpathApply(doc, "//Confidence", fun = xmlAttrs)[[1]]), 
           as.list(xpathApply(doc, "//Sentiment", fun = xmlAttrs)[[1]]))

  writtenForm          score    method polarity
1        word 0.333333333333 automatic negative

另一個選擇是獲取xml的所有屬性，並使用它們構建一個data.frame：

df <- data.frame(as.list(unlist(xmlToList(doc, addAttributes = TRUE, simplify = TRUE))))
colnames(df) <- unlist(lapply(strsplit(colnames(df), "\\."), function(x) x[length(x)]))
df
                                            label writtenForm          score    method 
1 Created with the standard propagation algorithm        word 0.333333333333 automatic 
  polarity   id partOfSpeech languageCoding     label language
1 negative id_0          adj          UTF-8 sentiment        -