R语言for循环用assign生成列表去重data.frame结果异常如何解决

• 核心错误是变量引用逻辑完全错误：你在lapply、lengths等函数里传入的是paste0生成的字符串（比如"Pattern_A"），而不是字符串对应的实际R对象，导致所有操作都是对字符串本身执行，根本没有处理你原始的A、B列表数据。
• 初始数据引用错误：第一次循环时Pattern_xxx对象还没创建，你本来要处理的是原始的A、B列表，代码里完全没有关联到这两个原始数据源。
• 结果生成逻辑错误：你用matrix按行拼接的逻辑和你期望的「ID对应每个唯一值的长表」需求不符，生成的是宽表结构，和你给出的预期结果格式完全不同。

你可以直接用get()函数通过字符串获取对应变量，调整逻辑后如下：

for (j in 1:length(patterns)) {  
    # 先获取原始A/B列表
    raw_list <- get(patterns[j])
    # 去NA、取唯一值
    processed <- lapply(raw_list, function(x) unique(na.omit(x)))
    # 生成符合要求的data.frame
    res_df <- data.frame(
        ID = rep(names(processed), sapply(processed, length)),
        Match = unlist(processed), 
        row.names = NULL
    )
    # 赋值给Pattern_A/Pattern_B
    assign(paste0("Pattern_", patterns[[j]]), res_df)
}

运行后Pattern_A就是你给出的预期结果，Pattern_B同理。

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