如何使用子字符串setdiff两个向量

Question

传统上，当使用向量时，如果要比较向量之间的精确值，则setdiff会起作用：

superset <- c("price", "color", "size")
subset <- c("color", "price")
length(setdiff(superset, subset)) == 0

但我希望根据子字符串进行匹配：

superset <- c("price", "colorB", "colorC", "size")
length(setdiff(superset, c("color")) == 0 # wishful thinking
length(setdiff(superset, c("color", "not_color")) == 1 # wishful thinking

我知道我可以用lapply和grepl来讨论。我不知道是否有更好的方法。