1

我正在尝试使用 factoextra 包中的“fviz_pca_biplot”在 r 中绘制 PCA 模型。但是我在使绘图足够大以显示所有向量时遇到问题。欢迎任何帮助。

我正在使用这段代码：

#install.packages("FactoMineR")
library("FactoMineR")
res.pca.can <- PCA(Cannabis, scale= TRUE)

#install("factoextra")
library("factoextra")
factoextra::fviz_pca_biplot(res.pca.can, axes = c(1, 2), col.ind = "black", col.var = "steelblue",repel = TRUE, select.var = list(contrib = 5),  title = "Cannabis PCA - Biplot")

这是即将出现的双标图： 双标图

我正在使用这个数据集：Substance_Use

我从中对我需要的变量进行了子集化：

Alcohol <- subset(Substance_Use[10:26])
Cannabis <- subset(Substance_Use[27:42])
Pandemic_Attitudes <- subset(Substance_Use[2:9])
Demographics <- subset(Substance_Use[43:50])

输出是：

> dput(head(Cannabis))
structure(list(CAN_05 = c(1, 8, 3, 2, 8, 1), CAN_15 = c(6, 4, 
1, 4, 4, 6), CAN_10 = c(6, 1, 1, 1, 4, 6), CAN_20A = c(6, 6, 
2, 6, 6, 6), CAN_20B = c(6, 6, 2, 6, 6, 6), CAN_20C = c(6, 6, 
2, 6, 6, 6), CAN_20D = c(6, 6, 2, 6, 6, 6), CAN_20E = c(6, 6, 
2, 6, 6, 6), CAN_20F = c(6, 6, 2, 6, 6, 6), CAN_20G = c(6, 6, 
2, 6, 6, 6), CAN_20H = c(6, 6, 1, 6, 6, 6), CAN_20I = c(6, 6, 
2, 6, 6, 6), CAN25AGH = c(6, 6, 6, 6, 6, 6), CAN_25BF = c(6, 
6, 6, 6, 6, 6), CAN_25CD = c(6, 6, 6, 6, 6, 6), CAN_25E = c(6, 
6, 6, 6, 6, 6)), row.names = c(NA, -6L), class = c("tbl_df", 
"tbl", "data.frame"))
4

0 回答 0