從嵌套串列中提取元素到data.matrix

我有一個包含 2 個元素的串列，每個元素都有 3 個元素。在每 3 個元素中，有一個長度為 2 的嵌套元素串列，因此每個元素都包含一個帶有行和列的 tibble。tibbles 的尺寸對于行是固定的，但列與第三列不同。

這是結構：

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

對于每 3 個元素，我首先需要提取除前三列之外的那些小標題，以創建新的 data.matrix。然后大概在一個回圈中自動執行這項作業，以便為 3 個元素中的每一個獲取相同的 data.matrix。因此，對于串列的 2 個主要元素中的每一個，輸出將是三個矩陣。

如果您能提供幫助，我將不勝感激。

uj5u.com熱心網友回復：

因為它是嵌套的，所以一個選項是rrapply

library(rrapply)
library(dplyr)
out <- rrapply(my_list, classes = "data.frame",
    f = function(x) x %>% 
        dplyr::select(-(1:3)), how = "list")

-輸出

out
[[1]]
[[1]][[1]]
[[1]][[1]]$ENSG0000014
# A tibble: 6 × 4
  `1_43222779_A_G_b37` `1_43222856_A_G_b37` `1_43223126_C_T_b37` `1_43223317_T_C_b37`
  <chr>                <chr>                <chr>                <chr>               
1 1                    0                    0                    1                   
2 1                    0                    1                    0                   
3 2                    0                    0                    0                   
4 1                    0                    0                    1                   
5 1                    0                    1                    0                   
6 2                    0                    0                    0                   

[[1]][[1]]$ENSG0000015
# A tibble: 6 × 2
  `1_43222779_A_G_b37` `1_43222856_A_G_b37`
  <chr>                <chr>               
1 1                    0                   
2 1                    0                   
3 2                    0                   
4 1                    0                   
5 1                    0                   
6 2                    0       
...

標籤：r 列表 循环 映射

上一篇：為什么將您的代碼包裝在已決議的道具中會使您的同步代碼像異步代碼一樣？

下一篇：遍歷列并在達到某個數字時取回列名