將一列數值重新編碼為 R 中的新文本值列

Question

在 R 中，在數據框中，我想獲取一列中樹種的代碼編號，並在數據框中創建一個新列，並使用如下所示的物種的重新編碼文本名稱。 我可以創建一個樹名 = 代碼號的矩陣，但是如何將其應用於僅包含數值的長列和混合列？

> treeco <- c(4, 3, 4, 5, 3, 2, 2, 1, 4)
> spcode <- c("oak" = 1, "ash" = 2, "elm" = 3, "beech" = 4, "hazel" = 5)
> treesp <- data.frame(spcode)
> treesp
      species
oak         1
ash         2
elm         3
beech       4
hazel       5

這是我正在尋找的解決方案：

  treeco spcode
1      4  beech
2      3    elm
3      4  beech
4      5  hazel
5      3    elm
6      2    ash
7      2    ash
8      1    oak
9      4  beech

Answer 1

基數R

data.frame(treeco, answer = names(spcode)[treeco])
#   treeco answer
# 1      4  beech
# 2      3    elm
# 3      4  beech
# 4      5  hazel
# 5      3    elm
# 6      2    ash
# 7      2    ash
# 8      1    oak
# 9      4  beech

dplyr

當列名與環境中的列名匹配時，可能會有些混亂，因此為了演示起見，我將在treeco中重命名treeco ，以便清楚使用的是哪個。

library(dplyr)
tibble(tc = treeco) %>%
  mutate(answer = names(spcode)[tc])
# # A tibble: 9 x 2
#      tc answer
#   <dbl> <chr> 
# 1     4 beech 
# 2     3 elm   
# 3     4 beech 
# 4     5 hazel 
# 5     3 elm   
# 6     2 ash   
# 7     2 ash   
# 8     1 oak   
# 9     4 beech 

還有另一種方法可以讓您引入不止一個額外的列：加入/合並。

treecodes <- data.frame(code = spcode, tree = names(spcode))
set.seed(42)
treecodes$rand <- sample(100, size = nrow(treecodes), replace = TRUE)
treecodes
#       code  tree rand
# oak      1   oak   49
# ash      2   ash   65
# elm      3   elm   25
# beech    4 beech   74
# hazel    5 hazel  100
trees <- data.frame(code = treeco)
trees
#   code
# 1    4
# 2    3
# 3    4
# 4    5
# 5    3
# 6    2
# 7    2
# 8    1
# 9    4
trees %>%
  left_join(treecodes, by = "code")
#   code  tree rand
# 1    4 beech   74
# 2    3   elm   25
# 3    4 beech   74
# 4    5 hazel  100
# 5    3   elm   25
# 6    2   ash   65
# 7    2   ash   65
# 8    1   oak   49
# 9    4 beech   74

有關連接/合並的更多信息，請參閱如何連接（合並）數據框（內部、外部、左、右）和內部連接、左連接、右連接和完全連接之間的區別是什么？ .