在葡萄酒数据示例中,散点图具有离散颜色、绿色、红色等的组,但我的数据带有连续的蓝色刻度,这使得很难看到不同的“组”;
pca_whales<-read.table("test.txt", header=T)
attach(pca_whales)
model_pca_whales<-prcomp(pca_whales[,1:7],scale=TRUE)
gg_pca <- ggbiplot(model_pca_whales,obs.scale = 1, var.scale=1, groups=pca_whales$sub, ellipse=F,circle=F,varname.size=3)
gg_pca
数据:
sub -3dB -10dB dur freq srt stfreq
1 0.096 0.336 149.814 27.84 32.993 29.25
2 2.83933 11.2806 272.248 27.8561 239.136 27
3 2.22542 10.8201 221.959 27.0887 203.751 26.25
4 0.782222 15.0756 264.598 27.52 192.073 27.75
我试过重新编号'sub'不连续,但这不会影响显示
任何建议都非常感谢。