r - 优雅地连接表,即使一个不存在
问题描述
我正在循环工作并在每次迭代时生成一个 df 。当我迭代时,我将结果加入到一张大表中。以下代码按预期工作,但似乎过于复杂。有没有办法简化这个,所以我不必有一个 if/else 块?
if(exists("ModelOutput.Full")){
ModelOutput.Full <- ModelOutput.Full%>%
distinct()%>%
left_join(ModelOutput, by = "ID")
} else {
ModelOutput.Full <- ModelOutput
}
我希望只使用 else 代码并让它在第一次迭代时创建 ModelOutput.Full ,但这并没有发生。
另外,请随意提出我没有询问的其他优化。我确定它们存在。
编辑 2:感谢 DSGym 的输入,我已经完成了这项工作,尽管对他们的答案进行了轻微修改,因为我在最初的问题中没有提供可重现的代码。这是对我有用的说明:
regions <- c(1:7)
drivers <- c(1:5)
ModelOutput <- list()
ModelOutput.Regional <- list()
ID <- c(1:6961896)%>%
as.vector()%>%
as.data.frame()%>%
rename("ID"=".")
modelOutput <- list()
modelOutput.regional <- list()
for (region in regions) {
for (driver in drivers)
vals <- sample(0:10, 6961896, replace = TRUE)/10
outName <- paste("driver",driver,sep="")
vals <- vals%>%
as.vector()%>%
as.data.frame()%>%
rename(!!outName := ".")%>%
bind_cols(ID)
ModelOutput[[driver]] <- vals
}
ModelOutput.Regional[[region]] <- as.data.frame(Reduce(function(x, y) merge(x, y, by = "ID", all.x = TRUE), ModelOutput))
}
ModelOutput.Full <- Reduce(function(x, y) bind_rows(x, y), ModelOutput.Regional)
这会生成我想要的巨型数据框输出,其中包含所有区域数据和标记列中每个“驱动程序”的分数,如下所示:
ID driver1 driver2 driver3 driver4 driver5
1 0.1 0.2 0.4 0.6 0.4
2 0.4 0.6 0.5 0.7 0.7
3 0.3 0.7 0.5 0.2 0.3
解决方案
正如 MrFlick 在上面的评论中提到的那样。最后合并数据帧更容易。您可以执行以下操作。
由于我不知道您的循环结构是什么样的,因此我假设您可以生成一个名为的数据帧向量dfs
# method 1
ModelOutput.Full = dplyr::bind_rows(dfs)
# method 2
ModelOutput.Full = do.call("rbind", dfs)