R语言——write.table()写入.csv文件列名错位问题

感谢这位同志解决了我的问题
先上问题：
将文件MEdata.csv内容读入数据框a
绑定数据框a，将GDP、TAX列的内容组合为一个数据框d，列名为国民生产总值、税收
将YEAR列赋值为d数据框的行名
输出d到tax.csv文件中，保留行名、列名、解绑数据框a
我的解决：

a<-read.table(file="MEdata.csv",header=TRUE,sep=",")
attach(a)
d<-data.frame(国民生产总值=GDP,税收=TAX)
rownames(d)<-YEAR
write.table(d,file="tax.csv",row.names = T,col.names = T,sep=",")
detach(a)

很正常的解决方案
出现问题：列名前移，与数据对应不上

看完博客我的解决：

a<-read.table(file="MEdata.csv",header=TRUE,sep=",")
attach(a)
d<-data.frame(国民生产总值=GDP,税收=TAX)
rownames(d)<-YEAR
write.table(data.frame(ID=rownames(d),d),"tax.csv", row.names=F,col.names = T,sep=",")
detach(a)

完美解决