Holen Sie sich Informationen aus einer Spalte

Question

Ich habe diese Spalte in einem Datenrahmen von R Studio und ich möchte die Informationen nach innen bekommen. Dies ist, wie einer der Leitungen in der Spalte wie folgt aussieht:

<goal> 
    <value> 
     <comment>n</comment> 
     <stats> 
     <goals>1</goals> 
     <shoton>1</shoton> 
     </stats> 
     <event_incident_typefk>71</event_incident_typefk> 
     <elapsed>2</elapsed> 
     <player1>43372</player1> 
     <sortorder>0</sortorder> 
     <team>8370</team> 
     <id>2305454</id> 
     <n>34</n> 
     <type>goal</type> 
     <goal_type>n</goal_type> 
    </value> 
    <value> 
     <comment>n</comment> 
     <stats> 
     <goals>1</goals> 
     <shoton>1</shoton> 
     </stats> 
     <event_incident_typefk>71</event_incident_typefk> 
     <elapsed>4</elapsed> 
     <player1>2983</player1> 
     <sortorder>0</sortorder> 
     <team>8603</team> 
     <id>2305455</id> 
     <n>30</n> 
     <type>goal</type> 
     <goal_type>n</goal_type> 
    </value> 
    <value> 
     <comment>n</comment> 
     <stats> 
     <goals>1</goals> 
     <shoton>1</shoton> 
     </stats> 
     <event_incident_typefk>71</event_incident_typefk> 
     <elapsed>62</elapsed> 
     <player1>358127</player1> 
     <sortorder>0</sortorder> 
     <team>8370</team> 
     <id>2305677</id> 
     <n>33</n> 
     <type>goal</type> 
     <goal_type>n</goal_type> 
    </value> 
</goal> 

Ich will sehen, ob es ein Weg, um zu sehen wie folgt aus: ex.

Tor Tore Shoton

..n ....... 1 ......... 1

und so weiter ..

Answer 1

Was Sie haben, ist ein XML-Zeichenfolge Sie können es analysieren, um es in eine Liste umzuwandeln, und von dort aus alles tun, was Sie brauchen. Nur ein Beispiel, nach dem, was Sie gebeten:

test <- "<goal><value><comment>n</comment><stats><goals>1</goals><shoton>1</shoton></stats><event_incident_typefk>71</event_incident_typefk><elapsed>2</elapsed><player1>43372</player1><sortorder>0</sortorder><team>8370</team><id>2305454</id><n>34</n><type>goal</type><goal_type>n</goal_type></value><value><comment>n</comment><stats><goals>1</goals><shoton>1</shoton></stats><event_incident_typefk>71</event_incident_typefk><elapsed>4</elapsed><player1>2983</player1><sortorder>0</sortorder><team>8603</team><id>2305455</id><n>30</n><type>goal</type><goal_type>n</goal_type></value><value><comment>n</comment><stats><goals>1</goals><shoton>1</shoton></stats><event_incident_typefk>71</event_incident_typefk><elapsed>62</elapsed><player1>358127</player1><sortorder>0</sortorder><team>8370</team><id>2305677</id><n>33</n><type>goal</type><goal_type>n</goal_type></value></goal>" 

vector <- unlist(xmlToList(test)) 
summary <- vector[c("value.goal_type", "value.stats.goals", "value.stats.shoton")] 
names(summary) <- c("Goal", "Goals", "Shoton")