循环根据r中的列表分配新对象的名称

Question

我刚开始阅读xml文件，在将它们转换为列表后，我一直在尝试为环境分配新对象的名称。

我读取了一个目录的35个文件，并用XML包的xmlParse对它们进行了解析。我把它们转换成一个列表。

for(i in dir()){
assign(i, xmlParse(i))}
for(i in ls()){
assign(i, xmlToList(i))
}
rm(i)

所有文件的名称都是这样的：

ls()
[1] "en_product3_146.xml" "en_product3_147.xml" "en_product3_148.xml" "en_product3_149.xml"
[5] "en_product3_150.xml" "en_product3_152.xml" "en_product3_156.xml" "en_product3_181.xml"
[9] "en_product3_182.xml" "en_product3_183.xml" "en_product3_184.xml" "en_product3_185.xml"
[13] "en_product3_186.xml" "en_product3_187.xml" "en_product3_188.xml" "en_product3_189.xml"
[17] "en_product3_193.xml" "en_product3_194.xml" "en_product3_195.xml" "en_product3_196.xml"
[21] "en_product3_197.xml" "en_product3_198.xml" "en_product3_199.xml" "en_product3_200.xml"
[25] "en_product3_201.xml" "en_product3_202.xml" "en_product3_203.xml" "en_product3_204.xml"
[29] "en_product3_205.xml" "en_product3_209.xml" "en_product3_212.xml" "en_product3_216.xml"
[33] "en_product3_229.xml" "en_product3_231.xml" "en_product3_233.xml"

所有这些文件都有相同的结构，我想将对象名称替换为这些列表的值。路径是：

head(en_product3_150.xml$DisorderList$Disorder$ClassificationNodeList$ClassificationNode$ClassificationNodeChildList[5]$ClassificationNode$Disorder$Name$text)
[1] "Disorder of carbohydrate metabolism"
head(en_product3_147.xml$DisorderList$Disorder$ClassificationNodeList$ClassificationNode$ClassificationNodeChildList[5]$ClassificationNode$Disorder$Name$text)
[1] "Digestive tract malformation"

我在尝试assign一个新名称时遇到了一些问题，就像上面的代码一样，但我没有成功。

for(i in ls()){
assign(paste0(i,"$DisorderList$Disorder$ClassificationNodeList$ClassificationNode$ClassificationNodeChildList[5]$ClassificationNode$Disorder$Name$text"), i)}

如果能给我一些建议，我将不胜感激。提前感谢！

Answer 1

您可能需要首先使用get()来访问环境中的对象，创建新对象的名称，然后使用assign()进行分配。

rm(list = ls())
# put some things in the environment
x <- list(a = "hello", b = "world")
y <- list(a = "hola", b = "mundo")
z <- list(a = "bonjour", b = "monde")
# loop through environment objects; 
# use get() to access, and assign() to put back 
for (i in ls()) {
temp <- get(i)
new_name <- temp$a
assign(new_name, temp)
rm(i, temp) # removes object i, not the object whose name is stored in i
}
ls()

请注意，使用此代码，您将拥有两个名称不同但内容相同的对象。

Answer 2

重新考虑单独保存充斥全局环境的多个对象。相反，将类似的结构化对象存储在列表中，以便进行可索引搜索和一致处理。因此，您只管理35个元素中的一个对象，而不是管理35个对象。

对于这种通过迭代处理构建的结构，考虑lapply或它的包装器sapply，因为它保留了名称。apply系列是隐藏循环，返回长度相等的对象作为其输入：

xmls <- sapply(dir(), function(f) {
x <- xmlParse(f)
lst <- xmlToList(x)
t <- (lst$DisorderList
$Disorder
$ClassificationNodeList
$ClassificationNode
$ClassificationNodeChildList[5]
$ClassificationNode
$Disorder
$Name
$text)
return(t)
}, simplify = FALSE)

# OUTPUT ELEMENTS BY NAME
xmls$en_product3_146.xml
xmls$en_product3_147.xml
xmls$en_product3_148.xml
...