我有一个这样的列表:
Ll
$a
3.4 5.6 -2.1 -7.8
$b
2.1 6.7
$c
-6.7,0.001,8.9
我想找出列表中所有元素的最大数量,而不考虑符号。即我希望我的输出看起来像这样:
Ll
$a
-7.8
$b
6.7
$c
8.9
有没有办法通过单个命令行来做到这一点?可以使用'by'命令完成吗?
可重现的代码/数据总是有帮助:
L1 <- list(a = c(3.4, 5.6, -2.1, -7.8), b = c(2.1, 6.7), c = c(-6.7, 0.001, 8.9))
用于lapply
将您自己的函数应用于每个元素,which.max
轻松找到最大值,我们只需获取每个元素abs
内的 olute 值:
lapply(L1, function(x) x[which.max(abs(x))])
$a
[1] -7.8
$b
[1] 6.7
$c
[1] 8.9
lapply
是你的朋友!
例如。
.list <- list( a = 1:5, b = runif(7), c = -3:1)
lapply(.list, function(x) x[which.max(abs(x))])
## $a
## [1] 5
##
## $b
## [1] 0.9248526
##
## $c
## [1] -3
which.max 会给你索引号和值,但是如果你只需要数字,你可以试试这个:
最大(应用(您的列表,最大))