fileEncoding = "CP932") # データを標準化する # ここでyour_dataは、分析したいデータフレーム dat[,c(4:31)] <- scale(dat[,c(4:31)]) # PCAを実行する pca_result <- PCA(dat[,c(4:31)], graph = FALSE) # PCAの結果を視覚化する # 負荷量プロット fviz_pca_var(pca_result, col.var = "contrib", # 負荷量に基づいて色分け gradient.cols = c("#00AFBB", "#E7B800", "#FC4E07"), repel = TRUE) # テキストが重ならないようにする # または、個体のプロット fviz_pca_ind(pca_result, col.ind = dat$メンバー, # グループ変数に基づいて色分け palette = c("#00AFBB", "#E7B800", "#FC4E07"), addEllipses = TRUE, # グループごとに楕円を追加 legend.title = "Group") ざっくりと指示してもそれなりの結果を返してくれる 80点くらいの回答なのであとは自力で 100点まで持っていく この辺はタイパが良い方でFA