r-在类别上循环以创建单个回归

Question

在我上一个问题的附录中，我想创建一个for循环，每次迭代都会为我创建的每个唯一代码创建一个回归。更具体地说，我想创建一个回归，只使用与每个唯一代码相对应的数据。我该怎么做？

我试过在谷歌上搜索"；对于R〃中的环路；并且未能找到一个适合我迭代类别而非变量的答案。

Answer 1

这里有一个预测Sepal的例子。距萼片的长度。宽度，花瓣。长度和花瓣。使用iris数据的三种物种的宽度：

data(iris)
str(iris)
# 'data.frame': 150 obs. of  5 variables:
#  $ Sepal.Length: num  5.1 4.9 4.7 4.6 5 5.4 4.6 5 4.4 4.9 ...
#  $ Sepal.Width : num  3.5 3 3.2 3.1 3.6 3.9 3.4 3.4 2.9 3.1 ...
#  $ Petal.Length: num  1.4 1.4 1.3 1.5 1.4 1.7 1.4 1.5 1.4 1.5 ...
#  $ Petal.Width : num  0.2 0.2 0.2 0.2 0.2 0.4 0.3 0.2 0.2 0.1 ...
#  $ Species     : Factor w/ 3 levels "setosa","versicolor",..: 1 1 1 1 1 1 1 1 1 1 ...

现在split和lapply:

iris.split <- split(iris[, -5], iris$Species)
iris.lm <- lapply(iris.split, (x) lm(Sepal.Length~Sepal.Width+Petal.Length+Petal.Width, x))
lapply(iris.lm, summary)

最后一行打印了每个物种回归的总结报告。