было дано в виде эксель таблиц, нельзя ли сделать вот так просто и прямолинейно?:
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)]
Да, этот код работал бы корректно, если бы в реальных данных не было ситуации, когда одна subsrvc входит в разные srvc.
Обсуждают сегодня