Transpor um quadro de dados

Eu preciso transpor um grande quadro de dados e então eu usei:

df.aree <- t(df.aree) df.aree <- as.data.frame(df.aree) 

Isto é o que eu obtenho:

 df.aree[c(1:5),c(1:5)] 10428 10760 12148 11865 name M231T3 M961T5 M960T6 M231T19 GS04.A 5.847557e+03 0.000000e+00 3.165891e+04 2.119232e+04 GS16.A 5.248690e+04 4.047780e+03 3.763850e+04 1.187454e+04 GS20.A 5.370910e+03 9.518396e+03 3.552036e+04 1.497956e+04 GS40.A 3.640794e+03 1.084391e+04 4.651735e+04 4.120606e+04 

Meu problema são os novos nomes de colunas (10428, 10760, 12148, 11865) que preciso eliminar porque preciso usar a primeira linha como nomes de colunas.

Eu tentei com a function col.names() mas eu não col.names() que eu preciso.

Você tem alguma sugestão?

EDITAR

Obrigado por sua sugestão!!! Usando isto eu obtenho:

 df.aree[c(1:5),c(1:5)] M231T3 M961T5 M960T6 M231T19 GS04.A 5.847557e+03 0.000000e+00 3.165891e+04 2.119232e+04 GS16.A 5.248690e+04 4.047780e+03 3.763850e+04 1.187454e+04 GS20.A 5.370910e+03 9.518396e+03 3.552036e+04 1.497956e+04 GS40.A 3.640794e+03 1.084391e+04 4.651735e+04 4.120606e+04 GS44.A 1.225938e+04 2.681887e+03 1.154924e+04 4.202394e+04 

Agora preciso transformar os nomes das linhas (GS ..) em uma coluna de fator ….

É melhor você não transpor o data.frame enquanto a coluna de nome estiver nela – todos os valores numéricos serão transformados em strings!

Aqui está uma solução que mantém números como números:

 # first remember the names n < - df.aree$name # transpose all but the first column (name) df.aree <- as.data.frame(t(df.aree[,-1])) colnames(df.aree) <- n df.aree$myfactor <- factor(row.names(df.aree)) str(df.aree) # Check the column types 
 df.aree < - as.data.frame(t(df.aree)) colnames(df.aree) <- df.aree[1, ] df.aree <- df.aree[-1, ] df.aree$myfactor <- factor(row.names(df.aree)) 

Você pode usar a function de transpose da biblioteca data.table . Solução simples e rápida que mantém valores numeric como numeric .

 library(data.table) # get data data("mtcars") # transpose t_mtcars < - transpose(mtcars) # get row and colnames in order colnames(t_mtcars) <- rownames(mtcars) rownames(t_mtcars) <- colnames(mtcars)