通过键向量（R）获取值

Question

这实际上对应于我的其他问题，但事情变得更加复杂。我有 data.frame 和向量：

df <- data.frame(key=c(0,3:6), value=c(0,52,26,12,1))
x <- c(3,4,3,3,5,5,6,6,6,6)

并且需要基于 x 作为键从 df 获取值：

[1] 52 26 52 52 12 12 1 1 1 1

来自 以前的答案只能给出没有重复的结果：

df[df$key %in% x,"value"]
[1] 52 26 12  1

有没有办法解决 这？

另外，我看到 hash() 可以做类似的事情：

h <- hash( keys=letters, values=1:26 )
h$a # 1
h[ "a" ]
h[[ "a" ]]

z <- rep(letters[3:5],2)

h[z] # still with NO duplicates
<hash> containing 3 key-value pair(s).
c : 3
d : 4
e : 5

但看起来像它不能返回具有以下内容的值向量：

h[[z]]
Error in h[[z]] : wrong arguments for subsetting an environment

否则，它将是完美的，以便我们可以通过使用一些“真正的”哈希概念来摆脱 data.frame 。

谢谢！

Answer 1

要回答您的第一个问题：使用 match

df[match(x, df$key), ]

    key value
2     3    52
3     4    26
2.1   3    52
2.2   3    52
4     5    12
4.1   5    12
5     6     1
5.1   6     1
5.2   6     1
5.3   6     1

---

您还应该看看命名向量

dat <- c(0,52,26,12,1)
names(dat) <- as.character(c(0,3:6))

dat[as.character(x)]
 3  4  3  3  5  5  6  6  6  6 
52 26 52 52 12 12  1  1  1  1 

Answer 2

您可以使用 match 来选择您的值：

df[match(x,df$key),"value"]
[1] 52 26 52 52 12 12  1  1  1  1

Answer 3

我不确定这是否是最好的方法，但是 merge() 会让你到达那里：

df <- data.frame(key=c(0,3:6), value=c(0,52,26,12,1))
x <- c(3,4,3,3,5,5,6,6,6,6)

merge(x, df, by.x="x", by.y = "key")
#    x value
# 1  3    52
# 2  3    52
# 3  3    52
# 4  4    26
# 5  5    12
# 6  5    12
# 7  6     1
# 8  6     1
# 9  6     1

更新
关于您关于 hash() 的问题，现在可以执行以下类似操作吗？

hashMatch <- function(x, y)
{
    laply(y, function(z)
        {
            x[[z]]
        })
}

require(plyr)
require(hash)

h <- hash( keys=letters, values=1:26 )
z <- rep(letters[3:5],2)

hashMatch(h, z)
# [1] 3 4 5 3 4 5