新列具有基于行号的字符值

Question

我有一个线性回归结果的数据框，其中包含88行和9列。第1到44行来自未调整的模型，第45到88行来自调整的模型。

如何添加一个名为Model的新列，该列为行Model 1取1:44和为行'Model 2取45:88的字符值？

到目前为止，我已经按如下方式生成了此列，但不确定如何编辑值以'Model 2用于行45-88

results.all <- results.all %>% mutate(Model="Model 1")

Answer 1

怎么样

results.all$Model <- c(rep("Model 1", 44), rep("Model 2", 44))

或（根据评论）

results.all$Model <- rep(c("Model 1", "Model 2"), each = 44)