obciążenia xml „wiersze” do tabeli danych R

Question

mam pewne dane ukształtowane tak:

<people> 
    <person first="Mary" last="Jane" sex="F" /> 
    <person first="Susan" last="Smith" sex="F" height="168" /> 
    <person last="Black" first="Joseph" sex="M" /> 
    <person first="Jessica" last="Jones" sex="F" /> 
</people> 

Chciałbym ramki danych, który wygląda tak:

first last sex height 
1 Mary Jane F  NA 
2 Susan Smith F 168 
3 Joseph Black M  NA 
4 Jessica Jones F  NA 

stałam to daleko:

library(XML) 
xpeople <- xmlRoot(xmlParse(xml)) 
lst <- xmlApply(xpeople, xmlAttrs) 
names(lst) <- 1:length(lst) 

Ale nie mogę do końca życia wymyślić, jak uzyskać listę w ramce danych. Mogę dostać listę jako „kwadrat” (czyli wypełnić luki), a następnie umieścić je w ramce danych:

lst <- xmlApply(xpeople, function(node) { 
    attrs = xmlAttrs(node) 
    if (!("height" %in% names(attrs))) { 
    attrs[["height"]] <- NA 
    } 
    attrs 
}) 
df = as.data.frame(lst) 

Ale mam następujące problemy:

1. Rama dane są transponowane
2. pierwszy i ostatni są czynnikami, nie CHR
3. wysokość jest czynnikiem, nie numeryczny
4. z imion i nazwisk, ale zamieniłem się za Joseph Black (nie jest to duży problem, ponieważ moje dane są zwykle spójne, lecz denerwujące jednak)

Jak mogę uzyskać ramkę danych we właściwej formie?

Answer 1

txt <- '<people> 
      <person first="Mary" last="Jane" sex="F" /> 
      <person first="Susan" last="Smith" sex="F" height="168" /> 
      <person last="Black" first="Joseph" sex="M" /> 
      <person first="Jessica" last="Jones" sex="F" /> 
     </people>' 
library(XML)   # for xmlTreeParse 
library(data.table) # for rbindlist(...) 
xml <- xmlTreeParse(txt, asText=TRUE, useInternalNodes = TRUE) 
rbindlist(lapply(xml["//person"],function(x)as.list(xmlAttrs(x))),fill=TRUE) 
#  first last sex height 
# 1: Mary Jane F  NA 
# 2: Susan Smith F 168 
# 3: Joseph Black M  NA 
# 4: Jessica Jones F  NA 

Trzeba as.list(xmlAttrs(...)) zamiast tylko xmlAttrs(...) ponieważ rbindlist(...) chce każdy argument być lista, a nie wektorowych.