在R中保存在for循环中创建的具有不同名称的列表对象答案

【问题标题】：save the list objects created in forloop with different names in R在R中保存在for循环中创建的具有不同名称的列表对象
【发布时间】：2021-10-16 08:11:56
【问题描述】：

我想将 for 循环创建的所有列表对象保存为环境中的不同数据集，并使用它们的正确名称，例如 gapminder_Asia, gapminder_Europe,..etc. 提前非常感谢。

library(gapminder)
cont <- unique(gapminder$continent)
df <- NULL
for(i in 1:(length(cont))) {
  temp <- gapminder[gapminder$continent == cont[i], ]
  colnames(temp) <- paste0(paste(cont[i]))
  df[[i]] <- temp
}

df

预期的答案，

> unique(gapminder$continent)
[1] Asia     Europe   Africa   Americas Oceania 

head(gapminder_Asia) 

 1 Afghanistan Asia   1952  28.8  8425333  779.
 2 Afghanistan Asia   1957  30.3  9240934  821.
 3 Afghanistan Asia   1962  32.0 10267083  853.
 4 Afghanistan Asia   1967  34.0 11537966  836.
 5 Afghanistan Asia   1972  36.1 13079460  740.

【问题讨论】：

标签： r data-manipulation

【解决方案1】：

就我个人而言，我更喜欢使用例如将数据集保存在列表中。 split 但如果您想要的结果是拥有不同的命名对象，那么您可以通过 assign 来实现：

library(gapminder)

df <- split(gapminder, gapminder$continent)
for(i in names(df)) {
  assign(paste("gapminder", i, sep = "_"), df[[i]])
}

gapminder_Africa
#> # A tibble: 624 × 6
#>    country continent  year lifeExp      pop gdpPercap
#>    <fct>   <fct>     <int>   <dbl>    <int>     <dbl>
#>  1 Algeria Africa     1952    43.1  9279525     2449.
#>  2 Algeria Africa     1957    45.7 10270856     3014.
#>  3 Algeria Africa     1962    48.3 11000948     2551.
#>  4 Algeria Africa     1967    51.4 12760499     3247.
#>  5 Algeria Africa     1972    54.5 14760787     4183.
#>  6 Algeria Africa     1977    58.0 17152804     4910.
#>  7 Algeria Africa     1982    61.4 20033753     5745.
#>  8 Algeria Africa     1987    65.8 23254956     5681.
#>  9 Algeria Africa     1992    67.7 26298373     5023.
#> 10 Algeria Africa     1997    69.2 29072015     4797.
#> # … with 614 more rows

^{由reprex package (v2.0.1) 于 2021-10-16 创建}

【讨论】：