求助！R语言转置后为什么列名会错位？

本人因为数据分析对R语言仅浅显了解，最近需要对表格数据进行转置被折腾了很久，input数据如图

我的代码：

data=read.table("input.txt",header=T,sep="\t",row.names=1, stringsAsFactors = F)   #读取表格
data=t(as.matrix(data))   #矩阵转置
write.table(data,file="data2.xls",quote=F,sep="\t")

结果如图

请问为何不是我想要的这样的？

请问该如何修改？感谢解答！

你好，我是有问必答小助手，非常抱歉，本次您提出的有问必答问题，技术专家团超时未为您做出解答

本次提问扣除的有问必答次数，将会以问答VIP体验卡（1次有问必答机会、商城购买实体图书享受95折优惠）的形式为您补发到账户。

​​​​因为有问必答VIP体验卡有效期仅有1天，您在需要使用的时候【私信】联系我，我会为您补发。