在R

Question

我正在使用autoplot()包中的ggfortify从prcomp对象获取PCA图。我有44个不同的组，需要使用不同的形状/颜色进行绘制。使用以下代码，我可以生成4种不同的形状和11种不同的颜色，从而提供44种组合。

pal <- brewer.pal(12, name="Set3") 
cols <- rep(pal, 4) 
shapes <- rep(15:18, each=12)
gr <- factor(tb.subset$Group)

autoplot(prcomp(tbd.subset.pro,scale.=TRUE),x=3,y=4, data = tb.subset,colour=as.character(cols[gr]),shape=as.numeric(shapes[gr]),size=3,alpha=0.9)+theme_bw()


Warning messages:
1: In if (value %in% columns) { :
the condition has length > 1 and only the first element will be used
2: In if (value %in% columns) { :
the condition has length > 1 and only the first element will be used 

一切正常，但图例不见了。警告消息与丢失的图例有关吗？