无法为 R 中的回归分析编写循环

Question

我的 R 代码有问题。我想运行大约 100 次回归并使用循环执行此过程。我曾尝试使用 YouTube 等的帮助自己编写循环，但我一无所获。因此，我想请问您是否可以帮助我。具体来说，是关于以下几点：我有纳斯达克 100 中 100 家公司的数据集，我想按季度回归每股销售额与股价表现。另一个问题是数据集包含这 100 家公司，并且必须为每个额外的公司创建一个具有相应股票代码的子集，以便 R 可以为每个回归正确访问它。

代码摘录如下：

Nasdaq_100 = read_xlsx("Nasdaq_100_Sales_Data.xlsx")

#Correlation between quarterly close price and Sales of AMD
AMD <- subset (Nasdaq_100, Nasdaq_100$TickerSymbol=="AMD")
AMD_regression = lm(AMD$Sales ~ AMD$Stockprice_quarterly, data = Nasdaq_100)
summary(AMD_regression)

你能帮我编写这个用于回归分析的循环吗？

在此先感谢您的帮助！

Answer 1

file <- choose.files()

lmset <- data.frame(x='x',y='y')

for(i in seq_len(100))

{

  data <- read_excel(file,sheet=i)

  lmset <- rbind(lmset,lm(AMD$Sales~AMD$Stockprice_quarterly,data=data)$coefficients)

}

Answer 2

要将其转换为 for 循环，首先获取工作目录中的 .xlsx 文件列表：

require(data.table)
myfiles <- list.files(pattern="*.xlsx")

然后遍历每个文件，并在对现有代码进行少量修改后保存：

for (file in myfiles) {
Nasdaq_100 <- data.table::fread(file)
AMD <- subset (Nasdaq_100, Nasdaq_100$TickerSymbol=="AMD")
AMD_regression = lm(AMD$Sales ~ AMD$Stockprice_quarterly, data = Nasdaq_100)
summary(AMD_regression)
data.table::fwrite(AMD_regression, file=paste0("output_", file), quote = F, sep = "\t", row.names = F)
}

在 r 中复制粘贴，如果有效请告诉我。

无法为 R 中的回归分析编写循环

Unable to program a loop for regression analysis in R

loops

r

repeat

linear-regression