R语言：如何用数据框列的对应项替换嵌套列表元素

现有一个带命名的嵌套基因列表：

genes = list(c("her15.1", "her15.2", "her4.2", "her4.1", "dla"), c("pdyn", "cbln1", "kctd4", "sox1b" ), c("prph","phox2a", "phox2bb",  "tac1", "slc18a3a"))
genes <- setNames(genes, c("a", "b", "c"))

同时有一个数据框，其中V2列为基因名称，V1列为对应的ID：

# 可直接运行的数据框
df <- structure(list(V1 = c("ENSDARG00000008131", "ENSDARG00000010791", "ENSDARG00000068691", "ENSDARG00000091029", "ENSDARG00000006356", "ENSDARG00000057296", "ENSDARG00000014490", "ENSDARG00000007406", "ENSDARG00000056732", "ENSDARG00000094426", "ENSDARG00000087798", "ENSDARG00000028306", "ENSDARG00000054560"), V2 = c("sox1b", "dla", "kctd4", "phox2bb", "slc18a3a", "cbln1", "tac1", "phox2a", "her4.1", "her4.2", "pdyn", "prph", "her15.1")), class = "data.frame", row.names = c("8694", "8855", "9408", "14309", "15322", "16000", "17897", "19208", "19593", "19594", "19975", "22102", "22717"))

需求：根据V2列的匹配关系，将嵌套列表中的每个基因名称替换为数据框V1列对应的ID。

解决方案 #

方法1：命名向量映射（高效简洁） #

先构建基因名到ID的映射向量，再批量替换：

# 创建映射：基因名作为向量名称，对应ID作为向量值
gene_to_id <- setNames(df$V1, df$V2)

# 遍历列表替换每个元素
genes_converted <- lapply(genes, function(x) gene_to_id[x])

# 查看结果
print(genes_converted)

该方法的优势是映射向量可重复使用，替换逻辑直观，适合多次转换场景。

方法2：直接用match匹配（无需额外变量） #

如果只需要单次转换，可直接在lapply中用match定位位置并提取ID：

genes_converted <- lapply(genes, function(x) df$V1[match(x, df$V2)])

match(x, df$V2)会返回每个基因名在df$V2中的位置，再用该位置提取df$V1的对应值。

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