我在 ggBiplot 中运行了一个 PCA,它看起来很棒,除了因子名称重叠并且我无法更改因子名称和箭头的颜色 - 如图所示。它们是情节本身上的栗色箭头和相关标签。
到目前为止,代码非常简单,但在生成情节方面很有效。我尝试使用排斥功能但没有成功。我给我们做了 ggfortify 并让 repel 功能在那里工作,但更愿意使用 ggbiplot。问题似乎是在 ggbiplot 中,这些因素被称为“varname”,而不是被称为加载标签
pc <- prcomp(x = VQBA[3:19],
+ center = TRUE,
+ scale. = FALSE)
ggbiplot(pc,groups=VQBA$Group,ellipse=TRUE,ellipse.prob=0.7,varname.size=2.5)+theme_minimal()+theme(legend.position="bottom")+labs(color="")
作为参考,这里是 ggfortiy 的代码
autoplot(pca_res,VQBA,colour='Group',loadings=TRUE,loadings.label=TRUE, loadings.label.repel=TRUE,loadings.label.size=3,loadings.label.colour='black',loadings.colour='grey50')+stat_ellipse(type="norm",level=0.68,aes(color=VQBA$Group))+theme_minimal()+theme(legend.position="bottom")+labs(colour="")+scale_fill_discrete(labels=c("Live","Video")