Ю
df1 <- iris
df2 <- iris
df1[c(1, 3), c(1, 2)] <- 0 # ошибки, которые нужно выловить
mismatches <- which(df1 != df2, arr.ind = TRUE)
df1[unique(mismatches[, 1]),
unique(mismatches[, 2]),
drop = FALSE]
ок, или можно как-то проще сделать?
Size: a a a
Ю
A
df1 <- iris
df2 <- iris
df1[c(1, 3), c(1, 2)] <- 0 # ошибки, которые нужно выловить
mismatches <- which(df1 != df2, arr.ind = TRUE)
df1[unique(mismatches[, 1]),
unique(mismatches[, 2]),
drop = FALSE]
ВL
A
A
A
ИП
АН
АН
PU
PU
VV
PU
VV
VV
PU
VV
PU
a
PU