在工作簿中合并 Excel 工作表以制作以时间和公司为索引的面板数据表

Question

我想为 R 中的面板数据回归创建一个面板数据表。我有一个工作簿，每张表都包含一个公司的变量（总共 5 张表，所以 5 家公司）。每个公司的变量都是相同的。频率是每天。我想要一个以公司和时间为指标的单一面板数据表，以便我可以为每个公司获取变量的年度平均值并进行面板数据回归。我一直在运行以下代码：

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

但上面的代码只取第一张表，创建值始终为 1 的公司列，并将日期列创建为未知数字。我也试过以下代码：

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

但它返回相同的结果。似乎代码只能访问工作簿中的第一张工作表。请提出解决此问题的方法。以下是工作簿的链接：workbook

Answer 1

这使用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)
}