data=Import["/Users/troyday/Desktop/ExtinctionData.txt","Table"]

data={{252.158`,181800.`},{495.992`,179900.`},{752.654`,169800.`},{998.675`,144000.`},{1131.302`,132300.`},{1262.573`,114400.`},{1400.075`,97304.562`},{1597.164`,70194.602`},{1782.359`,58008.551`},{1911.758`,1}}

Plot[0,{x,0,2500-1911},PlotRange->{{0,2500},{-1,14}}]
ListPlot[Table[{2500-data[[i,1]],Log[data[[i,2]]]},{i,1,9}],PlotRange->{{0,2500},{-1,14}},Joined->True]
ListPlot[Table[{2500-data[[i,1]],Log[data[[i,2]]]},{i,1,10}],PlotRange->{{0,2500},{-1,14}},PlotStyle->{Blue,PointSize[.02]},Frame->True,FrameLabel->{"Index of glucose concentration","Population density, Log[cells]/μl"},LabelStyle->Directive[FontSize->14]]
Show[%,%%,%%%]

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