[在R中读取许多csv文件时添加与原始文件相对应的列

Question

我正在使用以下方式将列表中的csv文件读取到一个数据集中>

x <- do.call(rbind, lapply(list, fread))
我想在x中添加一列，该列指示与每一行相对应的文件名。 

list看起来像这样：

[[1]] '~/amsterdam.csv'
[[2]] '~/atlanta.csv'
[[3]] '~/bangalore.csv'
我希望x看起来像这样

 V1   V2           city
2.5   3.4   '~/amsterdam.csv'
5.4   1.1   '~/bangalore.csv'
3.4   2.9   '~/atlanta.csv'
0.5   9.8   '~/bangalore.csv'
是否有一种方法，通过我使用的命令，将x的每一行链接到它的起源文件？ 

我目前正在使用循环来执行此操作（读取文件，然后添加与文件名相对应的列，然后将所有文件绑定在一起），但是我想知道是否有一种更快，更干净的方法。

[我正在使用x将列表中的csv文件读入一个数据集

Answer 1

我觉得这应该可行：