vl.markPoint({filled: true})
.data(data2000)
.encode(
vl.x().fieldQ("fertility").title("Fertility"),
vl.y().fieldQ("life_expect").title("Life Expectancy"),
vl.size().fieldQ("pop").scale({range: [200, 3000]}).title("Population").legend({tickCount: 3}),
vl.color().fieldN("cluster")
)
.render()