如何在factoextra或ggplot2中设置X轴总长度

我最近给期刊投稿时遇到个麻烦——期刊要求把图表的X轴总长度固定为4厘米，但我翻遍了参数都没找到直接设置轴长度的选项。这里要特别说明下：我要的不是调整整个图片的宽度，而是单独指定X轴本身的长度。

我目前用的代码如下：

library(ggplot2) 
library(FactoMineR) 
library(factoextra) 

irispca <- PCA(iris, quali.sup = 5) 
fviz_pca_var(irispca)+ 
  theme(text = element_text(size = 7.5), 
        axis.title = element_text(size = 7.5), 
        axis.text = element_text(size = 7.5) )

下面这张图展示了我需要达到的X轴长度效果：

内容的提问来源于stack exchange，提问作者Minyi Han