От отрицательного к положительному значению при чтении файла .txt с использованием read_table против read.table

Question

Я пытаюсь читать в довольно большом текстовом файле, но когда я использую read_table из readr, я заметил, что отрицательные знаки должны быть отрублены для некоторых значений.

library(tidyverse)
library(curl)

curl_download(url = 'https://drive.google.com/uc?export=download&id=1WON53elbMVxAM8yWSg69nuu0cnHjaQdh', 
               destfile = '/Users/Jay/Desktop/1992_anomaly.txt')

dat1 <- read_table('/Users/Jay/Desktop/1992_anomaly.txt', 
                   col_names = FALSE,
                   col_types = cols(
                     X1 = col_integer(),
                     X2 = col_integer(),
                     X3 = col_integer(),
                     X4 = col_double(),
                     X5 = col_double(),
                     X6 = col_double()
                   ))
dat1

dat2 <- read.table('/Users/Jay/Desktop/1992_anomaly.txt', 
                   header = FALSE)
head(dat2)

# value from read_table that should be negative
dat1 %>%
  filter(
    X1 == 12 & X2 == 5 & X3 == 1295
  )



# value from read.table that's correct
    dat2 %>%
      as_tibble() %>%
      filter(
        V1 == 12 & V2 == 5 & V3 == 1295
      )

Есть ли что-то, что я могу изменить в функции read_table, или мне нужно использовать read_delim, чтобы правильно прочитать этот файл?

Answer 1

Попробуйте использовать read_table2 из readr