如何獲得第五價值

Question

data("iris") 
len<-split(iris$Petal.Length,iris$Species) 
len[5] 

LEN數據：

$setosa 
[1] 1.4 1.4 1.3 1.5 1.4 1.7 1.4 1.5 1.4 1.5 1.5 1.6 1.4 1.1 1.2 1.5 1.3 1.4 1.7 1.5 1.7 1.5 1.0 1.7 1.9 1.6 1.6 1.5 1.4 1.6 
[31] 1.6 1.5 1.5 1.4 1.5 1.2 1.3 1.4 1.3 1.5 1.3 1.3 1.3 1.6 1.9 1.4 1.6 1.4 1.5 1.4 

$versicolor 
[1] 4.7 4.5 4.9 4.0 4.6 4.5 4.7 3.3 4.6 3.9 3.5 4.2 4.0 4.7 3.6 4.4 4.5 4.1 4.5 3.9 4.8 4.0 4.9 4.7 4.3 4.4 4.8 5.0 4.5 3.5 
[31] 3.8 3.7 3.9 5.1 4.5 4.5 4.7 4.4 4.1 4.0 4.4 4.6 4.0 3.3 4.2 4.2 4.2 4.3 3.0 4.1 

$virginica 
[1] 6.0 5.1 5.9 5.6 5.8 6.6 4.5 6.3 5.8 6.1 5.1 5.3 5.5 5.0 5.1 5.3 5.5 6.7 6.9 5.0 5.7 4.9 6.7 4.9 5.7 6.0 4.8 4.9 5.6 5.8 
[31] 6.1 6.4 5.6 5.1 5.6 6.1 5.6 5.5 4.8 5.4 5.6 5.1 5.1 5.9 5.7 5.2 5.0 5.2 5.4 5.1 

Error:NULL 

Answer 1

我們需要遍歷list（lapply - 返回list，而sapply返回vector），並得到了5個元素

sapply(len, '[', 5) 
#setosa versicolor virginica 
# 1.4  4.6  5.8 

Answer 2

你也可以在整個tidyverse中使用purrr的map函數。

library(tidyverse) 
split(iris$Petal.Length,iris$Species) %>% map(5) 
$setosa 
[1] 1.4 

$versicolor 
[1] 4.6 

$virginica 
[1] 5.8