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