6

我有以下两个数据框：

>df1<-data.frame(A=c(0,0,0),B=c(0,201,0),C=c(0,467,0))
  A   B   C
1 0   0   1
2 0 201 467
3 0   0   0

>df2<-data.frame(A=c(201,467),B=c('abc','def'))
    A   B
1 201 abc
2 467 def

我想使用 df2 中匹配的“B”值替换 df1 中的值，创建一个如下所示的数据框：

   A   B   C
1 NA  NA  NA
2 NA abc def
3 NA  NA  NA

我可以使用以下代码逐列完成此操作：

>df2$B[match(df1$B,df2$A)]

不幸的是，我正在处理一个庞大的数据集，因此更愿意一次匹配所有的列。任何帮助将非常感激。

4

2 回答 2

3

你可以做：

df1[] <- setNames(df2$B, df2$A)[as.character(unlist(df1))]
于 2013-05-06T22:42:03.260 回答
2

另一种可能的解决方案：

df1<-data.frame(A=c(0,0,0),B=c(0,201,0),C=c(0,467,0))
df2<-data.frame(A=c(201,467),B=c('abc','def'))

library(qdap)
apply(df1, 2, lookup, df2)

## > apply(df1, 2, lookup, df2)
##      A  B     C    
## [1,] NA NA    NA   
## [2,] NA "abc" "def"
## [3,] NA NA    NA
于 2013-05-06T22:59:35.833 回答