从另一个数据框中的值替换一个数据框中的值

Question

我需要将当前从字母到数字的单个标识符更改为数字。 我创建了一个数据框，其中每个字母标识符都与一个数字相关联

individuals num.individuals (g4)
1           ZYO              64
2           KAO              24
3           MKU              32
4           SAG              42

我需要在主数据帧（g3）中用数字64代替ZYO，对于所有其他代码也同样如此。

我的主数据框（g3）看起来像这样

  SAG YOG GOG BES ATR ALI COC CEL DUN EVA END GAR HAR HUX ISH INO JUL
1                   2                                                
2                   2                 EVA                            
3 SAG               2                 EVA                            
4                   2                                                
5 SAG               2                                                
6                   2

现在我可以像ATR一样在小范围内编写代码来对其进行更改

g3$ATR <- as.character(g3$ATR)
g3[g3$target == "ATR" | g3$ATR == "ATR","ATR"] <- 2

但这是耗时的，并且增加了人为错误的机会。

我知道有许多方法可以通过NA进行广泛的操作

我想也许我们可以为此做一个for循环，但是我自己写的还不够好。

我也一直在尝试使用这个函数，我觉得它可能会起作用，但是我不确定如何在逻辑上构建此参数，它已发布在问题板上，在R中快速替换了数据框中的值

df <- as.data.frame(lapply(df, function(x){replace(x, x <0,0)})

我试图通过

df <- as.data.frame(lapply(g4, function(g3){replace(x, x <0,0)})

Answer 1

这是使用data.table包的一种方法：

首先，创建一个类似于您的数据的可复制示例：

require(data.table)
ref <- data.table(individuals=1:4,num.individuals=c("ZYO","KAO","MKU","SAG"),g4=c(64,24,32,42))
g3 <- data.table(SAG=c("","SAG","","SAG"),KAO=c("KAO","KAO","","")) 

这是ref表：

   individuals num.individuals g4
1:           1             ZYO 64
2:           2             KAO 24
3:           3             MKU 32
4:           4             SAG 42

这是您的g3表：

   SAG KAO
1:     KAO
2: SAG KAO
3:        
4: SAG    

现在，我们进行查找并替换：

g3[ , lapply(.SD,function(x) ref$g4[chmatch(x,ref$num.individuals)])]

最终结果：

   SAG KAO
1:  NA  24
2:  42  24
3:  NA  NA
4:  42  NA

而且，如果您需要更高的速度， fastmatch软件包可能会有助于其fmatch功能：

require(fastmatch)
g3[ , lapply(.SD,function(x) ref$g4[fmatch(x,ref$num.individuals)])]

   SAG KAO
1:  NA  24
2:  42  24
3:  NA  NA
4:  42  NA