ListPlot[{Select[data1, #[[1]] <= 0 &], Select[data2, #[[1]] >= 0 &]}, PlotRange -> {{-0.5, 0.5}, {0, 1.5}}, Frame -> True, ImageSize -> 400, AspectRatio -> 2/3] [![enter image description here][1]][1] [1]: https://i.sstatic.net/J0w8y.png