使用数据框作为对应表

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"))

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"