我们也可以把这些模型看作观测值，并用 a1 对 a2 的散点图将它们可视化，同样按 -dist 着色。这样我们无法再直接看到模型与数据的比较情况，但可以同时看到许多模型。同样，我突出显示了最好的 10 个模型，这次是在它们下方绘制红色圆圈：

ggplot(models, aes(a1, a2)) + geom_point( data = filter(models, rank(dist) <= 10), size = 4, color = "red" ) + geom_point(aes(colour = -dist))