r - 使用数据框作为对应表

Question

我有一个看起来像这样的数据库：

> database
     [,1] [,2] [,3] [,4]
[1,]    1    2    1    1
[2,]    2    2    3    4
[3,]    4    4    4    1

还有一个对应表，它是一个数据框：

> corresp
  number  name
1      1 name1
2      2 name2
3      3 name3
4      4 name4

如何在不使用循环的情况下用数据库中的相应名称替换数字？

（用于复制：）

database <- rbind(c(1, 2, 1, 1), 
                  c(2, 2, 3, 4),
                  c(4, 4, 4, 1))
corresp <- data.frame(number = c(1, 2, 3, 4),
                      name = c("name1","name2","name3","name4"))

标签： rdataframe

Answer 1

没有循环，甚至没有apply：

database[] <- as.character(corresp$name)[match(database, corresp$number)]

database
#     [,1]    [,2]    [,3]    [,4]   
#[1,] "name1" "name2" "name1" "name1"
#[2,] "name2" "name2" "name3" "name4"
#[3,] "name4" "name4" "name4" "name1"