导出数据框，会出现第一行左移一位的问题，解决办法如下
注释：
“a”: 是我们要进行调整的数据框
以下两种办法的思路本质是一样的：把数据框a中的行名抽出来成为独立的一列，加到原始数据框a的最前面成为新的第一列
（1）第一种解决方法
adjustdata <- function(data) {
data <- cbind(rownames(data),data) } #自定义一个叫做adjustdata的函数，这两行代码直接照搬不用修改
a <- adjustdata (a) #a是我们要导出的数据框，对它运算一下我们刚编写的这个函数
write.table(a, file = "a.csv", sep = ",", row.names = FALSE) #最后输出文件（2）第二种解决方法
a <- data.frame(ID=rownames(a), a) #这里的“ID”可以替换成任意名称，它的意思是你新创建的第一列的行名
write.table(a, "tax.csv", row.names=F, col.names = T, sep=",")效果如下：
进行转换后：
