Я использую autoplot() из пакета ggfortify для получения графиков PCA от объекта prcomp.У меня есть 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
Все работает, но легендаотсутствует.Имеет ли предупреждающее сообщение какое-либо отношение к отсутствующей легенде?