Jackson, bom dia!<br><br>A julgar pela organização dos rownames, tente alterar o argumento "pch=21" por algo como "pch=c(rep(20,27),rep(21,27))". Para uma sugestão mais precisa (ou exata :-) ) será necessário o dataset. Para alterar os símbolos mude os valores 20 e 21.<br>
<br><br>Em sábado, 28 de dezembro de 2013, Jose Claudio Faria<<a href="mailto:joseclaudio.faria@gmail.com">joseclaudio.faria@gmail.com</a>> escreveu:<br>> Jakson,<br>><br>> Seria bom você disponibilizar esse dados em algum site de<br>
> compartilhamento (Copy ou Dropbox) ou dar um dput(Pre_euro_veg.Pollen)<br>> no R e postar aqui para que possa tentar te ajudar. Sem os dados teria<br>> que simular algo...<br>><br>> Dê uma olhada no pacote bpca, ele pode te ajudar.<br>
><br>> Ab,<br>><br>> 2013/12/28 Jackson Rodrigues <<a href="mailto:jacksonmrodrigues@gmail.com">jacksonmrodrigues@gmail.com</a>>:<br>>> Olá pessoal meu nome é Jackson Rodrigues e estou utilizando o pacote vegan<br>
>> para fazer análise multivariada, PCA 'Principal Component Analysis"para ser<br>>> mais preciso.<br>>><br>>> Direto ao ponto.<br>>><br>>> Tenho um conjunto de dados polínicos com 54 linhas (representando os sites)<br>
>> e 145 colunas (representando os táxons).<br>>> Eu quero plotar os 2 primeiros PC´s sendo de maneira que seja um grupo com<br>>> 27 sites com um único símbolo e cores diferentes e os outro grupo com 27<br>
>> sites utilizando outro símbolo repetindo as mesmas cores anteriores.<br>>><br>>> Alguém pode me indicar como fazê-lo.<br>>><br>>> Estou usando o script abaixo, no entanto não sei como utilizar símbolos para<br>
>> cada grupo.<br>>><br>>> Pre_euro_veg.Pollen<-read.csv("E:/Modern data/Vegetation changes/Veg chang<br>>> 1/sem Pinus/pca test.csv", header=TRUE)#Apenas trees/shrubs e herbs<br>>> rownames(Pre_euro_veg.Pollen) <- c("Conf", "Pires", "Silv", "Capa",<br>
>> "SDO", "SDB", "Ita", "Botu", "SCG", "Arac", "VoVe_1", "PoGd", "Misi",<br>>> "SBV", "Ciama", "Tabu", "MDI", "CaPu", "Mate", "SJdA", "CDS", "Pint",<br>
>> "SMar", "RdCa", "SFA", "Sant", "StMon", "Conf1", " Pires1", "Silv1", "<br>>> Capa1", " SDO1", " SDB1", "Ita1", "Botu1", "SCG1", "Arac1", "VoVe_11",<br>
>> "PoGd1", "Misi1", "SBV1", "Ciama1", "Tabu1", "MDI1", "CaPu1", "Mate1",<br>>> "SJdA1", "CDS1", "Pint1", "SMar1", "RdCa1", "SFA1", "Sant1", "StMon1")<br>
>><br>>><br>>> colvec <- c("antiquewhite", "antiquewhite4", "aquamarine", "aquamarine4",<br>>> "bisque1", "bisque4", "black", "blue4", "blueviolet", "brown", "burlywood",<br>
>> "chartreuse", "chocolate", "cornflowerblue", "cornsilk", "darkgoldenrod1",<br>>> "darksalmon", "darkorchid4", "darkslategrey", "gold", "gold4",<br>
>> "lavenderblush2", "lemonchiffon", "lemonchiffon3", "lightblue", "lightpink",<br>>> "navyblue",<br>>> "antiquewhite", "antiquewhite4", "aquamarine", "aquamarine4",<br>
>> "bisque1", "bisque4", "black", "blue4", "blueviolet", "brown", "burlywood",<br>>> "chartreuse", "chocolate", "cornflowerblue", "cornsilk", "darkgoldenrod1",<br>
>> "darksalmon", "darkorchid4", "darkslategrey", "gold", "gold4",<br>>> "lavenderblush2", "lemonchiffon", "lemonchiffon3", "lightblue", "lightpink",<br>
>> "navyblue")<br>>><br>>> Pre_euro.colour.pca<-plot(Pre_euro_veg.1.all.pca, display = "sites", type =<br>>> "t")<br>>> with(Veg_chng_clim, points(Pre_euro_veg.1.all.pca, display = "sites", col =<br>
>> colvec[Sites], scaling = 2, pch = 21, bg = colvec[Sites]))<br>>> head(with(Veg_chng_clim, colvec[Sites]))<br>>> with(Veg_chng_clim, legend("bottomleft", legend = levels(Sites), bty = "o",<br>
>> col = colvec, pch = 21, <a href="http://pt.bg">pt.bg</a> = colvec))<br>>> title("PCA of All sites")<br>>><br>>> Se não fui claro o suficiente, por favor pergunte.<br>>><br>>> Obrigado.<br>
>><br>>> Jackson<br>>><br>>> --<br>>><br>>> Jackson M. Rodrigues<br>>> Department of Palynology and Climate Dynamics<br>>> Albrecht-von-Haller-Institute for Plant Sciences<br>
>> Georg-August-University Göttingen<br>>> Untere Karspuele 2<br>>> 37073 Göttingen/Germany<br>>> Tel.: 0049 (0) 176 6133 1991<br>>> Web: <a href="http://www.uni-goettingen.de/en/306700.html">http://www.uni-goettingen.de/en/306700.html</a><br>
>><br>>><br>>><br>>> _______________________________________________<br>>> R-br mailing list<br>>> <a href="mailto:R-br@listas.c3sl.ufpr.br">R-br@listas.c3sl.ufpr.br</a><br>>> <a href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br">https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br</a><br>
>> Leia o guia de postagem (<a href="http://www.leg.ufpr.br/r-br-guia">http://www.leg.ufpr.br/r-br-guia</a>) e forneça código<br>>> mínimo reproduzível.<br>><br>><br>><br>> --<br>> ///\\\///\\\///\\\///\\\///\\\///\\\///\\\///\\\<br>
> Jose Claudio Faria<br>> Estatistica<br>> UESC/DCET/Brasil<br>> joseclaudio.faria at <a href="http://gmail.com">gmail.com</a><br>> Telefones:<br>> 55(73)3680.5545 - UESC<br>> 55(73)9100.7351 - TIM<br>
> 55(73)8817.6159 - OI<br>> ///\\\///\\\///\\\///\\\///\\\///\\\///\\\///\\\<br>> _______________________________________________<br>> R-br mailing list<br>> <a href="mailto:R-br@listas.c3sl.ufpr.br">R-br@listas.c3sl.ufpr.br</a><br>
> <a href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br">https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br</a><br>> Leia o guia de postagem (<a href="http://www.leg.ufpr.br/r-br-guia">http://www.leg.ufpr.br/r-br-guia</a>) e forneça código mínimo reproduzível.<br>
><br><br>-- <br><div dir="ltr">Éder Comunello <<a href="mailto:comunello.eder@gmail.com" target="_blank">c</a><a href="mailto:omunello.eder@gmail.com" target="_blank">omunello.eder@gmail.com</a>> <br>Dourados, MS - [22 16.5'S, 54 49'W]<br>
</div><br>