我的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