如何在 R 中一次重新編碼具有相同映射的多個變量？

Question

我正在努力尋找一種更簡潔的方法來一次以更精簡的方式重新編碼（數字到數字）多個變量。 有沒有比下面這段代碼更簡單的方法？

mhomes_min <- mhomes %>% 
  mutate(contrib_private_3rd_party = recode(contrib_private_3rd_party,
     `1` = 1,
     `2` = 49,
     `3` = 100,
     `4` = 200,
     `5` = 500,
     `6` = 1000,
     `7` = 5000,
     `8` = 10000,
     `9` = 20000)) %>% 
  mutate(contrib_firm_3rd_party = recode(contrib_firm_3rd_party,
     `1` = 1,
     `2` = 49,
     `3` = 100,
     `4` = 200,
     `5` = 500,
     `6` = 1000,
     `7` = 5000,
     `8` = 10000,
     `9` = 20000)) %>% ...

Answer 1

我們可以使用mutate和 cross across指定要recode across列名 d 來修改這些列

mhomes <- mhomes %>%
  mutate(across(c(contrib_private_3rd_party, contrib_firm_3rd_party), 
     ~ recode(., `1` = 1,
 `2` = 49,
 `3` = 100,
 `4` = 200,
 `5` = 500,
 `6` = 1000,
 `7` = 5000,
 `8` = 10000,
 `9` = 20000)))