R XLConnect readWorksheet：重命名每个工作表中的列名

Question

我正在解析每个工作表中包含多个工作表和三列的excel文件。这三列在每个工作表（DATE VS Date等）中的名称略有不同，因此当我执行我的代码时，df数据框有几列数据。我想通过重命名每个Excel工作表中的标题来将df压缩为3列。当我在每个工作表中读到时，如何重命名标题值？

require(XLConnect)
wb <- loadWorkbook("~/Downloads/BearRiverBand-Rancheria-WindTurbine-Log-2009-2014.xlsx")
lst = readWorksheet(wb, sheet = getSheets(wb))
df <- ldply (lst, data.frame)

Answer 1

我解决了我的问题：

require(XLConnect)
require(plyr)
wb <- loadWorkbook("~/Downloads/BearRiverBand-Rancheria-WindTurbine-Log-2009-2014.xlsx")
lst = readWorksheet(wb, sheet = getSheets(wb))

dat=data.frame()

for (l in 1:(length(lst)-4)){
  s <- data.frame(lst[l])
  names(s) <- c('TIME','DATA','BY')
  dat <- merge(dat,s,all = TRUE)
}