PCA-绘制到主要成分的距离

Question

我正在使用CRAN虹膜数据集进行PCA分析。我不知道如何创建以下情节：

我想选择第一个主要成分，对于这个成分，我想绘制每个个体到该成分的距离。任何提示将不胜感激！

用于PCA的命令如下：

data(iris)
log.ir <- log(iris[,1:4])
ir.species <- iris[,5]
ir.pca <- prcomp(log.ir, center=TRUE, scale. = TRUE)
ir.pca

干杯！