根據列名重命名CSV

Question

我嘗試加入R中具有相同名稱的兩個目錄中存在的csv文件。 例如1.csv和2.csv存在於/ path/directory1和/ path/directory2中。 我加入了兩個文件（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，新Zealand.csv等。

請幫忙！ 在此先感謝！

Answer 1

你可以嘗試這樣的：

lapply(joined, function(x) write.csv(x, file = paste0(x[["country"]][1], ".csv"))) 

顯然，添加你感興趣的write.csv所需的相關參數。

要獲取文件名，我們在該列（[1]）只選擇「國家」一欄（x[["country"]]），然後選擇第一個值，因爲我們只需要一個值來創建一個文件名。