R语言循环生成列表后将元素重命名为对应大洲名称的实现问题

方法1：基于你现有for循环修改 #

你只需要给最终生成的列表设置对应名称即可，在原有循环末尾加一行命名代码就行，修改后完整代码如下：

library(gapminder)
cont <- unique(gapminder$continent)
df <- list() # 建议初始化时就声明为列表类型，更规范
for(i in 1:length(cont)) {
  temp <- gapminder[gapminder$continent == cont[i], ]
  # 注意：你原有代码的colnames赋值逻辑是把所有列名都改成大洲名，如果你只需要改第一列名匹配示例效果，就用下面这行
  colnames(temp)[1] <- cont[i]
  df[[i]] <- temp
}
# 给列表设置对应大洲名称
names(df) <- cont

df

运行后你打印df时，第5个元素就会显示为$Oceania，而非[[5]]，也可以直接用df$Oceania调用对应数据集。

方法2：更简洁的原生函数实现（推荐） #

R内置的split()函数专门用于按分组字段拆分数据框为命名列表，自动用分组值作为列表元素名，不需要手动写循环：

library(gapminder)
# 直接拆分得到以大洲名为索引的列表
df <- split(gapminder, gapminder$continent)

# 如果需要调整每个子数据框的第一列名为对应大洲名，补充以下代码即可
df <- lapply(names(df), function(cont_name) {
  temp <- df[[cont_name]]
  colnames(temp)[1] <- cont_name
  return(temp)
})
names(df) <- unique(gapminder$continent)

内容的提问来源于stack exchange，提问作者symkly