根据 R 中元素的名称匹配和排序两个列表

Question

我需要匹配两个列表，list_1 和 list_2，并根据元素名称按顺序排列它们。事实上，我想删除元素，这些元素在两个列表之间并不常见。我不想考虑它们的嵌套列表中的任何差异。所需的输出是两个列表，包括两个列表中都存在的唯一元素。两者具有相同的结构。

list_1 <- list(ENSG0000014 = structure(list(name = c("E-1122O", "E-11EM3", 
"E-11EMC", "E-1442O", "E-1132O"), ENSG = c("ENSG0000014", "ENSG0000014", 
"ENSG0000014", "ENSG0000014", "ENSG0000014"), expr = c(" 9.940670e-02", 
" 1.289670e-01", "-7.394904e-03", " 9.940670e-02", " 9.940670e-02"
), `1_43222779_A_G_b37` = c("1", "1", "2", "1", "0"), `1_43222856_A_G_b37` = c("0", 
"0", "0", "1", "1"), `1_43223126_C_T_b37` = c("0", "1", "0", 
"1", "2"), `1_43223317_T_C_b37` = c("1", "0", "0", "2", "1")), row.names = c(NA, 
-5L), class = c("tbl_df", "tbl", "data.frame")), ENSG0000015 = structure(list(
    name = c("E-1122O", "E-11EM3", "E-11EMC", "E-1442O", "E-1132O"
    ), ENSG = c("ENSG0000015", "ENSG0000015", "ENSG0000015", 
    "ENSG0000015", "ENSG0000015"), expr = c(" 9.940670e-02", 
    " 1.289670e-01", "-7.394904e-03", " 9.940670e-02", " 1.289670e-01"
    ), `1_43222779_A_G_b37` = c("0", "1", "0", "1", "2"), `1_43222856_A_G_b37` = c("1", 
    "1", "2", "1", "0")), row.names = c(NA, -5L), class = c("tbl_df", 
"tbl", "data.frame")))

list_2 <- list(ENSG0000014 = structure(list(name = c("E-1122O", "E-11EM3", 
"E-11EMC", "E-1442O", "E-1132O"), ENSG = c("ENSG0000014", "ENSG0000014", 
"ENSG0000014", "ENSG0000014", "ENSG0000014"), expr = c(" 9.940670e-02", 
" 1.289670e-01", "-7.394904e-03", " 9.940670e-02", " 9.940670e-02"
), `1_43222779_A_G_b37` = c("1", "1", "2", "1", "0"), `1_43222856_A_G_b37` = c("0", 
"0", "0", "1", "1"), `1_43223126_C_T_b37` = c("0", "1", "0", 
"1", "2"), `1_43223317_T_C_b37` = c("1", "0", "0", "2", "1")), row.names = c(NA, 
-5L), class = c("tbl_df", "tbl", "data.frame")), ENSG0000016 = structure(list(
    name = c("E-1122O", "E-11EM3", "E-11EMC", "E-1442O", "E-1132O"
    ), ENSG = c("ENSG0000015", "ENSG0000015", "ENSG0000015", 
    "ENSG0000015", "ENSG0000015"), expr = c(" 9.940670e-02", 
    " 1.289670e-01", "-7.394904e-03", " 9.940670e-02", " 1.289670e-01"
    ), `1_43222779_A_G_b37` = c("0", "1", "0", "1", "2"), `1_43222856_A_G_b37` = c("1", 
    "1", "2", "1", "0")), row.names = c(NA, -5L), class = c("tbl_df", 
"tbl", "data.frame")))

Answer 1

我们从两个列表中获取 intersecting 名称，然后使用它来对 list

进行子集化

nm1 <- intersect(names(list_1), names(list_2))
list_1_new <- list_1[nm1]
list_2_new <- list_2[nm1]

根据 R 中元素的名称匹配和排序两个列表

Get match and order two lists based on the elements' name in R

r

list