R新变量赋值

Question

我做了一个循环，将函数的结果赋值给新创建的变量。之后，该变量用于创建另一个。 这第二步不能产生预期的结果。

library(stringr) 
for (i in 1:length(Ids)){ 
    nam <- paste("data", Ids[i], sep = "_") 
    assign(nam, GetReportData(query, token,paginate_query = F)) 
    newvar=paste(nam,"contentid",sep="$") 
    originStr=paste(nam,"pagePath",sep="$") 
    assign(newvar,str_extract(originStr,"&id=[0-9]+")) 
} 

Answer 1

不要创建一堆变量，将相关值存储在命名列表中，以便于检索它们。你没有提供任何输入来测试，但我猜这是做同样的事情。

library(stringr) 
mydata <- lapply(1:length(Ids), function(i) { 
    dd <- GetReportData(query, token,paginate_query = F)) 
    dd$contentid <- str_extract(d$pagePath,"&id=[0-9]+")) 
    dd 
}) 

这将返回一个data.frames列表。你可以用mydata[[1]]，mydata[[2]]，访问它们等，而不是data_1，data_2等

如果你绝对坚持打造一组变量，只要确保做一个实际的对象上所有的转换，然后保存该对象当你完成了。如帮助页面中所述，您永远不能使用具有$或[的名称进行分配：“assign不分配分配方法，因此不能用于设置向量，名称，属性等元素。”例如

for(i in 1:length(Ids)) { 
    dd <- GetReportData(query, token,paginate_query = F)) 
    dd$contentid <- str_extract(d$pagePath,"&id=[0-9]+")) 
    assign(paste("data",i,sep="_"), dd) 
}