Я выполняю PCA для своего файла .tps, и мне нужно назначить цвета для видов или образцов, чтобы при построении графика (и условных обозначений на нем) цвета не перекрывались.
Это моетекущий код:
prueba <- readland.tps("todos",specID = "ID")
ProPrueba <- gpagen(prueba)
NameList <- dimnames(prueba)[[3]]
UniqueNames <- gsub('[[:digit:]]+', '', NameList)
dimnames(prueba)[[3]] <- UniqueNames
factores <- factor(UniqueNames)
pca_prueba <- plotTangentSpace(ProPrueba$coords, label= NULL, verbose =T,
groups=factores, warpgrids=F, legend = T)
В результате:
