Ok FH, obrigada.<div><br></div><div>bom dia</div><div><br></div><div>Renata<br><br><div class="gmail_quote">2013/2/6 FHRB Toledo <span dir="ltr"><<a href="mailto:fernandohtoledo@gmail.com" target="_blank">fernandohtoledo@gmail.com</a>></span><br>
<blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">Renata,<div><br></div><div>CMR é a abrevição de Código Mínimo Reproduzível, veja no rodapé das mensagem da lista um link com um guia de postagens!</div>
<div><br></div><div>Lá você verá como reportar uma dúvida para a lista em que as pessoas possam de ajudar de modo mais apropriado!</div>
<div><br></div><div>Continuando no seu problema, se você inspecionar essa lista verá que esses nomes row1, row2 e etc aparecem em algumas posições!</div><div><br></div><div>Não entendo muito da lógica desse seu plot, mas ele com certeza coleta informações dessa lista e usa para os gráficos...</div>
<div class="HOEnZb"><div class="h5">
<div><br></div><div>att,</div><div>FH<br><br><div class="gmail_quote">2013/2/6 Renata Carvalho <span dir="ltr"><<a href="mailto:renataecology@gmail.com" target="_blank">renataecology@gmail.com</a>></span><br>
<blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">Ei FH, desculpe mas sou nova na R-br, oq é CMR? Não entendi muito bem sua sugestão, são 180 linhas na matriz. Na verdade o que me interessa são os sites que se chamam CODE na minha tabela. São 4 CODES e gostaria de que fossem plotados como símbolos. O resultado do str(vare.cca) segue abaixo.<div>
Renata<br><div><br></div><div><br></div><div><br><div>> str(vare.cca)</div><div>List of 12</div><div> $ call : language cca(formula = Y ~ Scale + CODE + AWMSI + NumP + dIICM1 + CA, data = dados)</div><div> $ grand.total: int 14250</div>
<div> $ rowsum : Named num [1:180] 0.01284 0.01221 0.00428 0.00182 0.00295 ...</div><div> ..- attr(*, "names")= chr [1:180] "row1" "row2" "row3" "row4" ...</div><div>
$ colsum : Named num [1:4] 0.0109 0.0147 0.0923 0.8821</div><div> ..- attr(*, "names")= chr [1:4] "ricFlor" "abFlor" "ricGen" "abGen"</div><div> $ tot.chi : num 0.0335</div>
<div> $ pCCA : NULL</div><div> $ CCA :List of 15</div><div> ..$ eig : Named num [1:3] 0.014421 0.001308 0.000155</div><div> .. ..- attr(*, "names")= chr [1:3] "CCA1" "CCA2" "CCA3"</div>
<div> ..$ u : num [1:180, 1:3] -0.841 -0.735 0.384 0.311 0.395 ...</div><div> .. ..- attr(*, "dimnames")=List of 2</div><div> .. .. ..$ : chr [1:180] "row1" "row2" "row3" "row4" ...</div>
<div> .. .. ..$ : chr [1:3] "CCA1" "CCA2" "CCA3"</div><div> ..$ v : num [1:4, 1:3] -3.6741 -5.2473 2.1821 -0.0953 -3.3397 ...</div><div> .. ..- attr(*, "dimnames")=List of 2</div>
<div> .. .. ..$ : chr [1:4] "ricFlor" "abFlor" "ricGen" "abGen"</div><div> .. .. ..$ : chr [1:3] "CCA1" "CCA2" "CCA3"</div><div> ..$ u.eig : num [1:180, 1:3] -0.1009 -0.0883 0.0461 0.0374 0.0474 ...</div>
<div> .. ..- attr(*, "dimnames")=List of 2</div><div> .. .. ..$ : chr [1:180] "row1" "row2" "row3" "row4" ...</div><div> .. .. ..$ : chr [1:3] "CCA1" "CCA2" "CCA3"</div>
<div> ..$ v.eig : num [1:4, 1:3] -0.4412 -0.6301 0.262 -0.0114 -0.1208 ...</div><div> .. ..- attr(*, "dimnames")=List of 2</div><div> .. .. ..$ : chr [1:4] "ricFlor" "abFlor" "ricGen" "abGen"</div>
<div> .. .. ..$ : chr [1:3] "CCA1" "CCA2" "CCA3"</div><div> ..$ wa.eig : num [1:180, 1:3] -0.00198 -0.02677 -0.05176 0.25506 0.02216 ...</div><div> .. ..- attr(*, "dimnames")=List of 2</div>
<div> .. .. ..$ : chr [1:180] "row1" "row2" "row3" "row4" ...</div><div> .. .. ..$ : chr [1:3] "CCA1" "CCA2" "CCA3"</div><div> ..$ wa : num [1:180, 1:3] -0.0165 -0.2229 -0.4311 2.124 0.1845 ...</div>
<div> .. ..- attr(*, "dimnames")=List of 2</div><div> .. .. ..$ : chr [1:180] "row1" "row2" "row3" "row4" ...</div><div> .. .. ..$ : chr [1:3] "CCA1" "CCA2" "CCA3"</div>
<div> ..$ biplot : num [1:8, 1:3] 2.71e-18 2.64e-01 3.99e-01 5.34e-01 5.38e-01 ...</div><div> .. ..- attr(*, "dimnames")=List of 2</div><div> .. .. ..$ : chr [1:8] "Scale" "CODECO" "CODECP" "CODEFR" ...</div>
<div> .. .. ..$ : chr [1:3] "CCA1" "CCA2" "CCA3"</div><div> ..$ rank : int 3</div><div> ..$ qrank : int 8</div><div> ..$ tot.chi : num 0.0159</div><div> ..$ QR :List of 4</div>
<div> .. ..$ qr : num [1:180, 1:8] 282.8427 0.1563 0.0925 0.0604 0.0768 ...</div><div> .. .. ..- attr(*, "dimnames")=List of 2</div><div> .. .. .. ..$ : chr [1:180] "1" "2" "3" "4" ...</div>
<div> .. .. .. ..$ : chr [1:8] "Scale" "CODECO" "CODECP" "CODEFR" ...</div><div> .. ..$ rank : int 8</div><div> .. ..$ qraux: num [1:8] 1.16 1.05 1 1 1.03 ...</div><div> .. ..$ pivot: int [1:8] 1 2 3 4 5 6 7 8</div>
<div> .. ..- attr(*, "class")= chr "qr"</div><div> ..$ envcentre: Named num [1:8] 600 0.199 0.067 0.235 2.57 ...</div><div> .. ..- attr(*, "names")= chr [1:8] "Scale" "CODECO" "CODECP" "CODEFR" ...</div>
<div> ..$ Xbar : num [1:180, 1:4] 0.00599 0.00674 0.00346 -0.00445 0.00673 ...</div><div> .. ..- attr(*, "dimnames")=List of 2</div><div> .. .. ..$ : chr [1:180] "row1" "row2" "row3" "row4" ...</div>
<div> .. .. ..$ : chr [1:4] "ricFlor" "abFlor" "ricGen" "abGen"</div><div> ..$ centroids: num [1:4, 1:3] -0.919 0.609 1.589 0.983 0.34 ...</div><div> .. ..- attr(*, "dimnames")=List of 2</div>
<div> .. .. ..$ : chr [1:4] "CODECB" "CODECO" "CODECP" "CODEFR"</div><div> .. .. ..$ : chr [1:3] "CCA1" "CCA2" "CCA3"</div><div> $ CA :List of 8</div>
<div> ..$ eig : Named num [1:3] 0.011644 0.005342 0.000656</div><div> .. ..- attr(*, "names")= chr [1:3] "CA1" "CA2" "CA3"</div><div> ..$ u : num [1:180, 1:3] 0.997 0.862 -0.981 1.943 0.23 ...</div>
<div> .. ..- attr(*, "dimnames")=List of 2</div><div> .. .. ..$ : chr [1:180] "row1" "row2" "row3" "row4" ...</div><div> .. .. ..$ : chr [1:3] "CA1" "CA2" "CA3"</div>
<div> ..$ v : num [1:4, 1:3] -3.122 -3.472 2.725 -0.189 6.056 ...</div><div> .. ..- attr(*, "dimnames")=List of 2</div><div> .. .. ..$ : chr [1:4] "ricFlor" "abFlor" "ricGen" "abGen"</div>
<div> .. .. ..$ : chr [1:3] "CA1" "CA2" "CA3"</div><div> ..$ u.eig : num [1:180, 1:3] 0.1075 0.093 -0.1058 0.2096 0.0248 ...</div><div> .. ..- attr(*, "dimnames")=List of 2</div>
<div> .. .. ..$ : chr [1:180] "row1" "row2" "row3" "row4" ...</div><div> .. .. ..$ : chr [1:3] "CA1" "CA2" "CA3"</div><div> ..$ v.eig : num [1:4, 1:3] -0.3369 -0.3747 0.294 -0.0203 0.4426 ...</div>
<div> .. ..- attr(*, "dimnames")=List of 2</div><div> .. .. ..$ : chr [1:4] "ricFlor" "abFlor" "ricGen" "abGen"</div><div> .. .. ..$ : chr [1:3] "CA1" "CA2" "CA3"</div>
<div> ..$ rank : int 3</div><div> ..$ tot.chi: num 0.0176</div><div> ..$ Xbar : num [1:180, 1:4] 0.00201 0.00393 0.00269 -0.00524 0.00615 ...</div><div> .. ..- attr(*, "dimnames")=List of 2</div><div> .. .. ..$ : chr [1:180] "row1" "row2" "row3" "row4" ...</div>
<div> .. .. ..$ : chr [1:4] "ricFlor" "abFlor" "ricGen" "abGen"</div><div> $ method : chr "cca"</div><div> $ inertia : chr "mean squared contingency coefficient"</div>
<div> $ terms :Classes 'terms', 'formula' length 3 Y ~ Scale + CODE + AWMSI + NumP + dIICM1 + CA</div><div> .. ..- attr(*, "variables")= language list(Y, Scale, CODE, AWMSI, NumP, dIICM1, CA)</div>
<div> .. ..- attr(*, "factors")= int [1:7, 1:6] 0 1 0 0 0 0 0 0 0 1 ...</div><div> .. .. ..- attr(*, "dimnames")=List of 2</div><div> .. .. .. ..$ : chr [1:7] "Y" "Scale" "CODE" "AWMSI" ...</div>
<div> .. .. .. ..$ : chr [1:6] "Scale" "CODE" "AWMSI" "NumP" ...</div><div> .. ..- attr(*, "term.labels")= chr [1:6] "Scale" "CODE" "AWMSI" "NumP" ...</div>
<div> .. ..- attr(*, "order")= int [1:6] 1 1 1 1 1 1</div><div> .. ..- attr(*, "intercept")= int 1</div><div> .. ..- attr(*, "response")= int 1</div><div> .. ..- attr(*, ".Environment")=<environment: R_GlobalEnv> </div>
<div> $ terminfo :List of 3</div><div> ..$ terms :Classes 'terms', 'formula' length 2 ~Scale + CODE + AWMSI + NumP + dIICM1 + CA</div><div> .. .. ..- attr(*, "variables")= language list(Scale, CODE, AWMSI, NumP, dIICM1, CA)</div>
<div> .. .. ..- attr(*, "factors")= int [1:6, 1:6] 1 0 0 0 0 0 0 1 0 0 ...</div><div> .. .. .. ..- attr(*, "dimnames")=List of 2</div><div> .. .. .. .. ..$ : chr [1:6] "Scale" "CODE" "AWMSI" "NumP" ...</div>
<div> .. .. .. .. ..$ : chr [1:6] "Scale" "CODE" "AWMSI" "NumP" ...</div><div> .. .. ..- attr(*, "term.labels")= chr [1:6] "Scale" "CODE" "AWMSI" "NumP" ...</div>
<div> .. .. ..- attr(*, "order")= int [1:6] 1 1 1 1 1 1</div><div> .. .. ..- attr(*, "intercept")= int 1</div><div> .. .. ..- attr(*, "response")= num 0</div><div> .. .. ..- attr(*, ".Environment")=<environment: R_GlobalEnv> </div>
<div> ..$ xlev :List of 1</div><div> .. ..$ CODE: chr [1:4] "CB" "CO" "CP" "FR"</div><div> ..$ ordered: Named logi [1:6] FALSE FALSE FALSE FALSE FALSE FALSE</div><div> .. ..- attr(*, "names")= chr [1:6] "Scale" "CODE" "AWMSI" "NumP" ...</div>
<div> - attr(*, "class")= chr "cca"</div><div><div><div><br></div><div class="gmail_quote">2013/2/6 FHRB Toledo <span dir="ltr"><<a href="mailto:fernandohtoledo@gmail.com" target="_blank">fernandohtoledo@gmail.com</a>></span><br>
<blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">Veja o resultado de <div><br></div><div>> str(vare.cca)</div><div><br></div><div>Provavelmente é uma lista... aí você observa nessa lista, se tem alguma posicao que se chama sites, dentro dessa posição deve haver uma matriz, cujos nomes das linhas devem ser esses aí (row1, row2, row3, ...)</div>
<div><br></div><div>Aí é só você mudar o nome das linhas dessa matriz e boa!</div><div><br></div><div>Reportenos seus resultados!</div><div><br></div><div>Lembrando que esse é apenas um chute, bem alto por sinal, afinal você não nos forneceu um CMR!</div>
<div><br></div><div>att,</div><div>FH<br><br><div class="gmail_quote">2013/2/6 Renata Carvalho <span dir="ltr"><<a href="mailto:renataecology@gmail.com" target="_blank">renataecology@gmail.com</a>></span><br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">
<div><div>
Bom dia, estou tentando fazer um plot de CCA mas não consigo colocar símbolos como referência aos sites. O R renomeou cada site para row1, row2, row3, Fui orientada a transformar cada site em número para depois atribuir os símbolos mas não estou conseguindo. Até agora tenho utilizado estes scripts:<div>
<br></div><div><div><div>as.numeric (dados$CODE)</div></div><div><br></div><div>plot(vare.cca, type="n")</div><div><br></div><div>text(vare.cca, dis="cn")</div><div><br></div><div>text(vare.cca, display = "sites", col="blue", cex=0.5) # aqui os sites aparecem no plot mas com o nome de row1, row2...</div>
</div><div><br></div><div>Alguém sabe como posso fazer isso?</div><div><br></div><div>obrigada</div><span><font color="#888888"><div><br></div><div>Renata</div>
</font></span><br></div></div>_______________________________________________<br>
R-br mailing list<br>
<a href="mailto:R-br@listas.c3sl.ufpr.br" target="_blank">R-br@listas.c3sl.ufpr.br</a><br>
<a href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br" target="_blank">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" target="_blank">http://www.leg.ufpr.br/r-br-guia</a>) e forneça código mínimo reproduzível.<br></blockquote></div><br></div>
<br>_______________________________________________<br>
R-br mailing list<br>
<a href="mailto:R-br@listas.c3sl.ufpr.br" target="_blank">R-br@listas.c3sl.ufpr.br</a><br>
<a href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br" target="_blank">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" target="_blank">http://www.leg.ufpr.br/r-br-guia</a>) e forneça código mínimo reproduzível.<br></blockquote></div><br></div></div></div></div>
<br>_______________________________________________<br>
R-br mailing list<br>
<a href="mailto:R-br@listas.c3sl.ufpr.br" target="_blank">R-br@listas.c3sl.ufpr.br</a><br>
<a href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br" target="_blank">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" target="_blank">http://www.leg.ufpr.br/r-br-guia</a>) e forneça código mínimo reproduzível.<br></blockquote></div><br></div>
</div></div><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" target="_blank">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" target="_blank">http://www.leg.ufpr.br/r-br-guia</a>) e forneça código mínimo reproduzível.<br></blockquote></div><br></div>