请教大神，R里面如何实现字符串匹配：包含AB且不为ABC的形式存在

如：
sample<-c("这辆车很时尚","紧凑型SUV造型时尚大气","紧凑型SUV","1.7L 时尚版SUV")

我希望抓取包含"时尚|紧凑"但不以"时尚版|紧凑型"的形式存在的字符串：

即抓取出来的应该是 c("这辆车很时尚","紧凑型SUV造型时尚大气")

grepl("时尚|紧凑",sample) & !grepl("紧凑型|时尚版",sample) 会使得"紧凑型SUV造型时尚大气" 不能被识别；

请教大神，这种情况应该怎么处理