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

Question

我正在解析一个具有几个工作表和每个工作表中的三列的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)

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