转换 R 脚本的简单哈希表

Question

我想使用哈希表来实现简单的覆盖脚本。 输入应乘以使用其符号的因子，即 y = x * 1E-12，应称为例如y <- X2Y(x,"p")，其中“p”是 1E-12 的符号。

library(hash)

sym2num <- function(x) {
  h <- hash( c("f"=1E-15,"p"=1E-12,"n"=1E-9,"mu"=1E-6,"m"=1E-3,"c"=1E-2) )
  return(h$x)
}

X2Y <- function(X,x) {
  xNum <- sym2num(x)
  Y <- X * xNum
  return(Y)
}

# y = x * 1E-12
y <- X2Y(x,"p")
print(y)

使用上面的代码，我得到 numeric(0) 作为结果。有没有哪里出错了？

Answer 1

您的函数sym2num 始终返回“x”的哈希值，即 NULL。

h$x 是h[["x"]] 的快捷方式，但你想要的是h[[x]]。

改用这个：

sym2num <- function(x) {
  h <- hash( c("f"=1E-15,"p"=1E-12,"n"=1E-9,"mu"=1E-6,"m"=1E-3,"c"=1E-2) )
  return(h[[x]])
}

Answer 2

在这里使用 {hash} 库没有任何好处。实际上，由于您在每个子集之前重新散列您的向量，因此与直接查找相比，这将效率大大降低。

即使您只构建哈希表一次而不是重复构建，也可能仍然不使用它会更快：哈希表实现会带来相当大的恒定开销。对于相当大的表，它只比直接向量或列表子集更快。

相反，只需这样做：

sym2num <- function(x) {
  c(f = 1E-15, p = 1E-12, n = 1E-9, mu = 1E-6, m = 1E-3, c = 1E-2)[x]
}

这是惯用的、高效的 R 代码。

---

从根本上说，R 代码中的错误是子集h$x。这失败了，因为子集运算符 $ 不适用于变量，它期望在其右侧有一个 未计算的名称。因此，代码将始终在h 中查找文字名称x。 thc 的回答显示了如何避免这个问题。