R: Set the point size of PCA supplementary variables according to their number in my dataset

I am using factoextra and FactoMineR to run a PCA.