R语言中使用变量索引创建循环遇结果向量为NULL的问题

核心错误分析 #

你的代码存在三个关键问题，直接导致结果异常：

• 逻辑偏离需求：目标是找「死亡人数最多的年龄」，但代码完全没用到死亡人数相关字段，反而用which.max(data$year)——这是找数据集中年份最大的行，和死亡人数毫无关系。
• 未按循环年份筛选数据：循环遍历years中的每个年份，但没有筛选出当前年份对应的行，每次都在全量数据中取值，逻辑完全错误。
• 类型不匹配风险：如果data$year是数值型（如2020），但你定义的years是字符串型（如"2020"），两者无法匹配，会导致提取不到有效数据。

修正后的代码 #

假设你的数据集data包含三个字段：year（年份，建议用数值型）、age（年龄）、death_count（对应年龄的死亡人数），以下是修正后的for循环代码：

# 初始化结果向量
result <- c()
# 确保年份类型与data$year一致（这里假设data$year是数值型）
years <- c(2020, 2021, 2022)
i <- 1

for (year in years) {
  # 筛选当前年份的所有记录
  year_subset <- data[data$year == year, ]
  # 找到该年份死亡人数最多的记录索引
  max_death_pos <- which.max(year_subset$death_count)
  # 提取对应年龄并存入结果
  result[i] <- year_subset$age[max_death_pos]
  i <- i + 1
}

# 给结果向量命名，方便对应年份
names(result) <- years

如果data$year是字符型，只需把years改成c("2020", "2021", "2022")即可。

补充说明 #

如果你的需求是「找出所有年份中死亡总人数最多的年份，再返回该年份死亡人数最多的年龄」，可以简化为：

# 先计算每个年份的总死亡人数，找出总死亡最多的年份
total_death_by_year <- tapply(data$death_count, data$year, sum)
max_total_year <- as.integer(names(which.max(total_death_by_year)))

# 提取该年份中死亡人数最多的年龄
target_age <- data$age[data$year == max_total_year][which.max(data$death_count[data$year == max_total_year])]

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