diff --git a/R/guide-legend.R b/R/guide-legend.R
index 26a0b401b0..47fe3c8d66 100644
--- a/R/guide-legend.R
+++ b/R/guide-legend.R
@@ -724,7 +724,7 @@ keep_key_data <- function(key, data, aes, show) {
   }
   keep <- rep(FALSE, nrow(key))
   for (column in match) {
-    keep <- keep | vec_in(key$.value, data[[column]])
+    keep <- keep | key$.value %in% data[[column]]
   }
   keep
 }