vl.markPoint({filled: true})
.data(data2000)
.encode(
vl.x().fieldQ('fertility').scale({zero: false}),
vl.y().fieldQ('life_expect').scale({zero: false}),
vl.size().fieldQ('pop').scale({range: [0,1000]}),
vl.color().fieldN('cluster'),
vl.opacity().value(0.5),
vl.tooltip(['country', 'fertility', 'life_expect']),
vl.order().fieldQ('pop').sort('descending'),
vl.column().fieldN('cluster')
)
.width(135)
.height(135)
.render()