如何将一个数据帧中的值匹配和替换到另一个数据帧？

Question

我有一个数据框df

df = data.frame("A" = c("car",NA,"cat","cut"),
                "B" = c(NA,"car",NA,"cat"),
                "C" = c("cut","cat",NA,NA))

还有一个df2

df2 = data.frame("Group" = c("car", "cat","cut"),
                 "Value" = c(1,2,3))

我想要这样的输出

     A    B    C
1    1   NA    3
2   NA    1    2
3    2   NA   NA
4    3    2   NA

我对 R 比较陌生，所以我需要一些帮助来解决这个问题。谢谢！

Answer 1

您可以unlist 数据框并使用match ：

df[] <- df2$Value[match(unlist(df), df2$Group)]
df

#   A  B  C
#1  1 NA  3
#2 NA  1  2
#3  2 NA NA
#4  3  2 NA

---

要使用dplyr 解决此问题，您可以这样做：

library(dplyr)
df %>% mutate(across(.fns = ~df2$Value[match(., df2$Group)]))

Answer 2

你可以使用factor:

df_new <- df # just in case you want to retain your original df
df_new[] <- lapply(df, factor, levels = df2$Group, labels = df2$Value)
df_new 
#      A    B    C
# 1    1 <NA>    3
# 2 <NA>    1    2
# 3    2 <NA> <NA>
# 4    3    2 <NA>

但请注意，这些值是字符。要获取数值，您可以使用lapply(df, function(x) as.integer(as.character(factor(x, levels = df2$Group, labels = df2$Value))))。

或者，您可以这样做：

df_new[] <- factor(as.matrix(df), levels = df2$Group, labels = df2$Value)

这将再次返回带有字符列的data.frame。使用as.integer(as.character(factor(as.matrix(df), levels = df2$Group, labels = df2$Value)))获取数值。

---

如果您的值列始终只是一个连续整数，您可以在使用as.integer 之前跳过“标签”参数和as.character。此外，您可以使用data.matrix 来简化数值的提取。

---

这些已经过基准测试in this Gist。