我不知道每个数字是什么意思 我用红色标记检查了这些。 请帮助我。
pca.from.items <- items[1:16] %>%
na.omit %>% # na value deleted
data.matrix %>% #convert dataframe to numeric matrix
cor %>%
principal(., rotate = "oblimin", nfactors = 4 ) %T>% print
pca <- principal(items[1:16], rotate = "oblimin", nfactors = 4 ) %T>% print
pca %>% fa.diagram
