将数据框中的元素替换为另一个数据框中的变量

Question

我有一个数据框，其中包含字符元素。我需要通过引用另一个数据框来替换元素。数据框 1 的列名称可以是任何内容，必须在不引用列名称的情况下替换数据。

 data-frame_1                         data-frame_2

Jan-12  Feb-12                       rating  Order
 ab       ac                          ab      1
 ac       ab                          ac      2

apply(data-frame_1,2,function(x){mapvalues(x,data-frame_2$rating,data-frame_2$Order)})

我尝试过使用 apply 函数，但它不起作用。 我正在尝试获取此输出

 data-frame_1                        

Jan-12  Feb-12                       
   1       2                          
   2       1      

Answer 1

一个选项是匹配

df1[] <- lapply(df1, function(x) df2$Order[match(x, df2$rating)])

或者使用sapply

sapply(df1, function(x) df2$Order[match(x, df2$rating)])
#     Jan-12 Feb-12
#[1,]      1      2
#[2,]      2      1

数据

df1 <- structure(list(`Jan-12` = c("ab", "ac"), `Feb-12` = c("ac", "ab"
)), class = "data.frame", row.names = c(NA, -2L))

df2 <- structure(list(rating = c("ab", "ac"), Order = 1:2), 
class = "data.frame", row.names = c(NA, 
-2L))