如何在Hash R中找到最大值的键？

debugcn 发表于 Dev

学术用户

我有一个类似于示例的哈希，并使用哈希包创建了此哈希。

如何返回R中最大值的键？

输入哈希表：

h<-hash( keys=c(1,4,5,6),values=c(30,25,25,30) )
 # <hash> containing 3 key-value pair(s).
 #  1 : 30
 #  4 : 25 
 # 5 : 25
 # 6 : 30

棕褐色

完全披露：我编写并维护了该hash程序包。

除非您具有包含许多键值对的散列并且需要性能，否则带有名称的标准R向量可能是一个更好的解决方案。这是一个例子：

v <- c(a = 5, b = 2, c = 3, d = 5)
names( v[ v==max(v) ] )

本地R向量的表现将优于散列，直到结构增长到超过200个键值对为止。（自从我对散列，向量和列表查找性能进行基准测试以来已经有一段时间了）。

如果哈希适合解决方案，则@bergant的答案将解决OP的问题，尽管请理解这是相当危险的。将哈希转换为列表然后使用会unlist忽略以下事实：哈希值不限于标量/原子值。它们可以是任何R对象。考虑：

 > hash(a = 1:5, b = 2, c = 3, d=5)
 <hash> containing 4 key-value pair(s).
 a : 1 2 3 4 5
 b : 2
 c : 3
 d : 5

您可以确定这是否对您的应用程序有问题。

一种更简单，性能更高且更通用的方法是使用“值”功能。在所有值都是标量/原子值的简单情况下，这与@bergant的解非常相似。

H <- hash(a = 5, b = 2, c = 3, d = 5)
val <- values(H)     # Compare to `unlist(as.list(H))`
names( val[ val == max(val) ] )

由于值返回的是命名列表而不是未列出的列表，因此我们可以采用更通用的解决方案，因为我们可以从每个键值对中选择一个要比较的值：

H <- hash(a = 1:5, b = 2, c = 3, d=5)
val <- values(H)

# Alternate 1: Compare min from each value
val <- sapply(val, max )

# Alternate 2: Compare first element from each value 
# val <- sapply(val, function(x) x[[1]])

names( val[ val == max(val) ] )

希望对您有所帮助。

本文收集自互联网，转载请注明来源。

如有侵权，请联系[email protected] 删除。