PU
Size: a a a
PU
AS
PU
ИП
PD
library(data.table)
key_table = data.table(srvc = c("A", "D"),
subsrvc = c("B, C", "E, F, G"))
asis = data.table(id = c(1, 1, 1, 2, 2, 2, 2),
srvc = c("A", "B", "C", "D", "E", "F", "G"))
asis[, res := ifelse(!srvc %in% key_table$srvc, NA, srvc)]
AS
AS
library(data.table)
key_table = data.table(srvc = c("A", "D"),
subsrvc = c("B, C", "E, F, G"))
asis = data.table(id = c(1, 1, 1, 2, 2, 2, 2),
srvc = c("A", "B", "C", "D", "E", "F", "G"))
asis[, res := ifelse(!srvc %in% key_table$srvc, NA, srvc)]
ИП
PU
AS
AS
DB
Ю
ЕТ
PU
ЕТ
ЕТ
AS
a
data()
ЕТ
data()