使用目录替换R中向量中的值

Question

Im导入价值和货币数据，以及其他特征。货币是字符串，我需要用数字ID代替所有货币。我的确有一个包含所有货币和ID的矩阵作为目录。

我的矩阵看起来像

main <- cbind(c("toys", "food"),c(345, 45), c("USD", "EUR"))
cat<-cbind(c("USD", "EUR"), c(1, 2))

我想要的结果是针对

main
[toys,  345,  1
 food,  45,   2]

Answer 1

也许：

main[,3] <- cat[,2][match(main[,3], cat[,1])]

输出：

     [,1]   [,2]  [,3]
[1,] "toys" "345" "1" 
[2,] "food" "45"  "2" 

Answer 2

我们可以使用

i1 <- match(main, cat[,1])
replace(main, !is.na(i1), cat[,2][i1])