Просто дважды используйте duplicated
, один со значением по умолчанию fromLast = FALSE
, а другой - fromLast = TRUE
.
Затем отрицайте индекс результата.
inx <- duplicated(Data[c('Key', 'Date')]) | duplicated(Data[c('Key', 'Date')], fromLast = TRUE)
Data[!inx, ]
# Key Date Value
#3 C 2000-05 1.2
#4 A 2001-06 4.0
#5 A 2001-07 5.0
#6 A 2002-08 2.0
Данные.
Data <-
structure(list(Key = structure(c(2L, 2L, 2L, 1L, 1L, 1L), .Label = c("A",
"C"), class = "factor"), Date = structure(c(1L, 1L, 2L, 3L, 4L,
5L), .Label = c("2000-04", "2000-05", "2001-06", "2001-07", "2002-08"
), class = "factor"), Value = c(0.55, 0.6, 1.2, 4, 5, 2)), class = "data.frame", row.names = c(NA,
-6L))