Va una alternativa a la respuesta de @Patricio. La implemento con dplyr
, pero se podría reformular para base
o data.table
. La idea es contar la cantidad de valores únicos de pórticos por grupo y ver si son 1
o más de 1
.
library(tidyverse)
tribble(~portico, ~patente,
1, "A",
2, "A",
1, "B",
2, "B",
1, "C") -> casos
casos %>%
group_by(patente) %>%
filter(length(unique(portico)) == 1) #Pasó por una o más veces por el mismo pórtico
#filter(length(unique(portico)) > 1) #Pasó pasó por al menos dos pórticos diferentes
Esta opción funcionaría aún en el caso de un auto que pasó dos veces por el mismo pórtico, no es necesario pasarle "a mano" los nombres de pórticos y se puede adaptar para autos que pasaron por un número arbitrario de pórticos distintos. Podría no ser correcta si el caso se restringe a los pórticos 1 y 2, sin considerar un hipotético pórtico 3.