R语言 | 导出数据框，会出现第一行左移一位的问题，解决办法如下

导出数据框，会出现第一行左移一位的问题，解决办法如下

注释：

“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=",")

效果如下：

 进行转换后：