RegionPlot[x^2+y^2<=2y,{x,-1,1},{y,0,2}]