How do I change the pt.size for my FeaturePlot so that it will change only for the expressed value?

[elimmunologist]

I'm making a FeaturePlot of naive genes expressed in T cells and doing AddModuleScore to see which cells highly express these genes the most. When I make the FeaturePlot, I would like for the pt.size = 2, but only for the cells that express the markers. How can I add that to the FeaturePlot function, or is this a limitation for Seurat? Here's the code I have so far, thanks for all your help!

naive <- list(c("Sell", "Ccr7", "S1pr1", "Dapl1", "Ccr9", "Tcf7"))
Tcell <- AddModuleScore(Tcell, features = naive, ctrl = 20, name = "Naive")
FeaturePlot(Tcell, features = "Naive1", cols = c("grey","orange","red"))