seq_range(x2, n = 5, expand = 0.10) #> [1] -0.050 0.225 0.500 0.775 1.050 seq_range(x2, n = 5, expand = 0.25) #> [1] -0.125 0.188 0.500 0.812 1.125 seq_range(x2, n = 5, expand = 0.50) #> [1] -0.250 0.125 0.500 0.875 1.250

接下来让我们尝试将这个模型可视化。我们有两个连续预测变量，所以你可以把这个模型想象成一个 3D 曲面。我们可以使用 geom_tile() 来展示它：

ggplot(grid, aes(x1, x2)) + geom_tile(aes(fill = pred)) + facet_wrap(~ model)

这并不表明这些模型有很大不同！但这在一定程度上是一种错觉：我们的眼睛和大脑并不擅长准确地比较颜色的深浅。与其从顶部观察这个曲面，我们可以从侧面观察它，展示多个切片：

ggplot(grid, aes(x1, pred, color = x2, group = x2)) + geom_line() + facet_wrap(~ model) ggplot(grid, aes(x2, pred, color = x1, group = x1)) + geom_line() + facet_wrap(~ model)