write.table将NaNs转换为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”。我想保留原始值。我怎样才能做到这一点？ 我想在我的t.txt中保留NaN和NA。但我在我的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