Изменить метки факторов в psych :: fa или psych :: fa.diagram

Question

Я использую пакет psych для факторного анализа.Я хочу указать метки скрытых факторов либо в объекте fa(), либо при построении графика с помощью fa.diagram().

Например, с игрушечными данными:

require(psych)
n <- 100
choices <- 1:5
df <- data.frame(a=sample(choices, replace=TRUE, size=n), 
                 b=sample(choices, replace=TRUE, size=n), 
                 c=sample(choices, replace=TRUE, size=n), 
                 d=sample(choices, replace=TRUE, size=n))
model <- fa(df, nfactors=2, fm="pa", rotate="promax")

model

Factor Analysis using method =  pa
Call: fa(r = df, nfactors = 2, rotate = "promax", fm = "pa")
Standardized loadings (pattern matrix) based upon correlation matrix
    PA1   PA2   h2   u2 com
a  0.45 -0.49 0.47 0.53 2.0
b  0.22  0.36 0.17 0.83 1.6
c -0.02  0.20 0.04 0.96 1.0
d  0.66  0.07 0.43 0.57 1.0

Iхотите изменить PA1 и PA2 на FactorA и FactorB, либо изменив сам объект model, либо изменив метки на выходе fa.diagram():

Документы для fa.diagram имеют аргумент labels, но примеров нет, и эксперименты, которые я провел до сих пор, не были плодотворными.Любая помощь высоко ценится!

Answer 1

С str(model) Я нашел атрибут $loadings, который fa.diagram() использует для визуализации диаграммы.Модификация colnames() из model$loadings сделала свое дело.

colnames(model$loadings) <- c("FactorA", "FactorB")
fa.diagram(model)