data1 = {{10, 0.336326}, {20, 0.382843}, {50, 0.53543}, {100, 0.686378}, {200, 0.784768}};
data2 = {{10, 0.000174682}, {20, 0.000143662}, {50, 0.000102721}, {100, 0.000151156}, {200, 0.000159283}};
data3= {{10, 0.00005875}, {20, 0.000055}, {50, 0.000055}, {100, 0.00010375}, {200, 0.000125}};

ListPlot[{data1, data2, data3},
 Joined -> True, PlotMarkers -> {Automatic, 15},
 PlotRange -> {0.000001, 0.8},
 PlotLegends -> Placed[ LineLegend[{"data1", "data2", "data3"}], {After, Right}] ]

ListLogPlot[{data1, data2, data3}, Joined -> True,
     PlotMarkers -> {Automatic, 15}, PlotRange -> {0.000001, 0.8},
     PlotLegends ->
      Placed[LineLegend[{"data1", "data2", "data3"}], {After, Right}]]