是否可以在聚合函数中执行回归？ [复制]

Question

举例

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

（我知道上面的语法是错误的。只是为了你的理解）

大概有 n 列，比如 14 列和一个额外的日期列

我需要对 B、C、D、E...N（因变量）单独对 A（自变量）执行 简单线性回归日期列，如何使聚合函数起作用？或者还有什么其他功能可以派上用场吗？

Answer 1

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

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  

首先你 split 你的 data.frame 由 D 然后在这些拆分上运行你的回归。