Мои CSV-данные усекаются или объединяются

Question

Я могу просматривать данные в своем CSV-файле, и это выглядит довольно нормально.

Однако, когда я пытаюсь импортировать данные таким образом,все заголовки объединяются вместе.

ann2012 <- read.csv2("C:\\Users\\annualsinglefile.csv", header = TRUE)

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

ann2012 <- read.table("C:\\Users\\annualsinglefile.csv", header = TRUE, 
sep = ",")

Я пробовал несколько разных способов добавить начальный ноль (текущая длина составляет 4 символа, и она должна быть 5 символов).

library(stringr)
str_pad(ann2012$fips, 5, pad = "0")


str_pad(x, 8, pad = "0")


sprintf("%05s", 1)


library(stringi)
stri_pad_left(str=ann2012$fips, 5, pad="0")

Кажется, что это просто меняет формат данных, но базовые данные не меняются вообще.Как я могу обновить первый столбец, чтобы иметь начальные нули, или просто импортировать данные как есть, и сохранить лидирующие нули?Спасибо.

Answer 1

Вы можете попробовать это -

df <- read.csv("test.csv", header = T, colClasses = c("area_fips" = "character"))

, что дает

> df
  area_fips own_code industry_code
1     01000        0             10
2     01000        0              1
3     01000        0            102

> str(df)
'data.frame':   3 obs. of  3 variables:
 $ area_fips     : chr  "01000" "01000" "01000"
 $ own_code      : int  0 0 0
 $ industry_code: int  10 1 102

Пример данных: test.csv содержит

area_fips,own_code,industry_code
01000,0,10
01000,0,1
01000,0,102