根据列名重命名CSV

Question

我尝试加入R中两个目录中存在的csv文件，它们具有相同的名称。 例如，/ path / directory1和/ path / directory2中存在1.csv和2.csv。 我加入了两个文件（1.csv和1.csv）。如下面的代码所示：

directories <- c("/path/directory1", "/path/directory2")
files <- lapply(directories, list.files, pattern="*.csv", full.names = TRUE)
files <- lapply(files, sort)
joined <- Map(function(x,y) { join(read.csv(x), read.csv(y), by=c("date")) },
           files[[1]], files[[2]])

现在，“加入”包含了csv列表。现在我想存储所有的csv 在目录中（例如“path / directory3”），但csv名称应该基于列 例如， 每个csv都包含有关每个国家的信息。有“国家”栏：价值观是澳大利亚，新西兰，印度，美国。

因此，csv名称应为 Australia.csv ， New Zealand.csv 等等。

请帮忙！ 在此先感谢!!