更改心理因素标签：：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

我希望将PA1和PA2更改为FactorA和FactorB，或者通过更改model对象本身，或者调整fa.diagram()输出中的标签。

​

fa.diagram有一个labels论点，但没有例子，而且我迄今为止所做的实验并没有取得什么成果。任何帮助都非常感谢！

Answer 1

使用str(model)，我找到了$loadings属性，fa.diagram()使用该属性来呈现关系图。修改colnames() of model$loadings起了作用。

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

​

​