R 是否可以在聚合函数内执行回归？

比如说

FP <- data.frame(A = 1:9, B = 11:19, C = 21:29, D = 31:39 ..... N = 145:153, Date: Jan 1 to Jan 9)

---

FP在使用/保存模型时，您可能希望使用列表：

FP <- data.frame(A = 1:9, B = 11:19, C = 21:29, D = rep(1:3,3))

lapply(split(FP, FP$D), function(x) lm(B + C ~ A, data = x))

#$`1`
# 
#Call:
#lm(formula = B + C ~ A, data = x)

#Coefficients:
#(Intercept)            A  
#         30            2  
# 

#$`2`

#Call:
#lm(formula = B + C ~ A, data = x)

#Coefficients:
#(Intercept)            A  
#         30            2  


#$`3`

#Call:
#lm(formula = B + C ~ A, data = x)

#Coefficients:
#(Intercept)            A  
#         30            2  

FP谢谢您的回答。我现在稍微修改了我的问题。即使在原始情况下（编辑前），三种情况下的系数和截距都相同，这不是很奇怪吗？