用到t()函数，方法为：
   > data <- read.table("file",sep = "\t",comment.char = "")
   > trans <- t(data)
   > write.table(trans, file="file_trans",quote=F, sep="\t", row.names = F,col.names=F)

注意：
   read.table 和write.table 的参数设置，否则报错。比如read.table中的comment.char，默认为#，注意修改，防止报错