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><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 class="h5">
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">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>