写入txt文件时数值发生变化[重复]

Question

我正在尝试从this file 中提取第一列。它是一个应被视为字符串的 16 个数字的序列。问题是当我将数据写入文本文件时，某些值似乎已经改变。以下是我正在使用的代码。

dataMaster = read.table("Master.txt", header = F, colClasses = rep("character",67))

write.table(dataMaster$V1, "sequence.txt", col.names = F, row.names = F, 
            quote = F, sep = "\n")

下面是一个例子。我正在使用相同的两行 261182、261183。同样的错误发生了很多次。好像当我写文件时，数字 9 被数字 0 替换。

主文件是在 Mac 环境中处理的，我在 Windows 环境中工作。

Answer 1

如果您想将sequence 变为character，另一种方法是指定您的colClasses：

library(dplyr)

dataMaster %>% 
  select(1) %>% 
  write.table("sequence.txt", col.names = F, row.names = F, 
              quote = F, sep = "\n")

sequence <- read.table("sequence.txt", colClasses = "character")

dataMaster[c(261182, 261183), 1]
#[1] "9171513174761179" "9171513174771179"

sequence[c(261182, 261183), ]
#[1] "9171513174761179" "9171513174771179"

Answer 2

如果要操作字符串，请看下面patL的回答。以下是我将数字序列视为数字的答案。

---

您可能需要增加options 下的scipen 值：

options(scipen=999)

当您输出 numbers to any format 时，这会增加超过默认 15 位的精度位数。

在输入方面，如果您指定character 只是为了避免丢失，请注意您应该改为将read.table 的numerals 参数更改为"no.loss"，因为默认（第一个选项）会导致丢失没有警告。我已经从下面的帮助页面?read.table 复制了相关文本。

read.table(..., numerals = c("allow.loss", "warn.loss", "no.loss"))

        string indicating how to convert numbers whose conversion to
        double precision would lose accuracy, see type.convert. Can be
        abbreviated. (Applies also to complex-number inputs.)