合并工作簿中的Excel工作表,使面板数据表与时间和公司作为索引

我想在R中创build一个面板数据回归的面板数据表。我有一个工作簿,每个工作表包含一个公司的variables(共5张,所以5个公司)。 每个公司的variables都是一样的。 频率是每天。 我想要一个包含公司和时间作为指标的面板数据表,这样我就可以对每个公司进行年度平均variables分析,并进行面板数据回归。 我一直在运行下面的代码:

sheets<- c("BOB", "RIL", "GAIL", "ITC", "MM")for (x in 1:5) {df <- bind_rows(df, read.xlsx(path, sheet=sheets[x] ), .id= "Firm")} 

但是上面的代码只是第一张表,创build值为1的Firms列,并将date列作为未知的数字。 我也尝试了下面的代码:

 df <- bind_rows(read.xlsx(path, sheets[x]), .id= "Firm") 

但它返回相同的结果。 代码似乎只能访问工作簿中的第一个工作表。 请build议一种方法来解决这个问题。 以下是工作簿的链接: 工作簿

这使用readxl包。 xlsx包不喜欢你的文件中的东西,并抛出一个错误。

 library("readxl") sheets<- c("BOB", "RIL", "GAIL", "ITC", "MM") df <- NULL for (sheet in sheets){ tmp <- read_excel(path, sheet=paste0(sheet, " IS Equity")) tmp$firm <- rep(sheet, nrow(tmp)) df <- rbind(df, tmp) }