R语言循环计算多数据框prop_AFR均值遇NaN问题求助

你的代码返回NaN的原因有两个：

• 循环中误用了未定义的Year变量，应该用循环变量i；
• 直接将拼接出来的字符串（比如"mali2014$prop_AFR"）转成数值是错误的，这个字符串只是文本，不是实际的数据框变量引用。

下面是两种可行的实现方式：

方式一：修正原循环逻辑 #

用get()函数获取对应名称的数据框，再提取变量计算均值：

for (i in 2013:2017) {
  # 根据名称获取数据框
  current_df <- get(paste0("mali", i))
  # 计算prop_AFR的均值（忽略NA）
  mean_result <- mean(current_df$prop_AFR, na.rm = TRUE)
  # 将结果赋值给新变量
  assign(paste0("Mali_prop_AFR_", i), mean_result)
}

方式二：更推荐的列表批量处理 #

在R中，用列表管理多个同类型数据框是更规范的做法，避免零散变量的混乱：

# 把所有数据框存入一个列表
mali_dfs <- list(
  mali2013 = mali2013,
  mali2014 = mali2014,
  mali2015 = mali2015,
  mali2016 = mali2016,
  mali2017 = mali2017
)

# 批量计算每个数据框的prop_AFR均值
mean_afr_results <- lapply(mali_dfs, function(df) {
  mean(df$prop_AFR, na.rm = TRUE)
})

# （可选）如果需要把结果转成全局环境中的单独变量
list2env(mean_afr_results, envir = .GlobalEnv)

这种方式的优势是后续可以轻松对结果做进一步处理（比如转成数据框查看所有均值）：

# 将结果转成数据框，方便查看
mean_afr_df <- data.frame(
  year = names(mean_afr_results),
  mean_prop_AFR = unlist(mean_afr_results)
)

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