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