使用数据框值作为列表名称

Question

我们说我有一个包含十四个数据帧的列表。每个数据框都包含一个包含城市值的最终列。所以它想要

[[1]]
   Row.Labels       brz   zone
1     3/31/09        NA   SNE
2     4/30/09        NA   SNE
3     5/31/09        NA   SNE

[[2]]
   Row.Labels       brz   zone
1     3/31/09        NA   FED
2     4/30/09        NA   FED
3     5/31/09        NA   FED

...

我想要做的是使用区域列中的值命名列表中的每个数据框。我认为快速循环可以解决这个问题，但我似乎无法找到解决这个问题的方法。

dataset <- do.call("list", lapply(file_list, FUN = function(files){ 
      read.csv(files, header=TRUE, stringsAsFactors=FALSE)
}))

# doesn't work
for( j in 1:length(dataset) ) {
  names(dataset[j]) <- unique(dataset[[j]][,"zone"])
}

所以希望将第一个列表元素命名为SNE，将第二个列表元素命名为FED，等等。但我不想手动完成。