如何使用正则表达式否定字符串中的特定模式？

Question

我有一个字符串，我想只提取一个特定的模式。

x<-c("N4553","3805U","celeron N4553","applheddd")
gregextract <- gregexpr('\\bceleron\\b|\\bN[0-9]+\\b',x,perl=TRUE)
size1<- regmatches(x,gregextract,invert = FALSE)

它提取N的出现次数，我只需要提取celeron（celeron N4533的组合出现）而不是N4533。我无法删除N[0-9]模式，因为它用于不同行中的其他事件。