如何从R中的列表中仅提取第一个子元素？
要仅从列表中提取第一个元素，我们可以使用sapply函数并使用双方括号访问第一个元素。例如，如果我们有一个名为LIST的列表，其中包含5个元素，每个元素包含20个元素，那么可以使用命令sapply(LIST,"[[",1)提取第一个子元素。
示例1
考虑以下数据框-
List1<-list(x1=rnorm(50),x2=rnorm(50),x3=rnorm(50),x4=rnorm(50)) List1输出结果
$x1 [1] 0.161249858 0.036092622 -1.044116113 1.711548086 0.643501331 [6] 0.382859773 -0.792628167 -0.711300381 -0.422021222 0.745896168 [11] 0.196128414 -0.298657403 0.634259386 -0.437460026 -0.806850028 [16] 0.137813278 -0.006745093 -1.919094377 0.419949298 1.050802517 [21] -0.162697580 -0.182900434 0.911989574 0.456641498 0.501877946 [26] 1.019027122 -0.069249412 1.001133923 1.816262055 -1.047496717 [31] 0.287840421 0.742884790 -0.427961572 0.119784063 0.383153950 [36] -1.665170199 -0.524123898 0.286375036 -0.708250387 -0.715677729 [41] -1.894281105 -0.202630787 -1.925498062 -1.487425694 2.111946755 [46] 1.629015061 0.650948453 0.682603315 1.106431496 1.450096730 $x2 [1] 0.75378773 0.05249257 0.39375180 -0.19774168 0.39574154 0.21836481 [7] 0.46384754 -0.71917075 -1.43891164 -0.69293833 -0.45450458 -0.65776233 [13] 2.46455531 1.12250992 0.87239212 0.44463664 -0.78254250 -0.62857243 [19] 0.12313098 -0.70724790 0.59767273 -0.13321977 0.04811096 -0.54943951 [25] -0.28317900 0.27360876 0.32741112 -0.76000268 0.71394849 -0.52250184 [31] -0.36304544 0.46658600 0.12323175 -0.79092922 -1.18324766 -0.11712640 [37] 0.04891661 -0.24084771 0.61827617 -0.97107224 0.12126594 1.05355407 [43] -0.63041363 -0.78451193 0.53188055 -0.25393411 0.81460637 1.16082247 [49] -0.79304579 -0.97305990 $x3 [1] -0.13624214 1.90010480 0.69451332 2.13687511 -0.23066909 1.64692306 [7] -0.14711053 0.44208938 0.35531069 1.06209464 -1.81956846 -1.12509450 [13] 1.43256682 -0.02674276 -2.03427910 0.55615959 -1.40908574 -0.23011933 [19] -0.08360304 -0.50644360 -0.90820700 -0.24305283 -1.54668354 2.13954075 [25] 0.81472415 0.33037344 0.44158303 0.94220437 0.15045454 0.01357773 [31] 0.01231589 0.26622480 0.38282127 0.67098995 0.40259268 -1.44272053 [37] -0.70237660 0.39312657 -0.99737047 1.64467399 -0.91297020 -0.86162356 [43] -1.58048278 -0.24313534 -0.60451908 -0.64249832 -0.84198760 0.55292228 [49] 0.51750276 0.63131623 $x4 [1] -0.69509383 -0.22673120 0.48862526 0.51866187 -0.18995667 0.38839070 [7] 0.40172376 0.24034591 1.43575563 -0.96673760 1.90413695 2.37696269 [13] -0.67572738 2.03771152 -0.76142607 -0.66753431 -0.08930211 -2.32531986 [19] 0.42993078 -0.12933197 -1.58200214 1.60530348 0.59869548 0.68581561 [25] -0.22293216 -0.09693568 -0.14181344 -0.26035230 0.27148301 -0.12910718 [31] 0.20186925 0.62118418 -0.04921471 -0.61318088 -0.61041790 -0.91881398 [37] -0.31245844 0.71726962 1.12492512 0.89030799 -0.90499379 0.12365878 [43] -0.37452970 -0.54310263 0.46503125 -0.42180015 1.47912529 0.53569710 [49] 1.19356765 -0.04135349
提取List1中的第一个子元素-
sapply(List1,"[[",1)
x1 x2 x3 x4 0.1612499 0.7537877 -0.1362421 -0.6950938
例2
List2<-list(y1=sample(LETTERS[1:4],50,replace=TRUE),y2=sample(LETTERS[1:4],50,replace=TRUE),y3=sample(LETTERS[1:4],50,replace=TRUE),y4=sample(LETTERS[1:4],50,replace=TRUE)) List2输出结果
$y1 [1] "B" "C" "A" "C" "B" "D" "A" "C" "D" "B" "D" "C" "B" "D" "B" "A" "C" "A" "C" [20] "C" "A" "D" "B" "C" "B" "B" "C" "D" "D" "D" "C" "B" "B" "B" "B" "B" "C" "D" [39] "D" "C" "A" "D" "B" "C" "D" "D" "D" "C" "D" "C" $y2 [1] "B" "A" "B" "C" "A" "B" "A" "A" "A" "C" "C" "A" "D" "A" "C" "B" "A" "A" "C" [20] "A" "B" "B" "A" "A" "D" "D" "A" "D" "C" "C" "A" "D" "C" "A" "B" "C" "D" "A" [39] "C" "D" "B" "A" "D" "C" "A" "C" "D" "A" "B" "A" $y3 [1] "C" "B" "A" "D" "B" "B" "D" "A" "B" "A" "C" "B" "D" "B" "A" "B" "C" "D" "D" [20] "B" "C" "D" "C" "D" "D" "D" "C" "B" "C" "D" "C" "D" "D" "C" "B" "C" "A" "D" [39] "A" "A" "B" "B" "A" "C" "A" "D" "A" "D" "D" "A" $y4 [1] "D" "D" "D" "C" "D" "B" "C" "B" "D" "D" "A" "D" "D" "D" "D" "B" "D" "C" "A" [20] "D" "D" "D" "B" "D" "A" "C" "C" "D" "D" "D" "B" "B" "A" "D" "C" "C" "C" "D" [39] "B" "D" "A" "C" "D" "D" "A" "B" "A" "D" "C" "B"
提取List2中的第一个子元素-
sapply(List2,"[[",1)
y1 y2 y3 y4 "B" "B" "C" "D"