r - 因子分析の負荷からデータフレームを取得する（心理学のfa関数）

Question

次のようなデータフレームがあります。

x <- c(1, 2, 1, 2)
y <- c(1, 2, 3, 4)
z <- c(4, 3, 2, 1)
df <- data.frame(x, y, z)

パッケージのfa関数を使用して因子分析を実行しています。psych

fit <- fa(df, nfactors = 2)
fit$loadings

これにより、次の出力が得られます。

Loadings:
  MR1    MR2   
x  0.448       
y  0.999       
z -0.999       

                 MR1   MR2
SS loadings    2.195 0.000
Proportion Var 0.732 0.000
Cumulative Var 0.732 0.732

MR1とMR2でテーブルをデータフレームとして保存したいと考えています。どうすればこれができるか知っている人はいますか？ありがとうございました。