[英]How to get fifth value
data("iris")
len<-split(iris$Petal.Length,iris$Species)
len[5]
len data: 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
We need to loop through the list
( lapply
- returns a list
, while sapply
returns a vector
) and get the 5th element我们需要遍历
list
( lapply
- 返回一个list
,而sapply
返回一个vector
)并获得第 5 个元素
sapply(len, '[', 5)
#setosa versicolor virginica
# 1.4 4.6 5.8
You can also use purrr's map function within the tidyverse.您还可以在 tidyverse 中使用 purrr 的地图功能。
library(tidyverse)
split(iris$Petal.Length,iris$Species) %>% map(5)
$setosa
[1] 1.4
$versicolor
[1] 4.6
$virginica
[1] 5.8
声明:本站的技术帖子网页,遵循CC BY-SA 4.0协议,如果您需要转载,请注明本站网址或者原文地址。任何问题请咨询:yoyou2525@163.com.