OR={{20,0.364},{50,2.280},{100,4.792}}

IV1={{20,172.999},{50,690.618},{100,812.056}}

IV2={{20,5.448},{50,19.250},{100,41.41}}

ListPlot[{OR,IV2},PlotRange->{{0,102},{0,45}},PlotStyle->{{Red,PointSize[.02]},{Blue,PointSize[.02]}}]
ListPlot[{OR,IV2},PlotRange->{{0,102},{0,45}},Joined->True,Frame->True,FrameLabel->{"Dose, mg/kg","Plasma concentration, μg/mL"},LabelStyle->Directive[FontSize->14],PlotStyle->{{Red},{Blue}}]
Show[%,%%]

Export["1.eps",%83,"EPS"]