10

我希望能够跳过通过v1.8.9 中data.table的函数读入 R 的列。fread但是我正在阅读的 csv 没有列标题……这似乎是 fread 的问题……有没有办法指定我不想要特定的列？

预先分配一个列名然后让它读入以便可以跳过它会更好吗？

举个例子，我从以下 URL 下载了数据

http://www.truefx.com/dev/data/2013/MAY-2013/AUDUSD-2013-05.zip

解压...</p>

并使用 fread 将 csv 读入 R，它具有几乎相同的文件名，只是带有 csv 扩展名。

system.time(pp <- fread("AUDUSD-2013-05.csv",sep=","))
  user  system elapsed 
16.427   0.257  16.682 

head(pp)
       V1                    V2      V3      V4
1: AUD/USD 20130501 00:00:04.728 1.03693 1.03721
2: AUD/USD 20130501 00:00:21.540 1.03695 1.03721
3: AUD/USD 20130501 00:00:33.789 1.03694 1.03721
4: AUD/USD 20130501 00:00:37.499 1.03692 1.03724
5: AUD/USD 20130501 00:00:37.524 1.03697 1.03719
6: AUD/USD 20130501 00:00:39.789 1.03697 1.03717

str(pp)
Classes ‘data.table’ and 'data.frame':  4060762 obs. of  4 variables:
$ V1: chr  "AUD/USD" "AUD/USD" "AUD/USD" "AUD/USD" ...
$ V2: chr  "20130501 00:00:04.728" "20130501 00:00:21.540" "20130501 00:00:33.789" "20130501 00:00:37.499" ...
$ V3: num  1.04 1.04 1.04 1.04 1.04 ...
$ V4: num  1.04 1.04 1.04 1.04 1.04 ...
- attr(*, ".internal.selfref")=<externalptr>

我尝试使用新的（ish）colClasses 或跳过参数来忽略第一列都是一样的事实……而且是不必要的。

但是做：

pp1 <- fread("AUDUSD-2013-05.csv",sep=",",skip=1)

没有省略第一列的读入

并使用 colClasses 导致以下错误

pp1 <- fread("AUDUSD-2013-05.csv",sep=",",colClasses=list(NULL,"character","numeric","numeric"))

Error in fread("AUDUSD-2013-05.csv", sep = ",", colClasses = list(NULL,  : 
 colClasses is type list but has no names

其他尝试包括

pp1 <- fread("AUDUSD-2013-06.csv",sep=",", colClasses=c(V1=NULL,V2="character",V3="numeric",V4="numeric"))
str(pp1)
Classes ‘data.table’ and 'data.frame':  5524877 obs. of  4 variables:
 $ V1: chr  "AUD/USD" "AUD/USD" "AUD/USD" "AUD/USD" ...
 $ V2: chr  "20130603 00:00:00.290" "20130603 00:00:00.291" "20130603 00:00:00.292" "20130603 00:00:03.014" ...
 $ V3: num  0.962 0.962 0.962 0.962 0.962 ...
 $ V4: num  0.962 0.962 0.962 0.962 0.962 ...
 - attr(*, ".internal.selfref")=<externalptr>

即几乎完全一样，就好像我没有使用 colClasses...

是否有任何建议可以通过省略第一列来加快数据的读取速度？

也可能有点多问，但是否可以直接读取 zip 文件而不是先解压缩然后读取 csv？

哦，如果不清楚我正在使用 data.table v1.8.9

4

1 回答 1

16

我认为您正在寻找的论点是drop. 尝试：

require(data.table)  # 1.9.2+
pp <- fread("AUDUSD-2013-05.csv", drop = 1)

请注意，您可以drop按姓名或职位。

fread("AUDUSD-2013-05.csv", drop = c("columThree","anotherColumnName"))

fread("AUDUSD-2013-05.csv", drop = 10:15)  # read all columns other than 10:15

您也可以select按姓名或职位。

fread("AUDUSD-2013-05.csv", select = 10:15)  # read only columns 10:15

fread("AUDUSD-2013-05.csv", select = c("columnA","columnName2"))

这些参数已添加到 v1.9.2（2014 年 2 月发布到 CRAN）并记录在?fread. 您需要升级才能使用它们。

于 2014-07-11T04:41:23.720 回答