<div dir="ltr">Olá pessoal meu nome é Jackson Rodrigues e estou utilizando o pacote vegan para fazer análise multivariada, PCA 'Principal Component Analysis"para ser mais preciso.<div><br></div><div>Direto ao ponto.</div>
<div><br></div><div>Tenho um conjunto de dados polínicos com 54 linhas (representando os sites) e 145 colunas (representando os táxons).</div><div><div>Eu quero plotar os 2 primeiros PC´s sendo de maneira que seja um grupo com 27 sites com um único símbolo e cores diferentes e os outro grupo com 27 sites utilizando outro símbolo repetindo as mesmas cores anteriores.</div>
<div><br></div><div>Alguém pode me indicar como fazê-lo.</div><div><br></div><div>Estou usando o script abaixo, no entanto não sei como utilizar símbolos para cada grupo.</div><div><br></div><div><div>Pre_euro_veg.Pollen<-read.csv("E:/Modern data/Vegetation changes/Veg chang 1/sem Pinus/pca test.csv", header=TRUE)#Apenas trees/shrubs e herbs</div>
<div>rownames(Pre_euro_veg.Pollen) <- c("Conf", "Pires", "Silv", "Capa", "SDO", "SDB",<span class="" style="white-space:pre"> </span>"Ita",<span class="" style="white-space:pre"> </span>"Botu",<span class="" style="white-space:pre"> </span>"SCG",<span class="" style="white-space:pre"> </span>"Arac",<span class="" style="white-space:pre"> </span>"VoVe_1",<span class="" style="white-space:pre"> </span>"PoGd",<span class="" style="white-space:pre"> </span>"Misi",<span class="" style="white-space:pre"> </span>"SBV",<span class="" style="white-space:pre"> </span>"Ciama",<span class="" style="white-space:pre"> </span>"Tabu",<span class="" style="white-space:pre"> </span>"MDI",<span class="" style="white-space:pre"> </span>"CaPu",<span class="" style="white-space:pre"> </span>"Mate",<span class="" style="white-space:pre"> </span>"SJdA",<span class="" style="white-space:pre"> </span>"CDS",<span class="" style="white-space:pre"> </span>"Pint",<span class="" style="white-space:pre"> </span>"SMar",<span class="" style="white-space:pre"> </span>"RdCa",<span class="" style="white-space:pre"> </span>"SFA",<span class="" style="white-space:pre"> </span>"Sant",<span class="" style="white-space:pre"> </span>"StMon",<span class="" style="white-space:pre"> </span>"Conf1", " Pires1",<span class="" style="white-space:pre"> </span>"Silv1",<span class="" style="white-space:pre"> </span>" Capa1",<span class="" style="white-space:pre"> </span>" SDO1",<span class="" style="white-space:pre"> </span>" SDB1",<span class="" style="white-space:pre"> </span>"Ita1",<span class="" style="white-space:pre"> </span>"Botu1",<span class="" style="white-space:pre"> </span>"SCG1",<span class="" style="white-space:pre"> </span>"Arac1",<span class="" style="white-space:pre"> </span>"VoVe_11",<span class="" style="white-space:pre"> </span>"PoGd1",<span class="" style="white-space:pre"> </span>"Misi1",<span class="" style="white-space:pre"> </span>"SBV1",<span class="" style="white-space:pre"> </span>"Ciama1",<span class="" style="white-space:pre"> </span>"Tabu1",<span class="" style="white-space:pre"> </span>"MDI1",<span class="" style="white-space:pre"> </span>"CaPu1",<span class="" style="white-space:pre"> </span>"Mate1",<span class="" style="white-space:pre"> </span>"SJdA1",<span class="" style="white-space:pre"> </span>"CDS1",<span class="" style="white-space:pre"> </span>"Pint1",<span class="" style="white-space:pre"> </span>"SMar1",<span class="" style="white-space:pre"> </span>"RdCa1",<span class="" style="white-space:pre"> </span>"SFA1",<span class="" style="white-space:pre"> </span>"Sant1",<span class="" style="white-space:pre"> </span>"StMon1")</div>
</div><div><br></div><div><br></div><div><div>colvec <- c("antiquewhite", "antiquewhite4",<span class="" style="white-space:pre"> </span>"aquamarine",<span class="" style="white-space:pre"> </span>"aquamarine4",<span class="" style="white-space:pre"> </span>"bisque1",<span class="" style="white-space:pre"> </span>"bisque4",<span class="" style="white-space:pre"> </span>"black",<span class="" style="white-space:pre"> </span>"blue4",<span class="" style="white-space:pre"> </span>"blueviolet",<span class="" style="white-space:pre"> </span>"brown",<span class="" style="white-space:pre"> </span>"burlywood",<span class="" style="white-space:pre"> </span>"chartreuse",<span class="" style="white-space:pre"> </span>"chocolate",<span class="" style="white-space:pre"> </span>"cornflowerblue",<span class="" style="white-space:pre"> </span>"cornsilk",<span class="" style="white-space:pre"> </span>"darkgoldenrod1",<span class="" style="white-space:pre"> </span>"darksalmon",<span class="" style="white-space:pre"> </span>"darkorchid4",<span class="" style="white-space:pre"> </span>"darkslategrey",<span class="" style="white-space:pre"> </span>"gold",<span class="" style="white-space:pre"> </span>"gold4",<span class="" style="white-space:pre"> </span>"lavenderblush2",<span class="" style="white-space:pre"> </span>"lemonchiffon",<span class="" style="white-space:pre"> </span>"lemonchiffon3",<span class="" style="white-space:pre"> </span>"lightblue",<span class="" style="white-space:pre"> </span>"lightpink",<span class="" style="white-space:pre"> </span>"navyblue",</div>
<div> "antiquewhite", "antiquewhite4",<span class="" style="white-space:pre"> </span>"aquamarine",<span class="" style="white-space:pre"> </span>"aquamarine4",<span class="" style="white-space:pre"> </span>"bisque1",<span class="" style="white-space:pre"> </span>"bisque4",<span class="" style="white-space:pre"> </span>"black",<span class="" style="white-space:pre"> </span>"blue4",<span class="" style="white-space:pre"> </span>"blueviolet",<span class="" style="white-space:pre"> </span>"brown",<span class="" style="white-space:pre"> </span>"burlywood",<span class="" style="white-space:pre"> </span>"chartreuse",<span class="" style="white-space:pre"> </span>"chocolate",<span class="" style="white-space:pre"> </span>"cornflowerblue",<span class="" style="white-space:pre"> </span>"cornsilk",<span class="" style="white-space:pre"> </span>"darkgoldenrod1",<span class="" style="white-space:pre"> </span>"darksalmon",<span class="" style="white-space:pre"> </span>"darkorchid4",<span class="" style="white-space:pre"> </span>"darkslategrey",<span class="" style="white-space:pre"> </span>"gold",<span class="" style="white-space:pre"> </span>"gold4",<span class="" style="white-space:pre"> </span>"lavenderblush2",<span class="" style="white-space:pre"> </span>"lemonchiffon",<span class="" style="white-space:pre"> </span>"lemonchiffon3",<span class="" style="white-space:pre"> </span>"lightblue",<span class="" style="white-space:pre"> </span>"lightpink",<span class="" style="white-space:pre"> </span>"navyblue")</div>
<div><br></div><div>Pre_euro.colour.pca<-plot(Pre_euro_veg.1.all.pca, display = "sites", type = "t")</div><div>with(Veg_chng_clim, points(Pre_euro_veg.1.all.pca, display = "sites", col = colvec[Sites], scaling = 2, pch = 21, bg = colvec[Sites]))</div>
<div>head(with(Veg_chng_clim, colvec[Sites]))</div><div>with(Veg_chng_clim, legend("bottomleft", legend = levels(Sites), bty = "o",</div><div>col = colvec, pch = 21, <a href="http://pt.bg">pt.bg</a> = colvec))</div>
<div>title("PCA of All sites")</div></div><div><div><br></div>Se não fui claro o suficiente, por favor pergunte.</div><div><br></div><div>Obrigado.</div><div><br></div><div>Jackson<br><br>-- <br><pre cols="72"><font face="'courier new', monospace">Jackson M. Rodrigues
Department of Palynology and Climate Dynamics
Albrecht-von-Haller-Institute for Plant Sciences
Georg-August-University Göttingen
Untere Karspuele 2
37073 Göttingen/Germany
Tel.: 0049 (0) 176 6133 1991
Web: <a href="http://www.uni-goettingen.de/en/306700.html" target="_blank">http://www.uni-goettingen.de/en/306700.html</a>
</font><br></pre>
</div></div></div>