在R中如何基于另一个列表内容为列表内数据框分配对应ZoneID？

以下是适配你需求的两种R实现方案：

tidyverse 实现（代码可读性更高） #

# 加载依赖包
library(tidyverse)

# 取两个列表共有的名称，保证配对完全对应
common_names <- intersect(names(A), names(list_all_zones))

# 遍历配对元素更新ZoneID
A_updated <- map(common_names, function(cur_name) {
  # 提取当前名称对应的两个数据框
  cur_A <- A[[cur_name]]
  cur_zone <- list_all_zones[[cur_name]]
  
  # 将Zone映射表转换为 PointID-ZoneID 一对一结构
  zone_map <- pivot_longer(cur_zone, cols = everything(), 
                           names_to = "ZoneID", values_to = "PointID")
  
  # 匹配替换原有ZoneID
  cur_A %>%
    select(-ZoneID) %>% # 移除原有全为0的ZoneID字段
    left_join(zone_map, by = "PointID") # 按PointID关联匹配正确Zone
}) %>%
  set_names(common_names) # 保持列表原有命名

如果存在同一个PointID对应多个Zone的情况，可在left_join后补充distinct(PointID, .keep_all = TRUE)去重。如果匹配不到的PointID需要保留初始0值，可补充mutate(ZoneID = replace_na(ZoneID, "0"))。

base R 实现（无需加载第三方包） #

common_names <- intersect(names(A), names(list_all_zones))
A_updated <- setNames(lapply(common_names, function(cur_name) {
  cur_A <- A[[cur_name]]
  cur_zone <- list_all_zones[[cur_name]]
  
  # 生成一对一映射表
  zone_map <- data.frame(
    PointID = unlist(cur_zone),
    ZoneID = rep(names(cur_zone), each = nrow(cur_zone))
  )
  
  # 匹配替换ZoneID
  cur_A$ZoneID <- zone_map$ZoneID[match(cur_A$PointID, zone_map$PointID)]
  return(cur_A)
}), common_names)

运行完成后A_updated即为更新完ZoneID的结果列表，结构与原列表A完全一致。

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