如何将R语言for循环的每次迭代结果存入新的列表元素？

你的问题根源在于species_list的结构错误：你把三个物种塞进了同一个列表元素中，导致函数循环仅执行1次，BIEN_occurrence_species一次性查询所有物种并返回合并结果，最终df_list只有1个元素。

以下是两种修正方案：

方案1：使用字符向量存储物种列表（更简洁） #

将物种列表改为普通字符向量，让每个物种成为独立元素，再调整函数遍历逻辑：

library(BIEN)

# 改为字符向量，每个物种单独成元素
species_list <- c("Lonicera hispida","Hylocomium splendens","Deschampsia antarctica")

occurrences <- function(spp) {
  list_of_occ <- list()
  # 遍历每个物种，用seq_along比1:length更安全
  for(i in seq_along(spp)){
    df <- BIEN_occurrence_species(species = spp[i],
                                  cultivated = TRUE,
                                  all.taxonomy = TRUE,
                                  native.status = TRUE,
                                  observation.type = TRUE,
                                  political.boundaries = TRUE)
    list_of_occ[[i]] <- df
    # 给列表元素命名，方便后续按物种名调用（可选）
    names(list_of_occ)[i] <- spp[i]
  }
  # 避免全局赋值，直接返回结果
  return(list_of_occ)
}

# 调用函数并接收结果
df_list <- occurrences(spp = species_list)

方案2：保留列表结构（适合复杂扩展场景） #

如果需要维持列表格式，确保每个物种是列表的独立元素：

library(BIEN)

# 每个物种单独作为列表的一个元素
species_list <- list("Lonicera hispida","Hylocomium splendens","Deschampsia antarctica")

occurrences <- function(spp) {
  list_of_occ <- list()
  for(i in seq_along(spp)){
    df <- BIEN_occurrence_species(species = spp[[i]],
                                  cultivated = TRUE,
                                  all.taxonomy = TRUE,
                                  native.status = TRUE,
                                  observation.type = TRUE,
                                  political.boundaries = TRUE)
    list_of_occ[[i]] <- df
    names(list_of_occ)[i] <- spp[[i]]
  }
  return(list_of_occ)
}

df_list <- occurrences(spp = species_list)

额外说明 #

• 使用seq_along(spp)替代1:length(spp)，可以避免物种列表为空时出现逻辑错误。
• 给列表元素命名后，你可以通过df_list[["Lonicera hispida"]]直接调用对应物种的结果，比索引更直观。
• 移除全局赋值<<-改为函数返回结果，符合R的标准编程习惯，避免污染全局环境。

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