如何根据R中的条件将文本文件拆分为多个.txt文件或数据帧？

首先我做了

install.packages("XML")
library(XML)

现在这有点棘手，因为您的文档（如上所示）没有根。如果你把它包起来

<mydoc>
...
</mydoc>

或类似的东西，您可以使用以下代码：

doc <- xmlRoot(xmlTreeParse("text.xml"))
df <- vector(length=length(doc))
for (i in 1:length(doc))
{ 
    text_node <- doc[[i]]$children$text
    text <- xmlToList(text_node)
    df[i] <- text
}

现在，假设您无法添加我在上面所做的人工根。您仍然可以将其解析为HTML，它更能容忍无效文档。在本示例中，我还使用了XPath（您也可以在上面的示例中使用）：

doc <- htmlTreeParse("text_noroot.xml")
content <- doc$children$html
textnodes <- getNodeSet(content, "//text")
df <- vector(length=length(textnodes))
for (i in 1:length(textnodes))
{ 
    text_node <- textnodes[[i]]$children$text
    text <- xmlToList(text_node)
    df[i] <- text
}