R ggbiplot - Как изменить шкалу осей в зависимости от длины нагрузок?

Question

Я выполнил анализ PCA (по данным Iris) с помощью пакета R prcomp. Когда я отображаю результаты с использованием функции ggbiplot, масштаб осей соответствует повернутым данным (= ir_pca $ x) (см. Ссылку на изображение ниже), но я хочу, чтобы оси масштабировались в соответствии с нагрузками (= вращение ir_pca $) также. Два участка были бы хорошими. Один с нагрузками и соответствующим масштабированием осей, а один дополнительный график отображает только повернутые данные и соответствующие им масштабы осей. Третий вариант - отображать обе шкалы на одном графике, то есть повернутые данные снизу и слева и шкалы нагрузок сверху и справа.

ir_pca <- prcomp(ir, center = TRUE, scale = TRUE) 

g = ggbiplot(ir_pca,
             choices = c(1,2),
             groups = iris[,5],
             var.axes = TRUE,
             obs.scale = 1,
             ellipse = TRUE)
print(g)

Результат анализа PCA (данные радужной оболочки), отображающий только повернутые данные по осям масштабирования.