R 多个回归和报告系数的循环

请显示各公司的回归循环均值和最大值，如下图所示，并报告系数：

lm(colmean$MSFT~colmax$MSFT)
lm(colmean$AAPL~colmax$AAPL) 
lm(colmean$GOOGL~colmax$GOOGL)

Data:
> head(colmax)
      MSFT     AAPL   GOOGL
1 21.23999 5.201410  97.810
2 21.38546 6.096268 105.430
3 20.64884 6.019837  94.405

> head(colmean)
      MSFT     AAPL     GOOGL
1 21.11067 4.975767  94.04000
2 20.91273 5.663524  97.50684
3 20.05333 5.681336  90.57909

---

您可以尝试

lappy

，最终结果将显示在一个列表中，其中每个元素都适合每列：

fit <- lapply(names(colmax), function(x){
    lm(colmean[[x]] ~ colmax[[x]])
})

mapply(function(x, y) lm(y ~ x), colmax, colmean, SIMPLIFY = F)