最左边是行名`row.names`，应该是转置前的列名。简单的方法是在读入数据集时不要加列名。复杂的方法就是把现在的行名给一个新的变量后，再调换顺序到第一列，并重新把1：n给行名。

## 原数据myda中 每个变量的数据类型须相同
##  myda  为data.frame
row_names<-rownames(myda)  ##获取行名，用为转置后数据集的列变量名

   transda<-       ##  转置后的数据集
         myda%>%
         purrr::transpose()%>%  
         purrr::modify_depth(1,unlist)%>%   
         magritrr::set_names(row_names)%>%  ##  转置后的列变量名取为原数据集myda 的行名
         as.data.frame()   ##  原列变量名，变成了行名
##  此法，仅仅转置，但其他所有数据集属性均得到保留。。
##  t()  会“不经意间”改变数据集属性。。

好滴，谢谢

谢谢啦，我也发现t()会把我的数据库转变为矩阵，所以我每次都是as.data.frame(t())