<div dir="ltr">Caro André, segue uma ideia...<div><br></div><div>PS: sempre que possível encaminhe o dput() dos objetos pra facilitar a ajuda!<br><div><br></div><div><div><font face="monospace, monospace">### <code r></font></div><div><font face="monospace, monospace">ativ <- c("Ativ. Culturais", "Praia", "Balada", "Praia", "Praia", "Praia", </font></div><div><font face="monospace, monospace">"Outros", "Praia", "Praia", "Balada", "Ativ. Esportivas", "Balada", </font></div><div><font face="monospace, monospace">"Balada", "Outros", "Ativ. Esportivas", "Outros", "Praia", "Balada", </font></div><div><font face="monospace, monospace">"Balada", "Ativ. Esportivas", "Balada", "Praia", "Ativ. Culturais", </font></div><div><font face="monospace, monospace">"Ativ. Esportivas", "Ativ. Esportivas", "Ativ. Esportivas", "Praia", </font></div><div><font face="monospace, monospace">"Ativ. Culturais", "Ativ. Esportivas", "Praia", "Praia", "Praia", </font></div><div><font face="monospace, monospace">"Praia", "Ativ. Culturais", "Balada", "Outros", "Outros", "Outros", </font></div><div><font face="monospace, monospace">"Ativ. Esportivas", "Ativ. Esportivas", "Ativ. Esportivas", "Outros", </font></div><div><font face="monospace, monospace">"Ativ. Esportivas", "Ativ. Esportivas", "Ativ. Esportivas", "Ativ. Esportivas", </font></div><div><font face="monospace, monospace">"Ativ. Esportivas", "Outros", "Praia", "Ativ. Esportivas", "Ativ. Esportivas", </font></div><div><font face="monospace, monospace">"Outros", "Ativ. Esportivas", "Ativ. Esportivas", "Outros", "Ativ. Esportivas", </font></div><div><font face="monospace, monospace">"Outros", "Ativ. Esportivas", "Outros", "Ativ. Esportivas", "Outros", </font></div><div><font face="monospace, monospace">"Outros", "Outros", "Ativ. Esportivas", "Ativ. Culturais", "Ativ. Culturais", </font></div><div><font face="monospace, monospace">"Balada", "Ativ. Esportivas", "Ativ. Esportivas", "Ativ. Esportivas", </font></div><div><font face="monospace, monospace">"Ativ. Culturais", "Ativ. Esportivas", "Balada", "Ativ. Esportivas", </font></div><div><font face="monospace, monospace">"Ativ. Esportivas", "Ativ. Esportivas", "Ativ. Esportivas")</font></div><div><font face="monospace, monospace"><br></font></div><div><font face="monospace, monospace">t(unique(ativ)) ### verifica nomes </font></div><div><font face="monospace, monospace">descr <- levels(as.factor(ativ)) ### nomes na ordem que níveis ocorrem</font></div><div><font face="monospace, monospace">data.frame(descr, code=LETTERS[seq(lvl)])</font></div><div><font face="monospace, monospace">rowNames <- LETTERS[as.numeric(as.factor(ativ))]</font></div><div><font face="monospace, monospace">rowNames</font></div><div><font face="monospace, monospace"><br></font></div><div><font face="monospace, monospace">table(ativ, rowNames) ### confere</font></div><div><font face="monospace, monospace"><br></font></div><div><font face="monospace, monospace">rownames(teste) <- rowNames</font></div></div><div><font face="monospace, monospace">### </code></font></div></div></div><div class="gmail_extra"><br clear="all"><div><div class="gmail_signature"><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></div></div>
<br><div class="gmail_quote">Em 7 de abril de 2015 12:38, Andre Oliveira <span dir="ltr"><<a href="mailto:andreolsouza@yahoo.com.br" target="_blank">andreolsouza@yahoo.com.br</a>></span> escreveu:<br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex"><div><div style="color:#000;background-color:#fff;font-family:bookman old style,new york,times,serif;font-size:16px"><div><span></span></div><div></div><div dir="ltr"> Boa tarde pessoas para eu fazer uma análise preciso de manipular os dados baixo.</div><div dir="ltr"><br></div><div dir="ltr"><span style="border-collapse:separate;font-family:'Ubuntu Mono';font-size:14px;line-height:16px;white-space:pre-wrap;border-spacing:0px;background-color:rgb(225,226,229)"><pre style="font-family:'Ubuntu Mono';outline:none;border:none;word-break:break-all;margin-top:0px;margin-bottom:0px;line-height:1.2;font-size:10.4pt!important"><span style="white-space:pre-wrap;color:blue">> </span><span style="color:blue">teste = matrix(c(Altura, Peso, Alt_pai, Alt_mae, Peso_pai, Peso_mae),ncol = 6)
</span><span style="white-space:pre-wrap;color:blue">> </span><span style="color:blue">teste
</span> [,1] [,2] [,3] [,4] [,5] [,6]
[1,] 156 49 165 163 65 59
[2,] 160 50 170 150 70 50
[3,] 165 67 180 170 90 60
[4,] 149 41 169 158 73 59
[5,] 170 61 160 162 73 68
[6,] 165 65 183 162 90 75
[7,] 156 49 166 160 71 64
[8,] 173 55 168 150 86 77
[9,] 162 52 171 156 89 80
[10,] 174 79 170 160 72 64
[11,] 172 75 170 165 70 60
[12,] 175 60 175 161 80 57
[13,] 176 65 176 152 95 48
[14,] 175 69 170 168 81 78
[15,] 174 68 172 168 98 70
[16,] 163 61 171 160 90 62
[17,] 176 83 160 158 80 61
[18,] 181 73 177 160 77 50
[19,] 175 74 165 160 62 60
[20,] 166 60 160 156 63 60
[21,] 170 63 167 160 63 60
[22,] 165 69 176 150 90 55
[23,] 170 71 168 160 85 70
[24,] 171 72 170 152 84 62
[25,] 179 76 170 170 80 88
[26,] 179 60 160 160 65 60
[27,] 174 70 160 165 75 70
[28,] 173 65 170 160 80 60
[29,] 151 48 175 170 80 78
[30,] 160 51 165 152 62 68
[31,] 155 55 158 156 85 65
[32,] 150 50 168 160 80 82
[33,] 158 51 155 153 60 53
[34,] 173 76 175 160 80 67
[35,] 170 65 171 158 72 55
[36,] 165 62 180 165 80 75
[37,] 167 67 185 162 86 76
[38,] 153 43 161 152 75 62
[39,] 177 69 176 153 72 80
[40,] 172 66 169 163 98 61
[41,] 168 62 165 162 75 62
[42,] 179 74 170 170 85 80
[43,] 154 52 164 153 88 62
[44,] 175 75 174 159 80 62
[45,] 183 96 190 165 86 76
[46,] 165 60 166 164 80 73
[47,] 180 60 165 160 62 58
[48,] 174 102 168 162 66 62
[49,] 157 50 164 150 96 54
[50,] 158 58 164 166 53 75
[51,] 180 74 165 160 70 56
[52,] 173 66 170 163 85 64
[53,] 171 76 169 161 73 62
[54,] 188 76 181 165 86 65
[55,] 170 70 175 165 85 68
[56,] 190 72 173 168 74 69
[57,] 156 56 170 168 85 68
[58,] 174 85 170 165 70 104
[59,] 182 74 168 165 86 75
[60,] 182 82 179 160 80 96
[61,] 162 53 179 1 59 80
[62,] 160 53 165 150 60 79
[63,] 175 90 175 165 100 60
[64,] 172 74 170 168 80 70
[65,] 155 51 170 153 80 50
[66,] 163 62 180 155 80 85
[67,] 177 64 191 169 110 75
[68,] 171 87 168 165 80 84
[69,] 180 66 182 157 70 65
[70,] 179 75 163 160 76 65
[71,] 175 104 168 156 64 56
[72,] 181 89 162 161 70 60
[73,] 170 74 190 170 80 95
[74,] 180 64 182 165 74 68
[75,] 173 89 185 165 98 62
[76,] 173 70 168 166 80 75
[77,] 182 83 165 157 69 57</pre></span></div><div><div><br></div><div>
<div>colnames(teste)=c("X1", "X", "X2", "X3", "X4", "X5") </div><div><br></div><div dir="ltr">Preciso de usar rownames(teste) para inserir os rótulos das linhas automaticamente. Alguém de vocês tem uma ideia de como fazer isto automaticamente? Os rótulos estão abaixo! Como este rótulos baixo estão sem padrão se puderem sugerir algo do tipo que envolva x <- gl(5, 2, labels=LETTERS[1:26]) </div><div dir="ltr"><br></div><div dir="ltr"><br></div><div dir="ltr">[1] Ativ. Culturais Praia Balada Praia </div><div dir="ltr">[5] Praia Praia Outros Praia </div><div dir="ltr">[9] Praia Balada Ativ. Esportivas Balada </div><div dir="ltr">[13] Balada Outros Ativ. Esportivas Outros </div><div dir="ltr">[17] Praia Balada Balada Ativ. Esportivas</div><div dir="ltr">[21] Balada Praia Ativ. Culturais Ativ. Esportivas</div><div dir="ltr">[25] Ativ. Esportivas Ativ. Esportivas Praia Ativ. Culturais </div><div dir="ltr">[29] Ativ. Esportivas Praia Praia Praia </div><div dir="ltr">[33] Praia Ativ. Culturais Balada Outros </div><div dir="ltr">[37] Outros Outros Ativ. Esportivas Ativ. Esportivas</div><div dir="ltr">[41] Ativ. Esportivas Outros Ativ. Esportivas Ativ. Esportivas</div><div dir="ltr">[45] Ativ. Esportivas Ativ. Esportivas Ativ. Esportivas Outros </div><div dir="ltr">[49] Praia Ativ. Esportivas Ativ. Esportivas Outros </div><div dir="ltr">[53] Ativ. Esportivas Ativ. Esportivas Outros Ativ. Esportivas</div><div dir="ltr">[57] Outros Ativ. Esportivas Outros Ativ. Esportivas</div><div dir="ltr">[61] Outros Outros Outros Ativ. Esportivas</div><div dir="ltr">[65] Ativ. Culturais Ativ. Culturais Balada Ativ. Esportivas</div><div dir="ltr">[69] Ativ. Esportivas Ativ. Esportivas Ativ. Culturais Ativ. Esportivas</div><div dir="ltr">[73] Balada Ativ. Esportivas Ativ. Esportivas Ativ. Esportivas</div><div dir="ltr">[77] Ativ. Esportivas</div><div><br></div><div dir="ltr">Obrigado </div><div><br></div><div><br></div>
<br>André Oliveira Souza.
<br>Graduação em Matemática, mestrado em estatística aplicada.Instituto Federal de Educação, Ciência e Tecnologia do Espirito Santo. IFES
<br>
<br></div><div> </div></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>