创建简单的循环

Question

我正在尝试创建一个基本循环，但我很难在网上找到信息。

我想要做的就是使用循环而不是对我的数据进行子集化并为每个数据重复相同的命令。

例如： 我有一个数据集（animals），它正在查看不同的animal.type（狗、马、猫、老鼠），我将它们分成coat颜色（黑色、红色、棕色、白色）并采用@987654324 @在不同的ages。我有一系列命令，例如将数据更改为线性分组模型（lmer），查看数据，进行方差分析，查看汇总数据，检查模型假设等。我只想一次对一种类型的 animal.type 进行统计。与其对dogs 或horses 进行子集化并一遍又一遍地重复相同的公式，我想创建一个循环，为每个animal.type 重复相同的统计信息。

最简单的方法是什么？

我希望它会像......

loop? <- function(animals$animal.type){
ggplot() #view data
lmer1 <- lmer(weight~coat*age) #Create linear model
anova(lmer1)  #look for main patterns
summary(lmer1) #model coefficients
lmerTest::lsmeans(lmer1,test.effs="coat:age") #check model assumptions
plot(lmer1)}

我知道这是不对的，但我确信答案就在那里......我只是找不到它。

Answer 1

类似

for (atype in unique(animals$animal.type)) {
     dd <- subset(animals,animal.type==atype)
     ggplot(dd,...)
     lmer1 <- lmer(weight~coat*age + (1|something), data=dd)
     anova(lmer1)
     summary(lmer1)
     lmerTest::lsmeans(lmer1,test.effs="coat:age")
     plot(lmer1)
}