打印R中具有不同嵌套级别的列表中的项目 [英] Print out items from a list in R with different nested levels
本文介绍了打印R中具有不同嵌套级别的列表中的项目的处理方法，对大家解决问题具有一定的参考价值，需要的朋友们下面随着小编来一起学习吧！
问题描述
我在R中有一个列表，其结构与dput输出相同。
更新：
structure(list(name = c("\text{Students are able to identify relationship between l (or ml) and cm³
}",
"\text{Students are able to write down the notation and representations of fractions
}",
"\text{Scientific enquiry}", "\text{Polska w okresie rozbicia dzielnicowego.}"
), index = c(26L, 39L, 0L, 5L), learningFactorType = c("LEARNING_OBJECTIVE",
"LEARNING_OBJECTIVE", "LEARNING_OBJECTIVE", "LEARNING_OBJECTIVE"
), childFactors = list(structure(list(), .Names = character(0), row.names = integer(0), class = "data.frame"),
structure(list(), .Names = character(0), row.names = integer(0), class = "data.frame"),
structure(list(`_id` = list(structure(as.raw(c(0xee, 0x41,
0x32, 0x09, 0x81, 0x82, 0xf4, 0xac, 0x27, 0x49, 0xc2, 0x0b,
0x70, 0x65, 0x05, 0x89)), type = as.raw(0x03)), structure(as.raw(c(0xdc,
0x46, 0xaf, 0x85, 0x60, 0x2b, 0x6a, 0x04, 0x15, 0x48, 0x7c,
0xa5, 0xd0, 0xbc, 0x27, 0x8b)), type = as.raw(0x03)), structure(as.raw(c(0x76,
0x4a, 0x90, 0xc0, 0x90, 0xc6, 0xf1, 0x76, 0x18, 0x51, 0x13,
0xc1, 0xae, 0xa1, 0x03, 0x84)), type = as.raw(0x03)), structure(as.raw(c(0xec,
0x42, 0x98, 0x7a, 0xd4, 0x16, 0x23, 0x3f, 0x43, 0xfd, 0x36,
0x5d, 0xa1, 0x4a, 0xcd, 0xa8)), type = as.raw(0x03))), name = c("\text{ Ideas and evidence}",
"\text{Plan investigative work}", "\text{Obtain and present evidence}",
"\text{ Consider evidence and approach}"), index = 0:3,
childFactors = list(structure(list(`_id` = list(structure(as.raw(c(0xee,
0x49, 0x92, 0x4f, 0xe2, 0x10, 0xb8, 0x33, 0x6f, 0xbe,
0xd2, 0x9f, 0x46, 0x82, 0x36, 0x9d)), type = as.raw(0x03)),
structure(as.raw(c(0xa2, 0x4e, 0x9c, 0x07, 0x44,
0x1b, 0x7b, 0x44, 0xa3, 0x03, 0xe9, 0x22, 0x69, 0xaf,
0x5b, 0x85)), type = as.raw(0x03))), name = c("\text{Collect evidence in a variety of contexts (4Ep1)}",
"\text{Test an idea or prediction based on scientific knowledge and understanding (4Ep2)}"
), index = 0:1, childFactors = list(list(), list()),
exerciseIdList = list(list(), list()), knowledgeBaseEntryIdList = list(
list(), list()), linkedSourceList = list(structure(list(
publisherId = c(193, 193, 193, 193, 193, 193),
categoryId = c(22610, 22610, 22610, 22612, 22614,
22614), levelId = c(1001, 1001, 1001, 1001, 1001,
1001), subcategoryIdList = list(22618, 22619,
22620, 22628, 22631, 22634), exerciseIdList = list(
c(281313, 281322, 281439, 281442), c(281310,
281312, 281437), c(281307, 281324), c(325294,
325296, 325380, 325394, 325448, 325473, 325516
), c(328850, 328851, 328853, 328856, 328861,
328869, 328870, 328871), c(328854, 335329)),
knowledgeBaseEntryIdList = list(list(), list(),
list(), list(), list(), list())), class = "data.frame", row.names = c(NA,
6L)), structure(list(publisherId = c(193, 193), categoryId = c(22614,
22614), levelId = c(1001, 1001), subcategoryIdList = list(
22632, 22633), exerciseIdList = list(c(328852,
335327), c(328865, 335324)), knowledgeBaseEntryIdList = list(
list(), list())), class = "data.frame", row.names = 1:2))), class = "data.frame", row.names = 1:2),
structure(list(`_id` = list(structure(as.raw(c(0x43,
0x46, 0xbd, 0xa0, 0x8f, 0xf6, 0x37, 0xad, 0x48, 0x37,
0xeb, 0x2f, 0x6f, 0xfe, 0x34, 0xb4)), type = as.raw(0x03)),
structure(as.raw(c(0xca, 0x4b, 0x33, 0x04, 0x0b,
0x2f, 0x1d, 0x75, 0xc6, 0x84, 0xaa, 0xff, 0xfb,
0x4c, 0x95, 0xa8)), type = as.raw(0x03)), structure(as.raw(c(0xcc,
0x45, 0xa4, 0xec, 0x0a, 0xb1, 0x5a, 0x02, 0x29,
0xf2, 0x58, 0x21, 0x58, 0x29, 0xab, 0x8a)), type = as.raw(0x03))),
name = c("\text{Suggest questions that can be tested and make predictions;
communicate these (4Ep3)}",
"\text{Design a fair test and plan how to collect sufficient evidence (4Ep4)}",
"\text{Choose apparatus and decide what to measure (4Ep5)}"
), index = 0:2, childFactors = list(list(), list(),
list()), exerciseIdList = list(list(), list(),
list()), knowledgeBaseEntryIdList = list(list(),
list(), list()), linkedSourceList = list(structure(list(
publisherId = c(193, 193, 193, 193), categoryId = c(22611,
22611, 22615, 22615), levelId = c(1001, 1001,
1001, 1001), subcategoryIdList = list(22624,
22625, 22635, 22637), exerciseIdList = list(
c(325414, 325415, 325420, 325433), c(325416,
325417, 325418, 325419, 325423, 325427, 325430,
325434, 334617, 334647, 334658), c(328887,
328891), c(328895, 328898, 328904)), knowledgeBaseEntryIdList = list(
list(), list(), list(), list())), class = "data.frame", row.names = c(NA,
4L)), structure(list(), .Names = character(0), row.names = integer(0), class = "data.frame"),
structure(list(publisherId = 193, categoryId = 22611,
levelId = 1001, subcategoryIdList = list(
22625), exerciseIdList = list(c(325416,
325417, 325418, 325419, 325423, 325427, 325430,
325434, 334617, 334647, 334658)), knowledgeBaseEntryIdList = list(
list())), class = "data.frame", row.names = 1L))), class = "data.frame", row.names = c(NA,
3L)), structure(list(`_id` = list(structure(as.raw(c(0xf1,
0x41, 0xd0, 0xff, 0x4c, 0xaf, 0x1a, 0x7c, 0x8f, 0x4e,
0x8a, 0xdb, 0xdb, 0xd2, 0x87, 0xa7)), type = as.raw(0x03)),
structure(as.raw(c(0x7f, 0x42, 0xce, 0xf2, 0x3f,
0xe4, 0xc3, 0x9f, 0xb7, 0x17, 0x52, 0xfe, 0xb3,
0x8a, 0xc9, 0x89)), type = as.raw(0x03)), structure(as.raw(c(0x77,
0x49, 0xcc, 0x51, 0xb0, 0x85, 0x03, 0xf5, 0x72,
0xeb, 0x2f, 0xe5, 0x6e, 0x32, 0x53, 0x8b)), type = as.raw(0x03)),
structure(as.raw(c(0xe1, 0x40, 0x24, 0xb9, 0x1e,
0x32, 0xbe, 0xca, 0x33, 0x5e, 0x9e, 0x3d, 0xd0,
0x2f, 0x1a, 0x87)), type = as.raw(0x03))), name = c("\text{Make relevant observations and comparisons in a variety of
contexts (4Eo1)}",
"\text{Measure temperature, time, force and length (4Eo2)}",
"\text{Begin to think about the need for repeated measurements of,
for example, length (4Eo3)}",
"\text{Present results in drawings, bar charts and tables (4Eo4)}"
), index = 0:3, childFactors = list(list(), list(),
list(), list()), exerciseIdList = list(list(),
list(), list(), list()), knowledgeBaseEntryIdList = list(
list(), list(), list(), list()), linkedSourceList = list(
structure(list(publisherId = c(193, 193, 193,
193, 193), categoryId = c(22610, 22610, 22610,
22612, 22614), levelId = c(1001, 1001, 1001,
1001, 1001), subcategoryIdList = list(22619,
22620, 22621, 22628, 22631), exerciseIdList = list(
c(281310, 281312, 281437), c(281307, 281324
), c(281308, 281326), c(325294, 325296, 325380,
325394, 325448, 325473, 325516), c(328850,
328851, 328853, 328856, 328861, 328869, 328870,
328871)), knowledgeBaseEntryIdList = list(list(),
list(), list(), list(), list())), class = "data.frame", row.names = c(NA,
5L)), structure(list(), .Names = character(0), row.names = integer(0), class = "data.frame"),
structure(list(), .Names = character(0), row.names = integer(0), class = "data.frame"),
structure(list(), .Names = character(0), row.names = integer(0), class = "data.frame"))), class = "data.frame", row.names = c(NA,
4L)), structure(list(`_id` = list(structure(as.raw(c(0xc1,
0x41, 0x64, 0x24, 0x4d, 0x96, 0x1d, 0xc5, 0x4b, 0x18,
0x9f, 0xc3, 0xe2, 0xfe, 0x82, 0xb9)), type = as.raw(0x03)),
structure(as.raw(c(0x8a, 0x44, 0x8a, 0x41, 0xed,
0x1d, 0x70, 0xdc, 0x81, 0x96, 0x29, 0x0a, 0x49,
0xe8, 0x73, 0xa3)), type = as.raw(0x03)), structure(as.raw(c(0x9d,
0x4a, 0x23, 0x7c, 0x2a, 0x57, 0x55, 0x31, 0xca,
0xd4, 0x17, 0xff, 0x32, 0x9b, 0xfa, 0x9c)), type = as.raw(0x03))),
name = c("\text{Identify simple trends and patterns in results and suggest
explanations for some of these (4Eo5)}",
"\text{Explain what the evidence shows and whether it supports
predictions. Communicate this clearly to others (4Eo6)}",
"\text{Link evidence to scientific knowledge and understanding in
some contexts (4Eo7)}"
), index = 0:2, childFactors = list(list(), list(),
list()), exerciseIdList = list(list(), list(),
list()), knowledgeBaseEntryIdList = list(list(),
list(), list()), linkedSourceList = list(structure(list(
publisherId = c(193, 193, 193, 193), categoryId = c(22611,
22614, 22614, 22615), levelId = c(1001, 1001,
1001, 1001), subcategoryIdList = list(22625,
22632, 22633, 22636), exerciseIdList = list(
c(325416, 325417, 325418, 325419, 325423,
325427, 325430, 325434, 334617, 334647, 334658
), c(328852, 335327), c(328865, 335324),
c(328886, 328888, 328903)), knowledgeBaseEntryIdList = list(
list(), list(), list(), list())), class = "data.frame", row.names = c(NA,
4L)), structure(list(publisherId = 193, categoryId = 22615,
levelId = 1001, subcategoryIdList = list(22637),
exerciseIdList = list(c(328895, 328898, 328904
)), knowledgeBaseEntryIdList = list(list())), class = "data.frame", row.names = 1L),
structure(list(publisherId = c(193, 193, 193
), categoryId = c(22612, 22614, 22614), levelId = c(1001,
1001, 1001), subcategoryIdList = list(22628,
22633, 22634), exerciseIdList = list(c(325294,
325296, 325380, 325394, 325448, 325473, 325516
), c(328865, 335324), c(328854, 335329)), knowledgeBaseEntryIdList = list(
list(), list(), list())), class = "data.frame", row.names = c(NA,
3L)))), class = "data.frame", row.names = c(NA,
3L))), exerciseIdList = list(list(), list(), list(),
list()), knowledgeBaseEntryIdList = list(list(),
list(), list(), list()), linkedSourceList = list(
structure(list(publisherId = c(193, 193, 193, 193,
193, 193, 193, 193), categoryId = c(22610, 22610,
22610, 22612, 22614, 22614, 22614, 22614), levelId = c(1001,
1001, 1001, 1001, 1001, 1001, 1001, 1001), subcategoryIdList = list(
22618, 22619, 22620, 22628, 22631, 22634, 22632,
22633), exerciseIdList = list(c(281313, 281322,
281439, 281442), c(281310, 281312, 281437), c(281307,
281324), c(325294, 325296, 325380, 325394, 325448,
325473, 325516), c(328850, 328851, 328853, 328856,
328861, 328869, 328870, 328871), c(328854, 335329
), c(328852, 335327), c(328865, 335324)), knowledgeBaseEntryIdList = list(
list(), list(), list(), list(), list(), list(),
list(), list())), class = "data.frame", row.names = c(NA,
8L)), structure(list(publisherId = c(193, 193, 193,
193, 193), categoryId = c(22611, 22611, 22615, 22615,
22611), levelId = c(1001, 1001, 1001, 1001, 1001),
subcategoryIdList = list(22624, 22625, 22635,
22637, 22625), exerciseIdList = list(c(325414,
325415, 325420, 325433), c(325416, 325417, 325418,
325419, 325423, 325427, 325430, 325434, 334617,
334647, 334658), c(328887, 328891), c(328895,
328898, 328904), c(325416, 325417, 325418, 325419,
325423, 325427, 325430, 325434, 334617, 334647,
334658)), knowledgeBaseEntryIdList = list(list(),
list(), list(), list(), list())), class = "data.frame", row.names = c(NA,
5L)), structure(list(publisherId = c(193, 193, 193,
193, 193), categoryId = c(22610, 22610, 22610, 22612,
22614), levelId = c(1001, 1001, 1001, 1001, 1001),
subcategoryIdList = list(22619, 22620, 22621,
22628, 22631), exerciseIdList = list(c(281310,
281312, 281437), c(281307, 281324), c(281308,
281326), c(325294, 325296, 325380, 325394, 325448,
325473, 325516), c(328850, 328851, 328853, 328856,
328861, 328869, 328870, 328871)), knowledgeBaseEntryIdList = list(
list(), list(), list(), list(), list())), class = "data.frame", row.names = c(NA,
5L)), structure(list(publisherId = c(193, 193, 193,
193, 193, 193, 193, 193), categoryId = c(22611, 22614,
22614, 22615, 22615, 22612, 22614, 22614), levelId = c(1001,
1001, 1001, 1001, 1001, 1001, 1001, 1001), subcategoryIdList = list(
22625, 22632, 22633, 22636, 22637, 22628, 22633,
22634), exerciseIdList = list(c(325416, 325417,
325418, 325419, 325423, 325427, 325430, 325434, 334617,
334647, 334658), c(328852, 335327), c(328865, 335324
), c(328886, 328888, 328903), c(328895, 328898, 328904
), c(325294, 325296, 325380, 325394, 325448, 325473,
325516), c(328865, 335324), c(328854, 335329)), knowledgeBaseEntryIdList = list(
list(), list(), list(), list(), list(), list(),
list(), list())), class = "data.frame", row.names = c(NA,
8L)))), class = "data.frame", row.names = c(NA, 4L
)), structure(list(`_id` = list(structure(as.raw(c(0x76,
0x4f, 0x14, 0xee, 0xb1, 0x19, 0x89, 0xcd, 0x04, 0xd3, 0x44,
0x33, 0xa9, 0x1a, 0x6a, 0xbc)), type = as.raw(0x03)), structure(as.raw(c(0x3d,
0x4d, 0x57, 0x27, 0x96, 0x1a, 0x86, 0xc0, 0xf4, 0x27, 0x5b,
0x2d, 0x19, 0x32, 0xd2, 0x86)), type = as.raw(0x03)), structure(as.raw(c(0x44,
0x47, 0xac, 0x85, 0x90, 0x69, 0x04, 0x27, 0x68, 0x4d, 0x12,
0x1a, 0x79, 0xfd, 0x76, 0xa6)), type = as.raw(0x03)), structure(as.raw(c(0x4f,
0x49, 0x90, 0xd5, 0x40, 0x9c, 0x66, 0xe5, 0x76, 0x22, 0x05,
0x7a, 0xaf, 0xd2, 0x95, 0xac)), type = as.raw(0x03)), structure(as.raw(c(0x8c,
0x45, 0xfa, 0x87, 0xc8, 0x74, 0x08, 0xaf, 0xba, 0x3e, 0xb1,
0x22, 0xb4, 0x91, 0xa0, 0xa1)), type = as.raw(0x03))), name = c("\text{Umieszczanie w czasie i przestrzeni Polski okresu rozbicia dzielnicowego.}",
"\text{Opisywanie przyczyn oraz wskazywanie skutków rozbicia dzielnicowego.}",
"\text{Umieszczanie w czasie najważniejszych wydarzeń związanych z relacjami polsko-krzyżackimi oraz zagrożeniem najazdami tatarskimi w okresie rozbicia dzielnicowego.}",
"\text{Opisywanie przemiany społecznej i gospodarczej, z uwzględnieniem ruchu osadniczego.}",
"\text{Charakteryzowanie procesu zjednoczenia państwa polskiego na przełomie XIII i XIV wieku, wskazując na rolę władców piastowskich (ze szczególnym uwzględnieniem roli Władysława Łokietka) oraz Kościoła.}"
), index = 0:4, childFactors = list(list(), list(), list(),
list(), list()), exerciseIdList = list(list(), list(),
list(), list(), list()), knowledgeBaseEntryIdList = list(
list(), list(), list(), list(), list()), linkedSourceList = list(
list(), list(), list(), list(), list())), class = "data.frame", row.names = c(NA,
5L))), exerciseIdList = list(list(), list(), list(), list()),
levelIdSet = list(462, 459, 1001, c(34, 857, 877)), knowledgeBaseEntryIdList = list(
list(), list(), list(), list()), subjectId = c(49, 49,
357, 9), linkedSourceList = list(structure(list(publisherId = 111,
categoryId = 42281, levelId = 462, subcategoryIdList = list(
42284), exerciseIdList = list(c(495048, 495047, 495043,
495044, 495045, 495046, 495049, 495050)), knowledgeBaseEntryIdList = list(
list())), class = "data.frame", row.names = 1L),
structure(list(publisherId = 111, categoryId = 41394,
levelId = 459, subcategoryIdList = list(41395), exerciseIdList = list(
c(473272, 473270, 473269, 473262, 473261, 465453,
465452)), knowledgeBaseEntryIdList = list(list())), class = "data.frame", row.names = 1L),
structure(list(publisherId = c(193, 193, 193, 193, 193,
193, 193, 193, 193, 193, 193, 193, 193, 193, 193, 193,
193, 193, 193, 193, 193, 193, 193, 193, 193, 193), categoryId = c(22610,
22610, 22610, 22612, 22614, 22614, 22614, 22614, 22611,
22611, 22615, 22615, 22611, 22610, 22610, 22610, 22612,
22614, 22611, 22614, 22614, 22615, 22615, 22612, 22614,
22614), levelId = c(1001, 1001, 1001, 1001, 1001, 1001,
1001, 1001, 1001, 1001, 1001, 1001, 1001, 1001, 1001,
1001, 1001, 1001, 1001, 1001, 1001, 1001, 1001, 1001,
1001, 1001), subcategoryIdList = list(22618, 22619, 22620,
22628, 22631, 22634, 22632, 22633, 22624, 22625,
22635, 22637, 22625, 22619, 22620, 22621, 22628,
22631, 22625, 22632, 22633, 22636, 22637, 22628,
22633, 22634), exerciseIdList = list(c(281313, 281322,
281439, 281442), c(281310, 281312, 281437), c(281307,
281324), c(325294, 325296, 325380, 325394, 325448, 325473,
325516), c(328850, 328851, 328853, 328856, 328861, 328869,
328870, 328871), c(328854, 335329), c(328852, 335327),
c(328865, 335324), c(325414, 325415, 325420, 325433
), c(325416, 325417, 325418, 325419, 325423, 325427,
325430, 325434, 334617, 334647, 334658), c(328887,
328891), c(328895, 328898, 328904), c(325416, 325417,
325418, 325419, 325423, 325427, 325430, 325434, 334617,
334647, 334658), c(281310, 281312, 281437), c(281307,
281324), c(281308, 281326), c(325294, 325296, 325380,
325394, 325448, 325473, 325516), c(328850, 328851,
328853, 328856, 328861, 328869, 328870, 328871),
c(325416, 325417, 325418, 325419, 325423, 325427,
325430, 325434, 334617, 334647, 334658), c(328852,
335327), c(328865, 335324), c(328886, 328888, 328903
), c(328895, 328898, 328904), c(325294, 325296, 325380,
325394, 325448, 325473, 325516), c(328865, 335324
), c(328854, 335329)), knowledgeBaseEntryIdList = list(
list(), list(), list(), list(), list(), list(), list(),
list(), list(), list(), list(), list(), list(), list(),
list(), list(), list(), list(), list(), list(), list(),
list(), list(), list(), list(), list())), class = "data.frame", row.names = c(NA,
26L)), structure(list(), .Names = character(0), row.names = integer(0), class = "data.frame")),
treeId = list(structure(as.raw(c(0xa6, 0x48, 0x30, 0x23,
0xe1, 0xce, 0xc1, 0x0e, 0x4d, 0x56, 0xe0, 0xc6, 0x6d, 0x71,
0x51, 0x96)), type = as.raw(0x03)), structure(as.raw(c(0x27,
0x4d, 0xc2, 0xf7, 0xcc, 0xcb, 0x8b, 0x82, 0x2f, 0x20, 0x25,
0x72, 0x33, 0x14, 0xee, 0xb7)), type = as.raw(0x03)), structure(as.raw(c(0x7d,
0x49, 0x2a, 0xf1, 0x7f, 0xde, 0xff, 0x2a, 0x37, 0x11, 0x33,
0x09, 0xaa, 0xa4, 0xd9, 0x87)), type = as.raw(0x03)), structure(as.raw(c(0xbb,
0x46, 0x98, 0x1b, 0xa8, 0x19, 0xeb, 0x30, 0x1b, 0x35, 0xf6,
0x22, 0x0f, 0xb2, 0x4c, 0x99)), type = as.raw(0x03))), version = c(111,
123, 104, 224), indexAlias = c(NA_character_, NA_character_,
NA_character_, NA_character_)), row.names = c(1L, 2L, 3L,
8L), class = "data.frame")
我想打印子列表的每个名字li[[1]]以及第五项子列表li[[9]][[5]]，并带有Exercise_ID。
purrr包允许我简单地获取li[[9]]的元素，但我不确定如何将li[[1]]这个名字映射到上面的相关列表中。
ex_id<-li[[9]]
df_ex_id <- as.data.frame(unlist(map(ex.id,5)))
我尝试使用For函数：
name_exid <- for (i in li$name) {
print(li$name) + print(li$exerciseIdList[[1]])
}
但我收到一条错误消息，失败得很惨：(
我希望实现的结果是，我有一个包含名称的A列和一个包含ex.id的B列
推荐答案
更新
这是一种挑战，但它适用于您的新列表。
library(tidyverse)
li %>%
map(enframe) %>%
`[`(., c("name", "linkedSourceList")) %>%
bind_cols() %>%
unnest(value1) %>%
select(name = "value", exerciseIdList) %>%
unnest(exerciseIdList)
旧答案
以下是从原始列表li开始的基于管道的方法：
library(tidyverse)
li %>%
pluck("linkedSourceList") %>% # get list element called linkedSourceList
map("exerciseIdList") %>% # extract elements called "exerciseIdList
flatten %>% # remove hierarchy level
set_names(li[["name"]]) %>% # set_names of sub-list
enframe(value = "excerciseIdList") %>% # put list in a tibble with a list-column
unnest(excerciseIdList) # unnest list-column
这篇关于打印R中具有不同嵌套级别的列表中的项目的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！
查看全文
