如何避免：read.table截断小数点后的最后一位数字

Question

我想使用read.table（）导入R中的表（.txt文件）。

table1<- read.table("input.txt",sep = "\t")

该文件包含0.09165395632583884

等数据

读取数据后，数据变为0.09165396。最后几位数字丢失， 但我想避免这个问题。

如果我用过

options(digits=22)

然后它会产生另一个问题，比如maindata = 0.19285969062961023但是当我在文件中写入数据时，

write.table(table1,file = "output.txt",col.names = F, row.names = F)

我得到data = 0.192859690629610225。这里，最后一位是额外数字，倒数第二位是变化。

有人能给我一个如何解决问题的提示吗？