• 要同时从两个模型生成预测，我们可以使用 gather_predictions()，它将每个预测添加为一行。gather_predictions() 的互补函数是 spread_predictions()，它将每个预测添加为一个新列。

结合起来，我们得到：

grid <- sim3 %>% data_grid(x1, x2) %>% gather_predictions(mod1, mod2) grid #> # A tibble: 80 × 4 #> model x1 x2 pred #> #> 1 mod1 1 a 1.67 #> 2 mod1 1 b 4.56 #> 3 mod1 1 c 6.48 #> 4 mod1 1 d 4.03 #> 5 mod1 2 a 1.48 #> 6 mod1 2 b 4.37 #> # ... with 74 more rows

我们可以使用分面（faceting）在一张图上可视化两个模型的结果：

ggplot(sim3, aes(x1, y, color = x2)) + geom_point() + geom_line(data = grid, aes(y = pred)) + facet_wrap(~ model)

请注意，使用 + 的模型中每条直线具有相同的斜率，但截距不同。而使用 * 的模型中每条直线具有不同的斜率和截距。