Когда я использую основную функцию, как в следующем коде, я получаю хорошую таблицу, в которой приведены все стандартизированные загрузки, а также таблицу с собственными значениями и объясненной пропорцией и совокупной пропорцией.

rotatedpca <- principal(PCFdataset, nfactors = 8, rotate = "varimax", scores = T)

Я хотел бы экспортировать этот вывод в файл Excel (используя WriteXLS), но я могу сделать это только для фреймов данных, а rotatedpca не является фреймом данных и не может быть приведен в один, как кажется. Я могу извлечь стандартизированные загрузки с помощью следующего кода:

loadings<-as.data.frame(unclass(rotatedpca$loadings))

Но я не могу понять, как получить доступ к другой информации, которая обычно отображается, когда я просто вызываю основную функцию, в частности, собственные значения и объясненные пропорции и кумулятивная дисперсия. Я пробовал rotatedcpa $ values, но он возвращает то, что выглядит как собственные значения для всех 12 исходных переменных, как факторы без вращения, чего я не понимаю. И я не смог придумать никакого способа даже попытаться извлечь значения, объясненные дисперсией. Как я могу просто создать фрейм данных, который выглядит как вывод R, который я получаю ниже из основной функции, например?

                       RC2  RC3  RC8  RC1  RC4  RC5  RC6  RC7
SS loadings           1.52 1.50 1.45 1.44 1.01 1.00 0.99 0.98
Proportion Var        0.13 0.12 0.12 0.12 0.08 0.08 0.08 0.08
Cumulative Var        0.13 0.25 0.37 0.49 0.58 0.66 0.74 0.82
Proportion Explained  0.15 0.15 0.15 0.15 0.10 0.10 0.10 0.10
Cumulative Proportion 0.15 0.31 0.45 0.60 0.70 0.80 0.90 1.00

Спасибо, что прочитали мой пост!