Green2 = vl.markArea({size:2,stroke:"black",fill:"#6acc88"})
.width(400)
.height(300)
.data(dataR)
.transform(
vl.filter(`datum.x <= ${graph} && datum.x >=${-graph}`)
)
.encode(
vl.x().fieldQ("x").axis({title:"x"}).scale({domain:[-4,4]}),
vl.y().fieldQ("y").axis({title:"y"}).scale({domain:[0,0.5]})
)