如何按名称匹配列表元素，调用prevR库的s.prevR函数？

问题核心是Map默认按位置顺序匹配两个列表的元素，而非按名称匹配。要实现按国家名称对应处理，需先建立Results数据框与Countries空间数据的名称关联，再批量执行s.prevR。

分场景处理 #

场景1：Results元素名称含国家标识（如Ethiopia_2005） #

如果Results的元素名称是「国家名+年份」格式，先提取国家名，再匹配对应Countries的空间数据：

# 1. 提取每个Results元素对应的国家名（假设名称格式为"国家_年份"）
result_country_names <- sapply(names(Results), function(x) strsplit(x, "_")[[1]][1])

# 2. 为每个Results数据框匹配对应的Countries空间数据
matched_data <- mapply(function(df, country) {
  list(data = df, shape = Countries[[country]])
}, Results, result_country_names, SIMPLIFY = FALSE)

# 3. 批量执行s.prevR
final_output <- lapply(matched_data, function(pair) {
  s.prevR(pair$data, col, pair$shape)
})

# 保留原Results的命名
names(final_output) <- names(Results)

场景2：Results元素名称直接是国家名（如多个Ethiopia元素） #

如果Results中同一国家有多个年份的数据（元素名称重复为国家名），先按国家分组，再批量处理：

# 1. 按国家名分组Results数据框
grouped_results <- split(Results, names(Results))

# 2. 对每个国家的所有数据框，匹配对应空间数据并执行s.prevR
final_output <- lapply(names(grouped_results), function(country) {
  lapply(grouped_results[[country]], function(df) {
    s.prevR(df, col, Countries[[country]])
  })
})

# 命名输出列表
names(final_output) <- names(grouped_results)

关键说明 #

• 确保Countries列表的名称与Results中提取的国家名完全一致（大小写、拼写需匹配）
• 若Results的命名规则不同，只需调整result_country_names的提取逻辑即可适配

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