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