could not find function "communality"

很抱歉，我之前提到的 `communality()` 函数在某些版本的 `psych` 包中可能已被删除。你可以尝试使用以下代码来查看每个变量的公共性得分：

# 进行共性分析
fa <- fa(data, nfactors = 3, rotate = "varimax")

# 查看每个变量的公共性得分
fa$comm

这将返回一个向量，其中包含每个变量的公共性得分。这些得分表示每个变量中的方差可以由公共因子解释的程度。如果某个变量的公共性得分很低，那么它可能需要被删除或者进一步研究其特定的因果关系。