ListPlot[{{{1, 5}}, {{4, 2}}}, 
     PlotStyle -> {Red, Green}, 
     PlotRange -> {{0, 5}, {0, 6}}, 
     PlotMarkers -> {Graphics[{EdgeForm[Black], Disk[]}], .1}]

[![enter image description here][1]][1]


  [1]: https://i.sstatic.net/i647E.png