Замена значений столбцов, если они соответствуют одному из двух столбцов в другом наборе данных

Это может быть один из способов сделать это:

library(tidyverse)

dat2 %>% 
  inner_join(dat1 %>% pivot_longer(!code3), by = c('codes'='value')) %>%
  select(!name) %>%
  mutate(codes = coalesce(!!!rev(.))) %>%
  select(codes)

   codes
1:    C1
2:    C2
3:    C1
4:    C2

Вы можете использовать match:

`%r%`<- function(x, y) replace(x %% y, x %% y == 0, y)
dat2[, codes := dat1$code3[match(dat2$codes, unlist(dat1)) %r% nrow(dat1)]]

#   codes
#1:    C1
#2:    C2
#3:    C1
#4:    C2

Объяснение:

• Это использует match для unlisted значения dat1 (вы также можете сосредоточиться только на выбранных столбцах).
• Затем вы можете использовать %% (по модулю), чтобы получить оставшуюся часть целочисленного деления на nrow(dat1). По сути, он восстанавливает размер столбцов (релист).
• Проблема в том, что он создает значение 0 там, где нам нужно 2 (или nrow), отсюда и новый оператор.

Мы можем использовать melt вместе с join by on = ..., если вы работаете с data.table, например,

dat2[
  melt(dat1, id.var = "code3"), 
  .(codes = code3),
  on = c(codes = "value")
]

который дает

> dat2[melt(dat1, id.var = "code3"), .(codes = code3), on = c(codes = "value")]
   codes
1:    C1
2:    C2
3:    C1
4:    C2

где melt(dat1, id.var = "code3") выглядит

> melt(dat1, id.var = "code3")
   code3 variable value
1:    C1    code1    A3
2:    C2    code1    A4
3:    C1    code2    B2
4:    C2    code2    B3

Вариант с именованным вектором

dat2[, codes := setNames(rep(dat1$code3, 2), unlist(dat1[, 1:2]))[codes]]

-вывод

> dat2
    codes
   <char>
1:     C1
2:     C2
3:     C1
4:     C2

Другое решение, основанное на функции match:

dat2[, codes := dat1[, rep(code3, 2)[match(codes, c(code1, code2))]]]

    codes
1:     C1
2:     C2
3:     C1
4:     C2