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

我正在解析一个excel文件，其中有几个工作表，每个工作表中有三列。这三列在每个工作表中的名称稍有不同（日期与日期等），因此当我执行代码时，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)

require（XLConnect）
wb我解决了我的问题：

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)
}

require（XLConnect）
需要（plyr）
wb我想你知道你想要什么名字。制作一个向量并使用
名称（lst）