data.table Fread，如何在CSV文件中读取最后一个n行

Question

！ 有人可以在iris.csv的示例中显示如何从data.table的fread函数加载最后10行 谢谢

======

write.csv(iris,"C:\\Users\\TARAS\\Desktop\\iris.csv")
data.table::fread(cmd="tail -10 C:/Users/TARAS/Desktop/iris.csv")

"tail" ­Ґ пў«пҐвбп ў­гв७­Ґ© Ё«Ё ў­Ґи­Ґ©
Є®¬ ­¤®©, ЁбЇ®«­пҐ¬®© Їа®Ја ¬¬®© Ё«Ё Ї ЄҐв­л¬ д ©«®¬.
Null data.table (0 rows and 0 cols)

UDP

ir <- read.csv("C:\\Users\\TARAS\\Desktop\\iris.csv")
> head(ir)
  X Sepal.Length Sepal.Width Petal.Length Petal.Width Species
1 1          5.1         3.5          1.4         0.2  setosa
2 2          4.9         3.0          1.4         0.2  setosa
3 3          4.7         3.2          1.3         0.2  setosa
4 4          4.6         3.1          1.5         0.2  setosa
5 5          5.0         3.6          1.4         0.2  setosa
6 6          5.4         3.9          1.7         0.4  setosa

​

fpath = "C:/Users/TARAS/Desktop/iris.csv"
 fread(cmd=paste0("tail -10 '", fpath, "'"))

​代码> // ，

"tail" ­Ґ пў«пҐвбп ў­гв७­Ґ© Ё«Ё ў­Ґи­Ґ©
Є®¬ ­¤®©, ЁбЇ®«­пҐ¬®© Їа®Ја ¬¬®© Ё«Ё Ї ЄҐв­л¬ д ©«®¬.



Null data.table (0 rows and 0 cols)
Warning messages:
1: In (if (.Platform$OS.type == "unix") system else shell)(paste0("(",  :
  '(tail -10 'C:/Users/TARAS/Desktop/iris.csv') > C:\Users\TARAS\AppData\Local\Temp\RtmpcDiW2w\file108833c6463' execution failed with error code 1
2: In fread(cmd = paste0("tail -10 '", fpath, "'")) :
  File 'C:\Users\TARAS\AppData\Local\Temp\RtmpcDiW2w\file108833c6463' has size 0. Returning a NULL data.table.

Answer 1

您可以使用fread使用cmd param读取.csv的最后一个n行，

fread(cmd="tail -10 iris.csv")

如果您还需要标头信息，则可以将上述内容包装在的调用中data.table :: setNames，其中名称是通过读取文件而不任何行（nrows = 0）获得的：

setnames(
  fread(cmd="tail -10 iris.csv"),
  names(fread("iris.csv",nrows = 0))
)

如果您有完整的路径，则可以执行此操作：

fpath = "C:/Users/xxxx/Desktop/folder 1/iris.csv"

setnames(
  fread(cmd=paste0("tail -10 '", fpath, "'")),
  names(fread(fpath,nrows = 0))
)[]