write.table将NA转换为NA

Question

我有一个数据框架

a = data.frame("a"=c(1,2,3,NA,NaN,6),"b"=c(NA,NA,NaN,1,2,3),"c"=c(1,2,NA,NA,5,6))

我要把它写到一个文件里

write.table(a,file="t.txt",row.names=FALSE,quote=FALSE,sep="\t")

它将"NaN“转换为"NA”。我想保留原来的价值。我怎么能这么做？我想把NaN和NA留在我的t.txt里。但在我的t.txt里我得到了所有的NA

Answer 1

我不确定有什么方法可以直接做到这一点，但是您总是可以将列转换为字符，然后编写它(因为您使用的是quote=FALSE)。

> a[] <- lapply(a, as.character)
> write.table(a,file="t.txt",row.names=FALSE,quote=FALSE,sep="\t")
> str(read.table("t.txt",header=TRUE))
'data.frame':   6 obs. of  3 variables:
 $ a: num  1 2 3 NA NaN 6
 $ b: num  NA NA NaN 1 2 3
 $ c: int  1 2 NA NA 5 6