CSVの名前を列名に基づいて変更

Question

同じ名前のRの2つのディレクトリにあるcsvファイルに参加しようとしました。 たとえば、1.csvと2.csvは/ path/directory1と/ path/directory2にあります。 私は2つのファイル（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]]) 

ここで、「joined」にはcsvのリストが含まれています。今度はすべてのcsvの をディレクトリに保存したいのですが（例： "path/directory3"）、csv名はカラム に基づいている必要があります。たとえば、 すべてのcsvには各国に関する情報が含まれています。 「国」列があります。値はオーストラリア、ニュージーランド、インド、米国です。

ので、CSV名がAustralia.csv、新Zealand.csvなどでなければなりません。

助けてください！ ありがとうございました！ 、明らかに

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

あなたは必要に応じてwrite.csvのために興味を持っている、関連する引数を追加します。

Answer 1

あなたのような何かを試すことができます。

ファイル名を取得するには、「国」列（x[["country"]]）だけを選択してから、その列の最初の値（[1]）を選択します。