[R-br] Organização de banco de dados
Éder Comunello
comunello.eder em gmail.com
Terça Abril 7 14:46:09 BRT 2015
Caro André, segue uma ideia...
PS: sempre que possível encaminhe o dput() dos objetos pra facilitar a
ajuda!
### <code r>
ativ <- c("Ativ. Culturais", "Praia", "Balada", "Praia", "Praia", "Praia",
"Outros", "Praia", "Praia", "Balada", "Ativ. Esportivas", "Balada",
"Balada", "Outros", "Ativ. Esportivas", "Outros", "Praia", "Balada",
"Balada", "Ativ. Esportivas", "Balada", "Praia", "Ativ. Culturais",
"Ativ. Esportivas", "Ativ. Esportivas", "Ativ. Esportivas", "Praia",
"Ativ. Culturais", "Ativ. Esportivas", "Praia", "Praia", "Praia",
"Praia", "Ativ. Culturais", "Balada", "Outros", "Outros", "Outros",
"Ativ. Esportivas", "Ativ. Esportivas", "Ativ. Esportivas", "Outros",
"Ativ. Esportivas", "Ativ. Esportivas", "Ativ. Esportivas", "Ativ.
Esportivas",
"Ativ. Esportivas", "Outros", "Praia", "Ativ. Esportivas", "Ativ.
Esportivas",
"Outros", "Ativ. Esportivas", "Ativ. Esportivas", "Outros", "Ativ.
Esportivas",
"Outros", "Ativ. Esportivas", "Outros", "Ativ. Esportivas", "Outros",
"Outros", "Outros", "Ativ. Esportivas", "Ativ. Culturais", "Ativ.
Culturais",
"Balada", "Ativ. Esportivas", "Ativ. Esportivas", "Ativ. Esportivas",
"Ativ. Culturais", "Ativ. Esportivas", "Balada", "Ativ. Esportivas",
"Ativ. Esportivas", "Ativ. Esportivas", "Ativ. Esportivas")
t(unique(ativ)) ### verifica nomes
descr <- levels(as.factor(ativ)) ### nomes na ordem que níveis ocorrem
data.frame(descr, code=LETTERS[seq(lvl)])
rowNames <- LETTERS[as.numeric(as.factor(ativ))]
rowNames
table(ativ, rowNames) ### confere
rownames(teste) <- rowNames
### </code>
Éder Comunello <c <comunello.eder em gmail.com>omunello.eder em gmail.com>
Dourados, MS - [22 16.5'S, 54 49'W]
Em 7 de abril de 2015 12:38, Andre Oliveira <andreolsouza em yahoo.com.br>
escreveu:
> Boa tarde pessoas para eu fazer uma análise preciso de manipular os
> dados baixo.
>
> > teste = matrix(c(Altura, Peso, Alt_pai, Alt_mae, Peso_pai, Peso_mae),ncol = 6)> teste [,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
>
>
> colnames(teste)=c("X1", "X", "X2", "X3", "X4", "X5")
>
> 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])
>
>
> [1] Ativ. Culturais Praia Balada Praia
> [5] Praia Praia Outros Praia
> [9] Praia Balada Ativ. Esportivas Balada
> [13] Balada Outros Ativ. Esportivas Outros
> [17] Praia Balada Balada Ativ. Esportivas
> [21] Balada Praia Ativ. Culturais Ativ. Esportivas
> [25] Ativ. Esportivas Ativ. Esportivas Praia Ativ. Culturais
> [29] Ativ. Esportivas Praia Praia Praia
> [33] Praia Ativ. Culturais Balada Outros
> [37] Outros Outros Ativ. Esportivas Ativ. Esportivas
> [41] Ativ. Esportivas Outros Ativ. Esportivas Ativ. Esportivas
> [45] Ativ. Esportivas Ativ. Esportivas Ativ. Esportivas Outros
> [49] Praia Ativ. Esportivas Ativ. Esportivas Outros
> [53] Ativ. Esportivas Ativ. Esportivas Outros Ativ. Esportivas
> [57] Outros Ativ. Esportivas Outros Ativ. Esportivas
> [61] Outros Outros Outros Ativ. Esportivas
> [65] Ativ. Culturais Ativ. Culturais Balada Ativ. Esportivas
> [69] Ativ. Esportivas Ativ. Esportivas Ativ. Culturais Ativ. Esportivas
> [73] Balada Ativ. Esportivas Ativ. Esportivas Ativ. Esportivas
> [77] Ativ. Esportivas
>
> Obrigado
>
>
>
> André Oliveira Souza.
> Graduação em Matemática, mestrado em estatística aplicada.Instituto
> Federal de Educação, Ciência e Tecnologia do Espirito Santo. IFES
>
>
>
> _______________________________________________
> R-br mailing list
> R-br em listas.c3sl.ufpr.br
> https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br
> Leia o guia de postagem (http://www.leg.ufpr.br/r-br-guia) e forneça
> código mínimo reproduzível.
>
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: <http://listas.inf.ufpr.br/pipermail/r-br/attachments/20150407/f32cee31/attachment.html>
Mais detalhes sobre a lista de discussão R-br