K
Size: a a a
K
Ю
K
Ю
K
AS
БА
PU
БА
GS
K
df %>% summarise_all(.funs = ~names(which.max(table(.))))
БА
AI
A
Ю
A
library(data.table)
dt1 <- data.table(id = 1:2, val = list(list(1, 2), list(1, 2, 3)))
dt2 <- data.table(id = 1:2, ref_val = 1)
dt <- dt1[dt2, on = "id"]
dt[, .(compar_res = list(unlist(val) == ref_val)), by = id]
A
AI
library(data.table)
dt1 <- data.table(id = 1:2, val = list(list(1, 2), list(1, 2, 3)))
dt2 <- data.table(id = 1:2, ref_val = 1)
dt <- dt1[dt2, on = "id"]
dt[, .(compar_res = list(unlist(val) == ref_val)), by = id]
ЕТ
S