ggbiplot组颜色标度离散

Question

在葡萄酒数据示例中，散点图具有离散颜色，绿色，红色等组，但我的数据带有连续的蓝色标度，这使得难以看到不同的“组” “;

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 

我试图重编 '子' 不连续的，但是这并不影响显示

任何建议不胜感激。

Answer 1

如果你想要一个类似于葡萄酒例子的输出make soure你的变量（pca_whales $ sub）是一个因子变量。否则，你会得到连续的蓝色刻度。