从 R 中的 for 循环中输出对象，每一步都更改名称答案

【问题标题】：Output objects from within a for loop in R, with name changes in each step从 R 中的 for 循环中输出对象，每一步都更改名称
【发布时间】：2013-08-20 01:22:08
【问题描述】：

我正在尝试创建一个输出特定 sql 查询的 for 循环，该循环基于随每个步骤更改的条件。此外，我正在尝试根据创建它们的步骤指定输出名称。例如，步骤 1 将输出一个名为 species1 的表。我尝试编写的代码如下。我确信答案很简单，但对于我的一生，我无法找到正确的表达方式。提前感谢您的所有帮助

for (i in 1:15) {
Species[i]<-sqldf("SELECT StartYear, StartMonthNo, RegionCode, CommonName, EstimatedBiomassg, ScaledProportionofDominantNektonBiomass
                FROM TrawlBiomassbyMonth
                WHERE CommonName = TopSpecies[i,1]
                AND RegionCode=1")

Species[i]TimeSeries<-sqldf("SELECT TimeSeries.StartYear, TimeSeries.StartMonthNo, CommonName, EstimatedBiomassg, ScaledProportionofDominantNektonBiomass
                FROM TimeSeries
                LEFT JOIN Species[i]
                ON TimeSeries.StartYear = Species1.StartYear 
                AND TimeSeries.StartMonthNo = Species1.StartMonthNo")
Species[i]TimeSeries[is.na(Species[i]TimeSeries)] <- 0}

编辑

这是一个简化的例子：

for (i in 1:2) {
  Species[i]<-sqldf("SELECT StartYear, StartMonthNo, CommonName, Biomass
                    FROM ExampleBiomass
                    WHERE CommonName = ExampleTopSpecies[i,1])}

生物质产量

structure(list(StartYear = c(1985L, 1985L, 1985L, 1985L, 1985L, 
1985L, 1985L, 1985L, 1985L, 1985L, 1985L, 1985L, 1986L, 1986L, 
1986L, 1986L, 1986L, 1986L, 1986L, 1986L, 1986L, 1986L, 1986L, 
1986L), StartMonthNo = c(1L, 2L, 3L, 4L, 5L, 6L, 7L, 8L, 9L, 
10L, 11L, 12L, 1L, 2L, 3L, 4L, 5L, 6L, 7L, 8L, 9L, 10L, 11L, 
12L), CommonName = structure(c(1L, 1L, 2L, 2L, 1L, 1L, 1L, 2L, 
2L, 1L, 1L, 1L, 2L, 2L, 1L, 1L, 1L, 2L, 2L, 1L, 1L, 1L, 2L, 2L
), .Label = c("Ninja", "Pirate"), class = "factor"), Biomass = c(26L, 
107L, 126L, 35L, 84L, 147L, 98L, 141L, 112L, 43L, 28L, 79L, 36L, 
126L, 31L, 89L, 133L, 34L, 38L, 117L, 92L, 81L, 93L, 127L)), .Names = c("StartYear", 
"StartMonthNo", "CommonName", "Biomass"), class = "data.frame", row.names = c(NA, 
-24L))

TopSpecies 的输入

structure(list(CommonName = structure(1:2, .Label = c("Ninja", 
"Pirate"), class = "factor"), Biomass = c(500L, 450L)), .Names = c("CommonName", 
"Biomass"), class = "data.frame", row.names = c(NA, -2L))

【问题讨论】：

您可能应该使用列表来存储输出，而不是使用您指定的名称创建对象。以编程方式执行起来更干净，也更容易。听起来你也应该看看paste。
创建一个简单的可重现示例并显示输入和输出。使用dput 可以轻松重现输入。

标签： r loops for-loop

【解决方案1】：

你可以这样使用：

basic_query <- "SELECT StartYear, StartMonthNo, CommonName, Biomass FROM ExampleBiomass WHERE CommonName = "

Species <- list()

for (i in 1:2) {
  Species[[i]] <- sqldf(paste(basic_query, as.character(ExampleTopSpecies[i,1])))
}

一些解释：

basic_query 保存 SQL 查询的常用部分。
Species <- list() 创建一个空列表对象，将由您的循环填充。
Species[[i]] <- 将一个元素添加到列表 Species。
paste 只是连接字符串。
as.character(ExampleTopSpecies[i,1]) 是必需的，因为您的数据框包含因子。

【讨论】：